Parsing out the strings between " " and ' '

[ActualAkshay]

I want to parse out the actual text the is in RED color from au3 script and place it in an array, the strings between " and ' symbols

SAMPLE INPUT TEXT: 

#include "StaticConstants.au3" ;yes this is red text, but it has to be ignored as it is path to include file
#include <WindowsConstants.au3>


$TEXT = " yo yo 'yo' 'yo'yo 'yo' yo' "
$fnScript = 'Auto Updater; (example script);' ;full script name
$pScript = StringSplit(@ScriptName, '.')
$dirMonter = @AppDataDir & '\monter.FM' ;directory for monter.FM's scripts

$btnIni = GUICtrlCreateButton('View ' & $script & '.&ini', 4, 164, 115, 25)
$btnFilUpd = GUICtrlCreateButton('View ' & $script & '.&upd', 126, 164, 119, 25)

$YO = "hey'" & @TAB & '' & "" & '"' & "'world." ; tough one

OUTPUT ARRAY:

$array[0]  => 8
$array[1]  => "yo yo 'yo 'yo'yo 'yo' yo"
$array[2]  => 'Auto Updater; (example script);'
$array[3]  => '.'
$array[4]  => '\monter.FM'
$array[5]  => 'View '
$array[6]  => '.&ini'
$array[7]  => 'View '
$array[8]  => '.&upd'
$array[9]  =>
$array[10] => "hey'"
$array[11] => ''
$array[12] => ""
$array[13] => '"'
$array[14] => "'world."

How this can be achieved, would be glad if anyone provide me with actual  solution

Edited July 5, 2013 by ActualAkshay

[orbs]

if SciTe does not have that options built-in (which someone else can probably answer), the way to go is to write an independent script that treats the au3 script as a text file, reading it and looking for strings.

[ActualAkshay]

if SciTe does not have that options built-in (which someone else can probably answer), the way to go is to write an independent script that treats the au3 script as a text file, reading it and looking for strings.

THAT IS VERY OBVIOUS! LOL i am actually working on an obfuscator

[ActualAkshay]

Actually I do have logic in my head, but the problems strikes when I try to parse out text from a line that contains both ' and " 

Edited July 5, 2013 by ActualAkshay

[orbs]

use character coupling, i.e. search for couples of chars: find the first char, being either " or ' , then find the 2nd char of the same type, then process what's in the middle, then continue the search.

but beware: AutoIt supports escaping ' or " inside a string by doubling them, for example 2 single-quotes inside a string defined by single quotes will be interperted as a single single-quote.

[guinness]

Have a look at this thread  >> '?do=embed' frameborder='0' data-embedContent>> (created by me!)

The regular expression is ([''"]).*?\1

[ActualAkshay]

 

Have a look at this thread  >> '?do=embed' frameborder='0' data-embedContent>> (created by me!)

The regular expression is ([''"]).*?\1

Thanks man, I love your snippets, you are a life saver you should really create a package of all your collection, just like CheatBook Database, something like "guinness database" 

Edited July 8, 2013 by ActualAkshay

[guinness]

You're welcome. I'm actually in the process of doing something similar.

[ActualAkshay]

I want to parse out FileInstall too, can you help me with it? as for now, I am not at all good with RegXp

[guinness]

Try this, the regular expression can now move on to the re-tweaking stage.

#include <Array.au3>

Local $sData = 'FileInstall("SOURCE", "DEST", 0)' & @CRLF
Local $aSRE = StringRegExp($sData, 'FileInstall\(\h*([''"])(.+?)\1,\h*([''"])(.+?)\3\h*(?:,\h*(\d)\h*)?\)', 3) ; By guinness 2013.
_ArrayDisplay($aSRE)

Edited July 8, 2013 by guinness

[ActualAkshay]

 

Try this, the regular expression can now move on to the re-tweaking stage.

#include <Array.au3>

Local $sData = 'FileInstall("SOURCE", "DEST", 0)' & @CRLF
Local $aSRE = StringRegExp($sData, 'FileInstall\(\h*([''"])(.+?)\1,\h*([''"])(.+?)\2\h*(?:,\h*(\d)\h*)?\)', 3) ; By guinness 2013.
_ArrayDisplay($aSRE)

Thanks a lot! You are awesome!

[guinness]

You may want to test it a little on different scenarios. If it doesn't work, just change $sData to the syntax that didn't work.

[ActualAkshay]

You may want to test it a little on different scenarios. If it doesn't work, just change $sData to the syntax that didn't work.

Yes! I am doing that

[ActualAkshay]

 

Try this, the regular expression can now move on to the re-tweaking stage.

#include <Array.au3>

Local $sData = 'FileInstall("SOURCE", "DEST", 0)' & @CRLF
Local $aSRE = StringRegExp($sData, 'FileInstall\(\h*([''"])(.+?)\1,\h*([''"])(.+?)\2\h*(?:,\h*(\d)\h*)?\)', 3) ; By guinness 2013.
_ArrayDisplay($aSRE)

I think there is problem with this, I get error "Subscript used with non-Array variable." which means nothing is parsed out?

[guinness]

Sorry look at the post again.

[ActualAkshay]

Sorry look at the post again.

check this out

 

#include <Array.au3>

Local $sData = "FileInstall('SOURCE', 'DEST', 0)" & @CRLF
$sData &= 'FileInstall("SOURCE", "DEST", 0)' & @CRLF

$sData &= 'FileInstall("SOURCE", "DEST")' & @CRLF

$sData &= "FileInstall(" & '"SOURCE"' & ", 'DEST')" & @CRLF

$sData &= "FileInstall('SOURCE', '1' & " & '"DEST"' & ")"

Local $aSRE = StringRegExp($sData, 'FileInstall\(\h*([''"])(.+?)\1,\h*([''"])(.+?)\3\h*(?:,\h*(\d)\h*)?\)', 3) ; By guinness 2013.
ConsoleWrite($sData)
_ArrayDisplay($aSRE)

Its still not working

[guinness]

You don't see the array? I do.

Edit: Wait you meant the last FileInstall. I will have a look.

Edited July 8, 2013 by guinness

[ActualAkshay]

You don't see the array? I do.

Edit: Wait you meant the last FileInstall. I will have a look.

Well I do see the array but its kind of strange, cant we just parse out the whole "FileInstall( src, des, flag)" txt into the array?

[guinness]

If you want.

'FileInstall\(([^)]+)' ; Try this.

[ActualAkshay]

 

If you want.

'FileInstall\(([^)]+)' ; Try this.

thanks, but cant it give FileInstall( ) too?