Forum AtoutFox : Re: Chaînes de caractères: Une chaîne est la suite de la précédente ?   

sam. 09 décembre 2017, 18h12
phoenixset
Algérie
atoutfox.public.association

Re: Chaînes de caractères: Une chaîne est la suite de la précédente ?

Bonsoir à tous.

Tout d'abord, je tiens à vous remercier pour vos efforts, ensuite je voulais vous informer que je viens de trouver une solution qui a marché après test en me basant sur l'idée de Marc et celle-ci fonctionne quelque soit la longueur de la chaîne, quand à la comparaison, elle se fait en dehors de la procédure du coté du code appelant. Voici la solution que j'ai adopté:

PROCEDURE StrToNum(chaine_pr)

  LOCAL chaine_num,longueur,i,ir,cc
  chaine_pr = ALLTRIM(chaine_pr)
  chaine_num = 0
  longueur = LEN(chaine_pr)
  FOR i = longueur TO 1 STEP -1
    cc = SUBSTR(chaine_pr,i,1)
    ir = 10^(longueur - i)
    chaine_num = chaine_num + ASC(cc)*ir
  ENDFOR
  RETURN chaine_num

ENDPROC


Encore une fois, merci à tous.

Cordialement.

Journal

FoxInCloud (Th. Nivelet) pense que ce message est la bonne réponse ou qu'il est utile
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018659