some regex troubles

[Allow2010]

i am trying to parse some textinfo and it just seems not to work.

here you can see what i am trying to do

http://regexr.com?34r61

i want to find the state (active or not) for all ten devices.

the regexp

(?ms)["tam:settings/TAM/list(Active,Name,Display,MSNBitmap)"] = {.*[4] = {s*["Active"] = "([10])",

seems to work and i can get the needed result by changing the numer (in bold).

I tried this in autoit with

$tam=4

$state = StringRegExp($text, '["tam:settings/TAM/list(Active,Name,Display,MSNBitmap)"] = {s*[' & $tam & '] = {s*["Active"] = "([10])",', 1)

but i never get a result...

can anyone please help me:-)

Edited May 11, 2013 by Allow2010

[guinness]

Where is that json syntax from?

Also look at the last parameter, change from 1 to 3.

Edited May 11, 2013 by guinness

[mikell]

Try this

#include <Array.au3>

$text = FileRead("1.txt")

$state = StringRegExp($text, '(?s)Active"\] = "(\d)"', 3)
_ArrayDisplay($state)

Edit

Or this

#include <Array.au3>

$text = FileRead("1.txt")

$state = StringRegExp($text, '(?s)Active"\] = "(\d)"', 3)
Dim $array[UBound($state)+1][2] = [["device", "status"]]
For $i = 1 to UBound($state)
  $array[$i][0] = $i
  $array[$i][1] = $state[$i-1]
Next
_ArrayDisplay($array)

Edited May 11, 2013 by mikell

[Allow2010]

Where is that json syntax from?

Also look at the last parameter, change from 1 to 3.

 

i am not sure what you mean by json syntax...

[Allow2010]

 

Try this

 

thanks, i will try and report back...but (as the file holds some more text) it might be a bit too simple and may match something that looks similar..thats why i decided to match tam:settings/TAM/list(Active,Name,Display,MSNBitmap)"] first...

[mikell]

Frequently, more complicated the expression is, more errors may occur

I based this regex on the text you provided with your link, but if you have to manage something different the sre must obviously be adapted

[Jury]

Whatever but don't forget the powerful;

(?=[d+]) 

This asserts that this:

[d+])

 can be matched, then continues by starting at this position and so on until end of file Z in my script.

#include <Array.au3>

$text = FileRead(@MyDocumentsDir & "\test.txt")

$state = StringRegExp($text, '(?-s)\[\d+\].*?\r?\n.*?\["Active"\]\s*=\s*"(\d+)"(?s).*?(?=\[\d+\]|\Z)', 3)
Dim $array[UBound($state)+1][2] = [["device", "status"]]
For $i = 1 to UBound($state)
  $array[$i][0] = $i
  $array[$i][1] = $state[$i-1]
Next
_ArrayDisplay($array)

Edited May 12, 2013 by Jury

[Allow2010]

 

Whatever but don't forget the powerful;

(?=[d+]) 

This asserts that this:

[d+])

 can be matched, then continues by starting at this position and so on until end of file Z in my script.

#include <Array.au3>

$text = FileRead(@MyDocumentsDir & "\test.txt")

$state = StringRegExp($text, '(?-s)\[\d+\].*?\r?\n.*?\["Active"\]\s*=\s*"(\d+)"(?s).*?(?=\[\d+\]|\Z)', 3)
Dim $array[UBound($state)+1][2] = [["device", "status"]]
For $i = 1 to UBound($state)
  $array[$i][0] = $i
  $array[$i][1] = $state[$i-1]
Next
_ArrayDisplay($array)

Well, thank you...but i have to take a very close look at this to understand it...will reply when i understand :-)

Edited May 13, 2013 by Allow2010

[Allow2010]

Meanwhile i have another regexp problem that gives me a headache:

<textarea id="uiDnsRebind" name="dns_rebind_list" cols="30" rows="5">Line1
Line2
Line3
morelines
</textarea>

 

i want the text between

<textarea id="uiDnsRebind" name="dns_rebind_list" cols="30" rows="5">

and </textarea>

and i can sucessfully get it with

$matches = StringRegExp($result, '(?ms)<textarea id="uiDnsRebind" name="dns_rebind_list" cols="30" rows="5">(.*?)</textarea>', 1)

but after that all the linefeeds are converted to the text "lf". Not sure why that is...

Can anyone tell me how i can get this as a result:

"Line1%0D%0ALine2%0D%0ALine3%0D%0Amorelines%0D%0A"

I am banging my head now for over an hour:-(

Edited May 13, 2013 by Allow2010

[mikell]

I'm not sure of the result you exactly expect but please try this

$txt = '<textarea id="uiDnsRebind" name="dns_rebind_list" cols="30" rows="5">Line1' & @crlf & _ 
'Line2' & @crlf & _ 
'Line3' & @crlf & _ 
'morelines' & @crlf & _ 
'</textarea>'

$res = StringRegExp($txt, '(?s)<textarea.+?>(.*?)<', 3)
msgbox(0, "", $res[0])
$res2 = StringReplace($res[0], @crlf, '%0D%0A')
msgbox(0, "", $res2)

[Allow2010]

Thank Your, it works fine...only problem i had was that for some reasons the text i am parsing used @LF instead of @CRLF. Once i found it all worked out...

Thanks again to everyone for the help...

[guinness]

Rule of thumb >> Windows >> rn or @CRLF for line endings. It just stops problems like this happening.

[mikell]

...for some reasons the text i am parsing used @LF instead of @CRLF. Once i found it all worked out...

You can solve this with regexp 

$txt = '<textarea id="uiDnsRebind" name="dns_rebind_list" cols="30" rows="5">Line1' & @crlf & _ 
'Line2' & @lf & _ 
'Line3' & @lf & _ 
'morelines' & @crlf & _ 
'</textarea>' 

;msgbox(0, "", $txt ) 
$res = StringRegExp($txt, '(?s)<textarea.+?>(.*?)<', 3) 
;msgbox(0, "", $res[0]) 
$res2 = StringRegExpReplace($res[0], @crlf & '|' & @lf, '%0D%0A')  ;<<<<<<
msgbox(0, "", $res2)

[kylomas]

F.Y.I.

M23 came up with this slick assed SRE to normalize EOL's

; By Melba23, convert @CR & @LF to @CRLF. Using lookarounds, very clever!
$sReturn = StringRegExpReplace($sReturn, '((?<!\x0d)\x0a|\x0d(?!\x0a))', @CRLF)

kylomas

[guinness]

I need to ask why Melba23 why he opted for the hex values instead of r and n?

; By Melba23, convert @CR & @LF to @CRLF. Using lookarounds, very clever!
$sReturn = StringRegExpReplace($sReturn, '((?<!\r)\n|\r(?!\n)', @CRLF)