Alpha Feld -> Alpha Feld ohne führende Nullen

[thommy_l]

Hallo,

führende Nullen in Textfeldern entferne ich so:

evalr MeinText = %char(%int(MeinText))


Thommy

[B.Hauser]

@Thommy

Hoffentlich steht in MyText nie etwas anderes als Ziffern drin!
Schon wenn das Feld komplett *Blank wäre, bekommst Du ein Problem.

... und %Char richtet linksbündig aus.
... Blanks zwischen den Ziffern werden gnadenlos entfernt.
... und Dezimal-Trennzeichen und folgende Ziffern werden gnadenlos abgeschnitten.

Birgitta

[thommy_l]

@Birgitta

die Frage des Threaderstellers war, wie ein mit Zahlen gefülltes Alphafeld ohne Vornullen dargestellt werden kann. Darauf habe ich mich selbstverständlich bezogen. Im Übrigen stellt mein Vorschlag das Ergebniss durchaus rechtsbündig, ganz links steht EVALR

Thommy

[TheDevil]

Hallo Comminity ...

ich weiss die Anfrage ist schon ein "wenig" älter ... aber da ich auch noch so einer Lösung gegrübelt habe hier mein Vorschlag (beides alpha felder mit länge 10) :

eval target = %subst(source: %check('0':source) :11 - check('0':source))

Besser spät als nie :-.()

Gruß,
Ralf

[Alexander]

Und noch ein Trick:
dtext s 5a inz('0034')
c eval text = %char(%dec(TEXT:5:0))
c evalr text = %char(%dec(TEXT:5:0))