text: Remove all but numbers

[myspacee]

Hello,

try to remove all ASCII code and keep numbers.

Read about StringRegExp and its flag, but best result is this:

$mytxt = "Where have all the flowers gone, long time p33 976 7 6761assing? E#a%t^ m(y) {sh}o=rt\s"
MsgBox(0, "Regular Expression Replace Test", StringRegExpReplace($mytxt, "[a-z|A-Z|,|.]", ""))

anyone can help me to obtain result = 3397676761 ?

thank you,

m.

[Melba23]

myspacee,

Just remove all non-digits:

$mytxt = "Where have all the flowers gone, long time p33 976 7 6761assing? E#a%t^ m(y) {sh}o=rts"
MsgBox(0, "Regular Expression Replace Test", StringRegExpReplace($mytxt, "[^[:digit:]]", ""))

M23

[guinness]

Local $sString = 'Where have all the flowers gone, long time p33 976 7 6761assing? E#a%t^ m(y) {sh}o=rts'
MsgBox(4096, '', StringRegExpReplace($sString, '[^[:digit:]]', ''))

[jdelaney]

$mytxt = "Where have all the flowers gone, long time p33 976 7 6761assing? E#a%t^ m(y) {sh}o=rts"
MsgBox(0, "Regular Expression Replace Test", StringRegExpReplace($mytxt, "[D]", ""))

returns: 3397676761

edit: too late

Edited October 26, 2012 by jdelaney

[Melba23]

jdelaney,

too late

But shorter!

M23

[guinness]

I've been taught classes are optimised thus a little quicker, though can't prove my statement.

[jdelaney]

Made a 14.5 meg file with the above string, and did:

$mytxt = FileRead ( @DesktopDir & "regexp.txt" )
For $i = 1 To 5
   Local $begin = TimerInit()
   $test = StringRegExpReplace($mytxt, "[D]", "")
   Local $dif = TimerDiff($begin)
   ConsoleWrite ( StringLen($test) & " time:" & $dif & @CRLF )
   Local $begin = TimerInit()
   $test = StringRegExpReplace($mytxt, "[^[:digit:]]", "")
   Local $dif = TimerDiff($begin)
   ConsoleWrite ( StringLen($test) & " time:" & $dif & @CRLF & @CRLF )
Next

output:

1753920 time:17082.5296389395

1753920 time:15682.7848564522

1753920 time:15632.913909836

1753920 time:15621.0867450618

1753920 time:15627.5870869569

1753920 time:15625.0392457119

1753920 time:15624.0357111901

1753920 time:15597.6293663864

1753920 time:15610.0859071779

1753920 time:15664.9485231092

so, yes, classes are more efficient, barely disregard the first and last, because I was doing things to affect CPU Ut

won't matter on 'small' strings

[myspacee]

thank you all for help,

using "[^0-9s]" option to remove all and keep only numbers.

but fail in my goal. I'm trying to exctract from text files (thousand) only prices.

I've some problem, because user can specify prices in different way, eg:

1.234,50

0,50

1.50

5432

etc.

Want to refine "[^0-9s]" option i used, so how keep numbers and '.' and ',' ?

thank you again,

m.

ps: thank you also for joking :] and patience

Edited October 26, 2012 by myspacee

[Robjong]

Hi,

This should do the trick, I can not explain it right now but if you want I can explain it later.

; Match a dollar/euro sign, followed by a number, optionally followed by up to 2 dot separated segments of up to 3 digits,
; and finally optionally followed by a comma separated segment of 1 or 2 digits.
$a = StringRegExp($s, "[€$]b(d+(?:.d{1,3}){0,2}(?:,d{1,2})?)b", 3)

Edit: tags

Edited October 26, 2012 by Robjong

[masvil]

On 10/26/2012 at 6:23 PM, jdelaney said:

 

$mytxt = "Where have all the flowers gone, long time p33 976 7 6761assing? E#a%t^ m(y) {sh}o=rts"
MsgBox(0, "Regular Expression Replace Test", StringRegExpReplace($mytxt, "[D]", ""))

 

returns: 3397676761

 

@jdelaney Your code doesn't work (anymore, I guess). Guinnes one does.

[mikell]

Because of a typo in jdelaney's code. it should be

StringRegExpReplace($mytxt, "\D", "")

and FYI to negate a posix class the correct syntax is (in this case) :  [[:^digit:]]

[jdelaney]

It's an old post, so it was probably good at the time, and then when converted to the newer forum, the '\' was dropped.

One of my other posts also dropped the '\', but the results were as expected, which backs up my assumption.