Rexx suppression d'un caractère particulier

[nadegel]

Bonjour,

Je n'y connais pas grand chose en REXX.

Je dois récupérer des données dans un fichier et les additionner. Le problème c'est que mon fichier d'origine est en valeur anglaise et le séparateur de millier est une virgule (quand le REXX a été écrit le millier n'était pas atteint). Ce qui me donne un joli "Bad arithmetic conversion"

Si je remplace la virgule par un point, mon chiffre devient un nombre décimale (1,585 -> 1.58) alors qu'il n'y a que des entiers.

ma colonne commence au caractère 44 pour 7 de long.
VALEUR1=TRANSLATE(SUBSTR(LECT.1,44,7),'.',',')

Je n'ai pas trouvé la fonction qui me premettrait de supprimer la virgule sur une chaine de caractère. Car lorsque je mets :

VALEUR1=TRANSLATE(SUBSTR(LECT.1,44,7),'',',')
ou
VALEUR1=DELSTR(SUBSTR(LECT.1,44,7),47,1)
j'ai de nouveau "Bad arithmetic conversion"

Merci par avance

[bernard59139]

Bonjour

Un joyeux mélanges de fonctions, pas terrible.

Personnellement, je ferais:

Code :

1
2
3
4
mazone1=SUBSTR(LECT.1,44,7)
mazone2=translate(mazone1,'',',')     
valeur1 = space(mazone2,0)

[nadegel]

Merci