StringRegExp Question

[HowieJ]

Lets say I have a string = "eraTESf ER , - 347 DFE,ad"

I want to format to be only letters(lower and upper), take away everything else including the space

So in result, it should be "eraTESfERDFEad"

How can I achieve this using StringRegExp ? or perhaps some better option ?

Thank you for any help

Howie

[Bert]

Try this to figure it out:

http://rubular.com/

I find it helps in figuring it out quickly.

[jchd]

Assuming you mean ASCII letters (i.e. english letters) only, try this:

$string = "eraTESf ER , - 347 DFE,ad"

$result = StringRegExpReplace($string, "(?i)[^a-z]", "")

[HowieJ]

Thank you Volly. This is very helpful. I had below code.

$string = "eraTESf ER , - 347 DFE,ad"

$formatted = StringRegExp($string, "[a-zA-Z]")

msg(0,"",$formatted)

How come $formatted always result 1 ?

Thanks

[jchd]

The regexp option you use (third parameter defaults to 0) return a bolean result 0 or 1 meaning no match or match.

[HowieJ]

Hi,

Thanks for the help. I guess I was in the wrong direction. I had below code which will format string from

"ajvelrjlejrje*&^%$#@!_)(+_-=':'/.,><}{][\|akr2342343" --> "ajvelrjlejrje"

$test = "ajvelrjlejrje*&^%$#@!_)(+_-=':'/.,><}{][\|akr2342343"

$testarray = StringSplit($test,"")
;MsgBox(0,"",$testarray[0])
$formatted =""

for $i = 1 to $testarray[0]
    if StringIsAlpha($testarray[$i]) Then
        $formatted = $formatted & $testarray[$i]
    EndIf
Next
MsgBox(0,"",$formatted)

I am just wondering if there is any better way to achieve this. Thank

[jchd]

That's indeed overcomplex!

Look again 4 posts above.

[UEZ]

This is working for me:

$test = "ajvelrjlejrje*&^%$z#Z@!_)ABC(+_-=':'/.,><}{][\|akr2342343"

$StrReg = StringRegExpReplace($test, "[\W\d^\_]", "")

$testarray = StringSplit($test,"")
;MsgBox(0,"",$testarray[0])
$formatted =""

for $i = 1 to $testarray[0]
    if StringIsAlpha($testarray[$i]) Then
    $formatted = $formatted & $testarray[$i]
    EndIf
Next
MsgBox(0,"",$formatted & @CRLF & $StrReg)

BR,

UEZ

Edited June 15, 2010 by UEZ

[HowieJ]

Assuming you mean ASCII letters (i.e. english letters) only, try this:

$string = "eraTESf ER , - 347 DFE,ad"

$result = StringRegExpReplace($string, "(?i)[^a-z]", "")

Thank you for your help. This is what I am looking .