[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: Extract only numbers of a string

[jonathan.wilson]

Assuming only one number in string.. the following will work like some examples above. DEF VAR i AS INT NO-UNDO INIT 1. DEF VAR myNum AS CHAR NO-UNDO INIT "". def var myString as char no-undo. myString = 'this is a 1234 tekst'. DO WHILE i 0 THEN myNum = myNum + SUBSTRING(myString,i, 1). i = i + 1. END. MESSAGE myNum int(myNum) VIEW-AS ALERT-BOX.

Continue reading...