Incrémenter les lettres de l'alphabet

Version imprimable

04/09/2012, 10h38
tonioboss

Incrémenter les lettres de l'alphabet
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:

1 2 j est un caractère="A" j=Caract(Asc(j)+1)
Merci
04/09/2012, 10h50
frenchsting
Tu dois le gérer toi même...
si tu as 2 caractères, tu fais un
Code:

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:

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...

Bonjour,

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

Code:

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é

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

Code:

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

04/09/2012, 12h27
tonioboss

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

Petit amelioration après des annés :)

Citation:

Envoyé par newkiss

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

Code:

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