3 replies to this topic

[GEOSoft]

I have to trim a string down until it only contains numeric digits. For ecample it may be (/A123456
and I would need only
123456
The following does not work.

Do
$b=StringLeft ($a,1)
StringTrimLeft ($a,1)
Until StringIsDigit($b)<>"0"

What has to be done?

Edited by GEOSoft, 19 January 2004 - 11:47 PM.

[Jon]

$a = "ABC1234"

While StringIsDigit( StringLeft($a, 1) ) = 0
  $a = StringTrimLeft($a, 1)
WEnd

MsgBox(4096, "", $a)

[GEOSoft]

Thanks Jon. That worked just fine. I just repeated it for the Right end of the string so that now if they get carried away when selecting the number in the text file it will trim to the number only. I did not see the problem because EditPad handled a D-click to select process properly but NotePad (Yuk!!) would also select puctuation. For example with (123456), EditPad returned only the number while NotePad (Double Yuk!!) included the braces.
That was quick too!! I barely had enough time to finish writing a novel.

[sconley]

How about

$a = "A1B2C34D5Z"
$b = ""
for $I = 1 to StringLen($a)
    If StringIsDigit(StringMid($a,$i,1)) then $b = $b & StringMid($a,$i,1)
Next

msgbox(4096,"",$b)

Edited by sconley, 20 January 2004 - 03:38 AM.