Stuck in Regex world

[careca]

Hi ppl, im trying to do a script that reads an .au3 file, and retrieves all variables in it, then i work with that.

This is what i got so far

#include <Array.au3>
$File = FileOpenDialog('Au3 Var Searcher', @ScriptDir, 'Au3Files (*.au3)')
$FileOpen = FileOpen($File)
$FileRead = FileRead($FileOpen)
FileClose($FileOpen)
Search()
Func Search()
Local $aArray = StringRegExp($FileRead, '$[:alnum:][:blank:]', 2)
ConsoleWrite(' - '& $aArray[0] &' - '&@MSEC&@CRLF)
_ArrayDisplay($aArray)
EndFunc

 

So we know it has to start with $, and have [:alnum:] until [:blank:] or simply not [:alnum:] anymore. Or is there another way?

Thanks in advance
 

[kylomas]

You might want to look through Guinness's sig.  He has done a mountain of au3 parsing work.

edit: as a quick and dirty you might try this pattern...

Local $aArray = StringRegExp($FileRead, '(\$\w+)', 3)

 

Edited January 30, 2016 by kylomas
additional info

[Bowmore]

 

This will return an array of all the variable names starting with $

#include <Array.au3>
$File = FileOpenDialog('Au3 Var Searcher', @ScriptDir, 'Au3Files (*.au3)')
$FileOpen = FileOpen($File)
$FileRead = FileRead($FileOpen)
FileClose($FileOpen)
Search()
Func Search()
Local $aArray = StringRegExp($FileRead, '(\$[A-Za-z0-9_]+)[^A-Za-z0-9_]', 3)
ConsoleWrite(' - '& $aArray[0] &' - '&@MSEC&@CRLF)
_ArrayDisplay($aArray)
EndFunc

 

[careca]

Thanks a bunch, both solutions work perfect, and i was "decyphering" and it seems i was not far in terms of thinking.

I'll leave yet another pattern, now that i understood how it works

(\$[[:alnum:]_]+)[^[:alnum:]_]

Thanks a lot both!

[guinness]

19 minutes ago, kylomas said:

You might want to look through Guinness's sig.

I agree.

[careca]

Yeah, it seems you already done it with "List all unique variables in a script".

Nice.