Find all words starting with...

[VelvetElvis]

I'm trying to create a list of all occurrences of variables in an Autoit file. Unfortunately, my regex skills suck badly.

I found a snippet elsewhere here, which at first glance, works pretty well...

$aArray = StringRegExp($varFileContents, "(\$\w{1,50})(?:\s|\[)", 3)

...but doesn't grab variables in situations like this:

_ArraySort($aBefore)

or

_ArrayDelete($aSkills, 0)

Appreciate any help. Here's the code so far:

#include <Array.au3>

; Select file
While 1
$filename = FileOpenDialog("Select a file", @DesktopCommonDir, "AU3 files (*.au3)", 1)
If $filename <> "" Then
ExitLoop
Else
$answer = MsgBox(36, "Check Variables", "No file selected. Exit Program?")
If $answer = 6 Then Exit
EndIf
WEnd

$varFileContents = FileRead($filename)
$aArray = StringRegExp($varFileContents, "(\$\w{1,50})(?:\s|\[)", 3)
_ArraySort($aArray)
_ArrayDisplay($aArray)

[water]

Have you tried Tidy? It can generate a cross reference listing of variables and functions.

[czardas]

This seems to work.

StringRegExp($sString, "\$\w+", 3)

[VelvetElvis]

  On 2/21/2013 at 12:50 PM, 'water said:

Have you tried Tidy? It can generate a cross reference listing of variables and functions.

Yes, in fact I have, but the results don't seem to be correct: I put this at the top of a file:

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Tidy=y
#Tidy_Parameters=/gd /gds
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

And here's the results:

#### indicates that this specific variable only occurs one time in the script.
---- indicates that this specific variable isn't declared with Dim/Local/Global/Const.
== Variables ======================================================================================================
Variable name            Dim Used in Row(s)
========================= ===== ===================================================================================
$UsedOnce                ----- 00011
$aBefore                 ----- 00019 00020
$aSkills                 ----- 00023
$filename                ----- 00012 00017
$myfile              ----- 00022
$test1               ----- 00010
$test2               ----- 00013
$whiz                    ----- 00017 00019

There are several variables that only appear once, as shown above, but they're not indicated with "####", as I would expect. As well, in my test I have this line: "Global $test1[1]", and the Tidy report shows it as not being declared with "Dim/Local/Global/Const".

Perhaps I'm misunderstanding the output.

[VelvetElvis]

  On 2/21/2013 at 1:04 PM, 'czardas said:

This seems to work.

StringRegExp($sString, "\$\w+", 3)

Yes, a quick test seems to indicate that's what I need. Thanks!!

[water]

Which version of Tidy do you run? This information is displayed in the Scite output pane.

Tidy AutoIt3 v2.2.2.0 Copyright © Jos van der Zande February 19, 2012

[PhoenixXL]

  Quote

Yes, a quick test seems to indicate that's what I need. Thanks!!

Variables inside quotes and comments would create a problem

Check this out

expandcollapse popup

#include <Array.au3>


$FileContents = FileRead(@ScriptFullPath)
_ListVars( $FileContents )


Func _ListVars($sString)
$sString = Strip_Comments_Quotes($FileContents)

$aArray = StringRegExp($sString, "(\$\w+)", 3)

;Comment the following two lines for receiving the number of times the vars occured
$aArray = _ArrayUnique( $aArray )
_ArrayDelete( $aArray, 0 )

_ArraySort($aArray)
_ArrayDisplay($aArray)
EndFunc ;==>_ListVars

Func Strip_Comments_Quotes($sString)

Local $Ret, $Comment = False
Local $aArray = StringRegExp($sString, '(?m)(?:[^\r\n]+[\r\n]|[^\r\n]+$)', 3)
;_ArrayDisplay( $aArray )
For $a = 0 To UBound($aArray) - 1
$sString = $aArray[$a]

;Replace the Quotes
$aRet = StringRegExpReplace($sString, '(?s)([''"])(.*?\1)', '')

;Number of Semi-Colon in comments
StringRegExpReplace($aRet, ';', '')
$Comment = @extended

;Replace the Comments
$aRet = StringRegExpReplace($aRet, '(?m)(;.*?$)', '')

;Check Comments
If $Comment Then
;Replace the first semicolon which starts the comment
$sString = StringRegExpReplace($sString, '(.*)(;[^;\r\n]*){' & $Comment & '}', '\1')
EndIf
$Ret &= $sString
Next

Return $Ret
EndFunc ;==>Strip_Comments_Quotes

Edited February 21, 2013 by PhoenixXL

[czardas]

  On 2/21/2013 at 2:07 PM, 'VelvetElvis said:

Yes, a quick test seems to indicate that's what I need. Thanks!!

No problem.

  On 2/21/2013 at 2:34 PM, 'PhoenixXL said:

Variables inside quotes and comments would create a problem

Yeah, you might want to strip out the comments and strings first.

[guinness]

SciTE Jump can provide a list as well.

[VelvetElvis]

  On 2/21/2013 at 2:08 PM, 'water said:

Which version of Tidy do you run? This information is displayed in the Scite output pane.

Tidy AutoIt3 v2.2.2.0 Copyright © Jos van der Zande February 19, 2012

I was one version back with SciTE, but have since updated.

Here's the output from SciTE

>Running Tidy (2.2.2.0) from:C:\Program Files\AutoIt3\SciTE\tidy
Documentation file:D:\AutoIt\AutoIt scripts\TOOLS\CountVariables\CountVariables_tidy.txt
+>12:53:52 Tidy ended.rc:0

The file created by Tidy shows the output I quoted earlier. The line I don't understand is

"#### indicates that this specific variable only occurs one time in the script."

In the output, there are variables that do only exist once, but they aren't indicated by "####"

Perhaps I don't understand how to tell via the xxxx_tidy.txt which variables occur only once, other than by counting the rows that the vars appear in.

[VelvetElvis]

  On 2/21/2013 at 3:23 PM, 'guinness said:

SciTE Jump can provide a list as well.

Thanks. I have it in my Tools dropdown, but when I call it up, the list says "No jump data found" is all I see. It's either not installed properly, or more likely, I don't know how to use it.

It definitely helps to run it with an app that has functions. :-)

I don't see how to generate a variables list though.

Edited February 21, 2013 by VelvetElvis

[DXRW4E]

#include <Array.au3>
Local $aArray = StringRegExp(FileRead(@ScriptFullPath), '(?<!\w|\$)(\$\w+)', 3)
_ArraySort($aArray, 1)
_ArrayDisplay($aArray)

Ciao.

Edited February 21, 2013 by DXRW4E