Incrémentation chaines (type excel)

Fermé
newkiss Messages postés 127 Date d'inscription mardi 7 septembre 2010 Statut Membre Dernière intervention 12 janvier 2015 - 3 déc. 2010 à 10:12
Bonjour,

J'ai fait une procédure pour incrémenter une chaine dans le style des colonnes excel :

Ex : A --> B / AZ --> BA / AZZ --> BAA / ABC --> ABD

Que pensez vous de cette procédure ? Avez vous des suggestions d'amélioration ?

J'ai codé en Windev, j'espère que ce sera asser clair

PROCEDURE incrementer_chaine(LOCAL sChaine est une chaîne)

cLettre  est un caractère
POUR i = Taille(sChaine) A 1 PAS -1
	cLettre = sChaine[[i]]
	SI cLettre <> "Z" ALORS
		sChaine[[i]] = Caract(Asc(cLettre)+1)
		SI i = Taille(sChaine) _OU_  sChaine[[i+1]] = "A" ALORS SORTIR
	SINON
		sChaine[[i]] = "A"			
		SI i = 1 ALORS sChaine+= "A"
	FIN
FIN

RENVOYER sChaine