Conversion d'une chiffre base 10 vers base N et vice-versa.

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Bonjour,
Pour ma première contribution, je vous soumets cette portion de code qui m'a été très utile.


Explication de convertToBaseN:
Sert à convertir un entier (base 10) nNombre et retourne sa valeur en base nBaseDestination avec nNiveau de caractères
Info(convertToBaseN(15484,26,6))
Résultat : 000MNE


Explication de ConvertFromBaseN:
nChaine est un nombre en base nBasedepart et le retour en sa valeur en entioer (base 10)

Info(ConvertFromBaseN("000MNE",26))
Résultat : 15484


Explication de PadLeft:
Retourne un chaine de caractère InputString de TargetLength de longueur à laquelle on ajoute à gauche autant de PadCharacter qu'il faut. Dans le cas de convertToBaseN, cette fonction est utilisée pour ajouter des zéros (0) à gauche.

Code (Text):

FONCTION ConvertFromBaseN(LOCAL nChaine est une chaîne, LOCAL nBasedepart est un entier)
sValeur, sPosition, swhere, sValTmp est un entier
Caracter est un caractère
sValeur=0
sPosition=1
swhere= Taille(nChaine)-1
TANTQUE sPosition <= Taille(nChaine)
   Caracter = Majuscule(Milieu(nChaine, sPosition,1))
   sValTmp    = Asc(Caracter)
   sValTmp = sValTmp>64 ? sValTmp-55 SINON sValTmp-48
   sValeur +=sValTmp*Puissance(nBasedepart,swhere)
   sPosition++
   swhere--
FIN
RENVOYER sValeur

FONCTION convertToBaseN(LOCAL nNombre est un entier, LOCAL nBaseDestination est un entier, nNiveau est un entier)
sValeur est une chaîne
TANTQUE nNombre > 0
   nResult est un entier = modulo(nNombre, nBaseDestination)
   sAdd est une chaîne = nResult
   SI nResult > 9 ALORS sAdd = Caract(nResult + 55)
   sValeur = sAdd + sValeur
   nNombre = nNombre / nBaseDestination
FIN
sValeur=PadLeft(sValeur, "0", nNiveau)
RENVOYER sValeur

PROCEDURE PadLeft(LOCAL InputString est une chaîne, PadCharacter est un caractère, TargetLength est un entier)
SI TargetLength > Length(InputString) ALORS
   InputString = RepeatString(PadCharacter,TargetLength-Length(InputString)) + InputString
FIN
RENVOYER InputString
 

Merci de commenter.

Cliquez pour agrandir...