| 1 | ; Notes by FichteFoll ########################### |
|---|
| 2 | ; - Fixed: $h_Out showing 1 randomly; now shows nothing if nothing found |
|---|
| 3 | ; - Fixed: $s_lgth can be higher than 6 using StringLen and will not be 2 if array has 10 indexes (having 9 as last) |
|---|
| 4 | ; - Fixed: WaitMessage had fixed height and width, multiple lines or too long lines would not be shown. Now generates them dynamically |
|---|
| 5 | ; - Changed: WaitMessage() or WaitMessage('') disables the SplashText (just as ToolTip); required _Max (Misc.au3) |
|---|
| 6 | ; - Changed: Using global var $h_Wnd instead of window title for WinGetPos |
|---|
| 7 | ; - Changed: Seperator character ($c_Sep) is 0x0B instead of "|" because patterns were splitted while writing into the combo control |
|---|
| 8 | ; - Changed: Tries to evaluate helpfilepath using AutoIt's install dir (RegRead64 from "AutoUpdateIt.au3") if @AutoItExe failed |
|---|
| 9 | ; Also renamed $helppath to $autoitpath |
|---|
| 10 | ; - Changed: Removed X and Y parameters for GUICreate because it's positioned in the middle of the screen by default |
|---|
| 11 | ; - Added: $h_Err will be colored red if @error <> 0 |
|---|
| 12 | ; ############################################### |
|---|
| 13 | |
|---|
| 14 | #include <GUIConstantsEx.au3> |
|---|
| 15 | #include <EditConstants.au3> |
|---|
| 16 | #include <WindowsConstants.au3> |
|---|
| 17 | |
|---|
| 18 | Opt('MustDeclareVars', 1) |
|---|
| 19 | |
|---|
| 20 | Global $s_Pattern = "(.*)", $h_Wnd, $c_Sep = Chr(11) ; 0x0B = VT |
|---|
| 21 | Global $h_Radio_0, $h_Radio_1, $h_Radio_3 |
|---|
| 22 | |
|---|
| 23 | Opt('GUIDataSeparatorChar', $c_Sep) |
|---|
| 24 | Example() |
|---|
| 25 | |
|---|
| 26 | Func Example() |
|---|
| 27 | |
|---|
| 28 | Local $initialDir = "C:\", $h_Indummy, $h_tab, $h_tabitem1, $h_In1, $msg |
|---|
| 29 | Local $h_tabitem2, $h_Brwse, $h_fileIn, $h_In2, $h_Out, $h_Pattern, $v_Reg_Old |
|---|
| 30 | Local $h_Pattern_add, $h_Pattern_del, $h_test, $h_Err, $h_Ext, $h_Help, $h_Exit |
|---|
| 31 | Local $filepath, $str2, $autoitpath, $h_In |
|---|
| 32 | |
|---|
| 33 | Readini() |
|---|
| 34 | $h_Wnd = GUICreate("StringRegExp Original Design GUI -by w0uter, modified Steve8tch and FichteFoll", 550, 570);, (@DesktopWidth - 550) / 2, (@DesktopHeight - 570) / 2) |
|---|
| 35 | GUICtrlCreateGroup("The pattern - $ptn", 10, 210, 530, 60) |
|---|
| 36 | GUICtrlCreateGroup("Output", 140, 280, 400, 280) |
|---|
| 37 | GUICtrlCreateGroup("Return", 10, 280, 120, 100) |
|---|
| 38 | GUICtrlCreateGroup("@Error @Extended", 10, 390, 120, 50) |
|---|
| 39 | GUICtrlCreateGroup("StringRegExp Help", 10, 450, 120, 50) |
|---|
| 40 | $h_Radio_0 = GUICtrlCreateRadio("True/False", 20, 300, 100, 20) |
|---|
| 41 | $h_Radio_1 = GUICtrlCreateRadio("Array with the text", 20, 321, 100, 27) |
|---|
| 42 | $h_Radio_3 = GUICtrlCreateRadio("Array of all results", 20, 350, 100, 20) |
|---|
| 43 | GUICtrlSetState($h_Radio_3, $GUI_CHECKED) |
|---|
| 44 | $h_Indummy = GUICtrlCreateEdit("", 1020, 1040, 510, 150, BitOR($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL)) |
|---|
| 45 | $h_tab = GUICtrlCreateTab(10, 10, 530, 190) |
|---|
| 46 | $h_tabitem1 = GUICtrlCreateTabItem("Copy and Paste the text to check - $str") |
|---|
| 47 | $h_In1 = GUICtrlCreateEdit("", 20, 40, 510, 150, BitOR($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL)) |
|---|
| 48 | |
|---|
| 49 | $h_tabitem2 = GUICtrlCreateTabItem("Load text from File") |
|---|
| 50 | $h_Brwse = GUICtrlCreateButton("Browse for file", 20, 40, 100, 20) |
|---|
| 51 | $h_fileIn = GUICtrlCreateEdit("", 130, 40, 400, 20, BitOR($ES_WANTRETURN, $WS_HSCROLL, $ES_AUTOHSCROLL)) |
|---|
| 52 | $h_In2 = GUICtrlCreateEdit("", 20, 70, 510, 120, BitOR($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL)) |
|---|
| 53 | |
|---|
| 54 | GUICtrlCreateTabItem(""); |
|---|
| 55 | $h_Out = GUICtrlCreateEdit("", 150, 296, 380, 262, BitOR($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL)) |
|---|
| 56 | $h_Pattern = GUICtrlCreateCombo("", 70, 230, 430, 30) |
|---|
| 57 | GUICtrlSetFont($h_Pattern, 14) |
|---|
| 58 | GUICtrlSetData($h_Pattern, $s_Pattern, "(.*)") |
|---|
| 59 | $h_Pattern_add = GUICtrlCreateButton("Add", 504, 225, 30, 18) |
|---|
| 60 | $h_Pattern_del = GUICtrlCreateButton("Del", 504, 245, 30, 18) |
|---|
| 61 | $h_test = GUICtrlCreateButton("Test", 20, 235, 40, 20) |
|---|
| 62 | $h_Err = GUICtrlCreateInput("", 20, 410, 40, 20, $ES_READONLY) |
|---|
| 63 | $h_Ext = GUICtrlCreateInput("", 70, 410, 50, 20, $ES_READONLY) |
|---|
| 64 | $h_Help = GUICtrlCreateButton("HELP", 20, 468, 100, 24) |
|---|
| 65 | $h_Exit = GUICtrlCreateButton("Exit", 10, 510, 120, 50) |
|---|
| 66 | $v_Reg_Old = 0 |
|---|
| 67 | $h_In = $h_In1 |
|---|
| 68 | GUISetState() |
|---|
| 69 | While 1 |
|---|
| 70 | $msg = GUIGetMsg() |
|---|
| 71 | Select |
|---|
| 72 | Case $msg = $GUI_EVENT_CLOSE |
|---|
| 73 | Exit |
|---|
| 74 | Case $msg = $h_test |
|---|
| 75 | _Valid($h_Out, $h_Pattern, $h_Err, $h_Ext, $v_Reg_Old, $h_In) |
|---|
| 76 | Case $msg = $h_Exit |
|---|
| 77 | Exit |
|---|
| 78 | Case $msg = $h_Brwse |
|---|
| 79 | $filepath = FileOpenDialog("Select text file to test", $initialDir, "Text files (*.*)", 1) |
|---|
| 80 | $initialDir = StringTrimRight($filepath, StringInStr($filepath, "\", "-1")) |
|---|
| 81 | GUICtrlSetData($h_fileIn, $filepath) |
|---|
| 82 | WaitMessage("Loading file..") |
|---|
| 83 | $str2 = FileRead($filepath) |
|---|
| 84 | WaitMessage("File loaded.." & @CRLF & "updating display") |
|---|
| 85 | GUICtrlSetData($h_In2, $str2) |
|---|
| 86 | WaitMessage() |
|---|
| 87 | Case $msg = $h_tab |
|---|
| 88 | If GUICtrlRead($h_tab) = 0 Then |
|---|
| 89 | $h_In = $h_In1 |
|---|
| 90 | Else |
|---|
| 91 | $h_In = $h_In2 |
|---|
| 92 | EndIf |
|---|
| 93 | Case $msg = $h_Pattern_add |
|---|
| 94 | Pattern_Add($h_Pattern) |
|---|
| 95 | |
|---|
| 96 | Case $msg = $h_Pattern_del |
|---|
| 97 | Pattern_del($h_Pattern) |
|---|
| 98 | |
|---|
| 99 | Case $msg = $h_Help |
|---|
| 100 | $autoitpath = StringLeft(@AutoItExe, StringInStr(@AutoItExe, "\", 0, -1)) |
|---|
| 101 | Run($autoitpath & "Autoit3Help.exe StringRegExp") |
|---|
| 102 | If @error = 1 Then |
|---|
| 103 | $autoitpath = RegRead64('HKLM\Software\AutoIt v3\AutoIt', 'InstallDir') |
|---|
| 104 | Run($autoitpath & "\Autoit3Help.exe StringRegExp") |
|---|
| 105 | If @error Then MsgBox(0, "error", "Cannot find help file - sorry") |
|---|
| 106 | EndIf |
|---|
| 107 | Case Else |
|---|
| 108 | ;; |
|---|
| 109 | EndSelect |
|---|
| 110 | WEnd |
|---|
| 111 | EndFunc ;==>Example |
|---|
| 112 | |
|---|
| 113 | Func _Valid(ByRef $h_Out, ByRef $h_Pattern, ByRef $h_Err, ByRef $h_Ext, ByRef $v_Reg_Old, ByRef $h_In) |
|---|
| 114 | Local $v_Reg, $v_Check, $h_output, $x, $s_lgth |
|---|
| 115 | WaitMessage("Performing test..") |
|---|
| 116 | $v_Reg = StringRegExp(GUICtrlRead($h_In), GUICtrlRead($h_Pattern), _Option()) |
|---|
| 117 | Dim $v_EE[2] = [@error, @extended] |
|---|
| 118 | If $v_EE[0] = 2 Then |
|---|
| 119 | GUICtrlSetColor($h_Pattern, 0xFF0000) |
|---|
| 120 | Else ; 1, 0 |
|---|
| 121 | GUICtrlSetColor($h_Pattern, 0) |
|---|
| 122 | EndIf |
|---|
| 123 | GUICtrlSetData($h_Err, $v_EE[0]) |
|---|
| 124 | GUICtrlSetData($h_Ext, $v_EE[1]) |
|---|
| 125 | |
|---|
| 126 | WaitMessage("Test complete.." & @CRLF & "updating display") |
|---|
| 127 | |
|---|
| 128 | If $v_EE[0] = 0 Then |
|---|
| 129 | GUICtrlSetColor($h_Err, 0) |
|---|
| 130 | $v_Check = 0 |
|---|
| 131 | If UBound($v_Reg) <> UBound($v_Reg_Old) Then |
|---|
| 132 | $v_Check = 1 |
|---|
| 133 | Else |
|---|
| 134 | For $i = 0 To UBound($v_Reg) - 1 |
|---|
| 135 | If $v_Reg[$i] <> $v_Reg_Old[$i] Then $v_Check = 1 |
|---|
| 136 | Next |
|---|
| 137 | EndIf |
|---|
| 138 | If $v_Check = 1 Then |
|---|
| 139 | GUICtrlSetData($h_Out, "") |
|---|
| 140 | $h_output = "" |
|---|
| 141 | $x = UBound($v_Reg) |
|---|
| 142 | $s_lgth = StringLen(String($x - 1)) |
|---|
| 143 | |
|---|
| 144 | If $x Then |
|---|
| 145 | For $i = 0 To $x - 1 |
|---|
| 146 | $h_output &= StringFormat("%0" & $s_lgth & "i", $i) & ' => ' & $v_Reg[$i] & @CRLF |
|---|
| 147 | Next |
|---|
| 148 | GUICtrlSetData($h_Out, $h_output) |
|---|
| 149 | Else |
|---|
| 150 | GUICtrlSetData($h_Out, $v_Reg) |
|---|
| 151 | EndIf |
|---|
| 152 | EndIf |
|---|
| 153 | Else ; $v_EE[0] = 1 or 2 |
|---|
| 154 | GUICtrlSetData($h_Out, "") |
|---|
| 155 | GUICtrlSetColor($h_Err, 0xFF0000) |
|---|
| 156 | EndIf |
|---|
| 157 | |
|---|
| 158 | WaitMessage() |
|---|
| 159 | $v_Reg_Old = $v_Reg |
|---|
| 160 | StringRegExp('', Random(0x80000000, 0x7FFFFFFF), 1) |
|---|
| 161 | EndFunc ;==>_Valid |
|---|
| 162 | |
|---|
| 163 | Func _Option() |
|---|
| 164 | Switch $GUI_CHECKED |
|---|
| 165 | Case GUICtrlRead($h_Radio_0) |
|---|
| 166 | Return 0 |
|---|
| 167 | Case GUICtrlRead($h_Radio_1) |
|---|
| 168 | Return 1 |
|---|
| 169 | Case GUICtrlRead($h_Radio_3) |
|---|
| 170 | Return 3 |
|---|
| 171 | EndSwitch |
|---|
| 172 | EndFunc ;==>_Option |
|---|
| 173 | |
|---|
| 174 | Func Readini() |
|---|
| 175 | Local $h_x |
|---|
| 176 | |
|---|
| 177 | If FileExists(@ScriptDir & "\StringRegExpGUIPattern.ini") = 0 Then |
|---|
| 178 | $h_x = FileOpen(@ScriptDir & "\StringRegExpGUIPattern.ini", 1) |
|---|
| 179 | FileWriteLine($h_x, "[do not delete the file - Patterns are listed below]") |
|---|
| 180 | FileWriteLine($h_x, "(.*)##~##") |
|---|
| 181 | FileClose($h_x) |
|---|
| 182 | Else |
|---|
| 183 | $s_Pattern = FileRead(@ScriptDir & "\StringRegExpGUIPattern.ini") |
|---|
| 184 | $s_Pattern = StringTrimLeft($s_Pattern, StringInStr($s_Pattern, @CRLF) + 1) |
|---|
| 185 | $s_Pattern = StringReplace($s_Pattern, "##~##" & @CRLF, $c_Sep) |
|---|
| 186 | EndIf |
|---|
| 187 | EndFunc ;==>Readini |
|---|
| 188 | |
|---|
| 189 | Func Pattern_del($h_Pattern) |
|---|
| 190 | Local $s_ini, $h_x |
|---|
| 191 | |
|---|
| 192 | $s_ini = FileRead(@ScriptDir & "\StringRegExpGUIPattern.ini") |
|---|
| 193 | $h_x = FileOpen(@ScriptDir & "\StringRegExpGUIPattern.ini", 2) |
|---|
| 194 | If GUICtrlRead($h_Pattern) = "" Then |
|---|
| 195 | $s_ini = StringReplace($s_ini, "##~##" & @CRLF & "##~##", "##~##") |
|---|
| 196 | $s_ini = StringReplace($s_ini, @CRLF & @CRLF, @CRLF) |
|---|
| 197 | Else |
|---|
| 198 | $s_ini = StringReplace($s_ini, GUICtrlRead($h_Pattern) & "##~##", "") |
|---|
| 199 | $s_ini = StringReplace($s_ini, @CRLF & @CRLF, @CRLF) |
|---|
| 200 | EndIf |
|---|
| 201 | FileWrite($h_x, $s_ini) |
|---|
| 202 | FileClose($h_x) |
|---|
| 203 | Readini() |
|---|
| 204 | GUICtrlSetData($h_Pattern, $c_Sep & $s_Pattern, "(.*)") |
|---|
| 205 | EndFunc ;==>Pattern_del |
|---|
| 206 | |
|---|
| 207 | Func Pattern_Add($h_Pattern) |
|---|
| 208 | Local $h_x |
|---|
| 209 | |
|---|
| 210 | $h_x = FileOpen(@ScriptDir & "\StringRegExpGUIPattern.ini", 1) |
|---|
| 211 | FileWriteLine($h_x, GUICtrlRead($h_Pattern) & "##~##") |
|---|
| 212 | FileClose($h_x) |
|---|
| 213 | Readini() |
|---|
| 214 | GUICtrlSetData($h_Pattern, "|" & $s_Pattern, GUICtrlRead($h_Pattern)) |
|---|
| 215 | EndFunc ;==>Pattern_Add |
|---|
| 216 | |
|---|
| 217 | Func WaitMessage($s_txt = '') |
|---|
| 218 | If $s_txt = '' Then Return SplashOff() |
|---|
| 219 | Local $a_pos = WinGetPos($h_Wnd), $i_height, $i_width = 10, $a_Reg |
|---|
| 220 | |
|---|
| 221 | $a_Reg = StringRegExp($s_txt, "(.*)", 3) |
|---|
| 222 | $i_height = UBound($a_Reg) * 13 + 20 |
|---|
| 223 | For $i = 0 To UBound($a_Reg) - 1 |
|---|
| 224 | $i_width = __Max($i_width, StringLen($a_Reg[$i])) |
|---|
| 225 | Next |
|---|
| 226 | $i_width = $i_width * 8 + 30 |
|---|
| 227 | SplashTextOn("Please wait", $s_txt, $i_width, $i_height, $a_pos[0] + ($a_pos[2] - $i_width) / 2, $a_pos[1] + ($a_pos[3] - $i_height) / 2, 32) |
|---|
| 228 | EndFunc ;==>WaitMessage |
|---|
| 229 | |
|---|
| 230 | Func __Max($nNum1, $nNum2) |
|---|
| 231 | If $nNum1 > $nNum2 Then Return $nNum1 |
|---|
| 232 | Return $nNum2 |
|---|
| 233 | EndFunc ;==>__Max |
|---|
| 234 | |
|---|
| 235 | Func RegRead64($sKeyname, $sValue) |
|---|
| 236 | Local $res = RegRead($sKeyname, $sValue) |
|---|
| 237 | If @error And @AutoItX64 Then |
|---|
| 238 | $sKeyname = StringReplace($sKeyname, "HKEY_LOCAL_MACHINE", "HKLM") |
|---|
| 239 | $sKeyname = StringReplace($sKeyname, "HKLM\SOFTWARE\", "HKLM\SOFTWARE\Wow6432Node\") |
|---|
| 240 | $res = RegRead($sKeyname, $sValue) |
|---|
| 241 | If @error Then |
|---|
| 242 | SetError(1) |
|---|
| 243 | Return "" |
|---|
| 244 | EndIf |
|---|
| 245 | EndIf |
|---|
| 246 | |
|---|
| 247 | SetError(0) |
|---|
| 248 | Return $res |
|---|
| 249 | EndFunc |
|---|
