PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2025 → Incrémentation ALPHABETIQUE - Résolu -
Incrémentation ALPHABETIQUE - Résolu -
Débuté par Gilles GUICHARD, 27 avr. 2015 11:57 - Aucune réponse
#1
Membre enregistré
54 messages
Posté le 27 avril 2015 - 11:57
Un grand merci à newkiss sur un autre forum qui a trouvé la solution.

Problématique :
Incrémenter un compteur alphabétique.

Je relaye la solution car chapeau :


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

Bonne journée

--
Gilles
Com' anjou
02 85 52 01 44
→ Revenir à WINDEV 2025