Discussion :

[tonioboss]

Bonjour à tous , j'aimerais incrémenter les lettres de l'alphabet mais avec mon code pas de suite.
A la 27 ieme opération c'est-à-dire après Z , je n'ai pas le résultat que je recherche.
J'aimerais avoir cette suite A,B,....Z,AA,AB...,BA,BB, ....

Mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
j est un caractère="A"
j=Caract(Asc(j)+1)

Merci

[frenchsting]

Tu dois le gérer toi même...
si tu as 2 caractères, tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure incremente(unelettre) 
u est une chaine = unelettre
 
si u="Z" alors
 u = "A" 
 d = "A"
 j = d+u
sinon 
 j = Caract(Asc(j)+1)
fin

Tu emballes ça dans une boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
t=j
pour i = 1 _a_ taille(j)
 j += incremente(t[[i]])
fin

Ce code ne fonctione pas en l'état, mais c'est une base : tu dois gérer les retenues...

[Hemgé]

Bonjour,

A la volée et sachant que Asc("A") = 65, je proposerais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Début, Résultat sont des chaînes
I, J, , NombreDeCharVoulu sont des entiers
 
Début = "" //pas nécessaire, mais par sécurité
Résultat = "" //pas nécessaire
RangDuCaractère = 1
 
//Saisir le nombre de caractères voulus, càd la longueur finale de la chaîne
 
TANTQUE RangDuChar <= NombreDeCharVoulu
   Pour I = 1 A 26
      Pour J = 1 A 26
         Résultat = Début + Caract(64 + J)
      FIN
      Début = Début + Caract(64 + I)
   FIN
   RangDuChar ++
FIN

Code non testé.

Bon travail

Hemgé

[newkiss]

J'avais codé ça un jour ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PROCEDURE gpIncrementerLettre(sTexte est une chaîne)
 
nTaille est un entier = Taille(sTexte)
i est un entier = nTaille
nbDeA est un entier = 0
 
POUR i = nTaille A 1 PAS -1
	SI sTexte[[i]] = "Z" ALORS
		sTexte[[i]] = "A"	
		nbDeA++
	SINON
		sTexte[[i]] = Caract(Asc(sTexte[[i]]) + 1)
		SORTIR
	FIN
FIN
 
SI nbDeA = nTaille ALORS sTexte = sTexte + "A"
 
RENVOYER sTexte

Exemple :
gpIncrementerLettre("AZA") // AZB
gpIncrementerLettre("ABZ") // ACA
gpIncrementerLettre("AZZ") // BAA
gpIncrementerLettre("ZZZ") // AAAA

[tonioboss]

C'est superbe !!!!
Merci à tous.

[mechi]

J'avais codé ça un jour ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
PROCEDURE gpIncrementerLettre(sTexte est une chaîne,nbreIncrementation est entier=1)
 
pour j=1 a nbreIncrementation 
nTaille est un entier = Taille(sTexte)
i est un entier = nTaille
nbDeA est un entier = 0
 
POUR i = nTaille A 1 PAS -1
	SI sTexte[[i]] = "Z" ALORS
		sTexte[[i]] = "A"	
		nbDeA++
	SINON
		sTexte[[i]] = Caract(Asc(sTexte[[i]]) + 1)
		SORTIR
	FIN
FIN
 
SI nbDeA = nTaille ALORS sTexte = sTexte + "A"
FIN
RENVOYER sTexte

Exemple :
gpIncrementerLettre("AZA",2) // AZC
gpIncrementerLettre("ABZ",3) // ACC
gpIncrementerLettre("AZZ",2) // BAB
gpIncrementerLettre("ZZZ",4) // AAAD