StringSearch (Function)

 The function supports Regular Expressions!

v1.1:

 v1.1 Changes:
- RegEx subpatterns can be searched now!
- "StringLengh" and "RegExError" return options added!
- Performance Improved!

".exe" and extra files, v1.1:
http://www.mediafire.com/file/8ogi8cf62lufejz/StringSearch%28Function%29_-_v1.1.rar

v1.0:

".exe" and extra files, v1.0:
http://www.mediafire.com/file/1e0yh1sd8kxm9uq/StringSearch%28Function%29_-_v1.0.rar


keywords:
StringSearch (AutoHotKey)
StringSearch (Function)
Search function
Search String
Search text
Search word
search character

C_Caret (Function)

v1.0:


Get Caret info relative to the specified control's client area!

First, the function must be called specifying a Control hwnd in order to get the caret S,L,X,Y positions!
Example, C_Caret(ControlId)

Then specify one of the letters to get their values!
Get Caret String Position, C_Caret("S")
Get Caret Line Position, C_Caret("L")
Get Caret X Position, C_Caret("X")
Get Caret Y Position, C_Caret("Y")

Extra files (v1.0):
http://www.mediafire.com/file/8fvk7l37dwi097v/C_Caret%28Function%29_-_v1.0.rar


Keywords:
C_Caret (AutoHotKey)
C_Caret (Function)
Get Caret info relative to the specified control's client area!
Get Caret Pos relative to the specified control's client area!
Get Caret String Position relative to the specified control's client area!
Get Caret x y coordinates relative to the specified control's client area!

Functions Multiple Values Return

Keywords:
Functions Multiple Values Return

ClientAreaGetPos (Function)

v1.0:


ClientAreaGetPos(Function), this function returns the window or control client area xy pos relative to screen upper-left corner!

First, the function must be called specifying the win or control hwnd id in order to get xy pos!
Example, ClientAreaGetPos(WinId) or ClientAreaGetPos(ControlId)

Then, specify x or y and the function will return their values!
Example, ClientAreaGetPos("x") or ClientAreaGetPos("y")

Extra files, v1.0:
http://www.mediafire.com/file/67st5ailb0xu9fy/ClientAreaGetPos%28Function%29_-_v1.0.rar


Keywords:
ClientAreaGetPos(Function)

Practical Function ByRef Example

Test(A, B, C) Zate(D, E, F) Xaxa(G, H, I) ;after the function calls, A,B,C,D,E,F,H values will be the same as their correspondent functions ByRef Parameters values! ;after the function calls, G,I variables values will still blank because their correspondent function parameters do not use ByRef option! msgbox, % "" . A " - " B " - " C "`n" . D " - " E " - " F "`n" . G " - " H " - " I "`n" Test(ByRef X, ByRef Y, ByRef Z) { X := 111 Y := 222 Z := 333 } Zate(ByRef X, ByRef Y, ByRef Z) { X := 444 Y := 555 Z := 666 } Xaxa(X, ByRef Y, Z) { X := 777 Y := 888 Z := 999 }



Keywords:
Practical Function ByRef Example

Create a Gui Window with a Function

NewGui() NewGui() ;_______________ NewGui(Function) _________________ { static Edit1Id, Edit2Id ;"Static" variables are always implicitly "local", but differ from "locals" variables because their values are remembered between calls. ;"GuiControl" and "GuiControlGet" don't work well with static variables associated with gui controls! But they work perfectly well with static variables that contain gui controls Hwnd id number! ;Unlike "GuiControlGet", "Gui, Submit" can Save the contents of each control to its associated Static variable! (Strange!) gui, add, edit, w400 h100 gRealTimeUpdate +HwndEdit1Id, Type or copy\paste any text here gui, add, edit, w400 h100 +ReadOnly +HwndEdit2Id, Output ;"+Hwnd" stores the control hwnd id number in "Edit1Id" and "Edit2Id" static variables gui, show return RealTimeUpdate: ;____ Real Time Update ____ guicontrolget, Text1, , % Edit1Id guicontrol, , % Edit2Id, % Text1 return guiclose: ;___ gui close ___ exitapp }


Keywords:
Create a Gui Window with a Function

Hash Checksum - File String Hex (Functions)

Download script here:
http://www.mediafire.com/file/4tbi7gel6160txy/Hash_Checksum_-_File_String_Hex_%28Functions%29.rar


Keywords:
Hash Checksum - File String Hex (AutoHotKey)
Hash Checksum - File String Hex (Functions)

Get System Info

Get Operating System Info

;https://autohotkey.com/boards/viewtopic.php?t=1976 ;http://msdn.microsoft.com/en-us/library/aa394105%28v=vs.85%29.aspx ;--------------------------------------------------------------------------- objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") colSettings := objWMIService.ExecQuery("Select * from Win32_OperatingSystem")._NewEnum While colSettings[objOSItem] { OSInfo .= "Build Number = " objOSItem.BuildNumber "`r`n" OSInfo .= "Caption = " objOSItem.Caption "`r`n" OSInfo .= "InstallDate = " objOSItem.InstallDate "`r`n" OSInfo .= "SerialNumber = " objOSItem.SerialNumber "`r`n" } msgbox, % OSInfo

Get Computer Product Info

;https://autohotkey.com/boards/viewtopic.php?t=1976 ;http://msdn.microsoft.com/en-us/library/aa394105%28v=vs.85%29.aspx ;--------------------------------------------------------------------------- PropertyList := "Caption,Description,IdentifyingNumber,Name,SKUNumber,UUID,Vendor,Version" objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . A_ComputerName . "\root\cimv2") WQLQuery := "Select * From Win32_ComputerSystemProduct" colSysProduct := objWMIService.ExecQuery(WQLQuery)._NewEnum While colSysProduct[objSysProduct] Loop, Parse, PropertyList, `, ProductInfo .= A_LoopField . ":`t" . objSysProduct[A_LoopField] . "`n" MsgBox % ProductInfo

Download extra files here:
http://www.mediafire.com/file/jo255j6mlivjgju/Get_System_Info.rar


Keywords:
Get System Info (AutoHotKey)
Get Computer Product Info (Model, id Numbers - AutoHotKey)
Get Operating System Info (AutoHotKey)
Common Windows Management Instrumentation, WMI, tasks (AutoHotkey)

ColRandomSort (Function)

v1.0:



Keyword:
ColRandomSort (AutoHotKey)
ColRandomSort (Function)
Listview Random Sort Columns (Function)

ConvertSpecialStrings (Function)

- "#" is a special character ("##" represents a literal "#" character - The First "#" escapes the second "#")
- #R, #N, #A, #T, #S are special strings! (#R = `r, #N = `n, #A = `a, #T = `t, #S = Space)
- ##R = #R | ##N = #N | ##A = #A | ##T = #T | ##S = #S
- #AnyNumber# is a special string (Example: #65# = A, #66# = B, in the other hand, ##65## = #65#, ##66## = #66#)
- #AnyNumber# is automatically converted to its correspondent unicode character!

Download script and ".exe" file (32 bit Unicode) here:
http://www.mediafire.com/file/ubi4s329sefnz7z/ConvertSpecialStrings_%28Function%29.rar



Old Function bellow - ConvertSpecialChars(Function)

Keywords:
ConvertSpecialStrings (Function)
Convert Special Strings (Function)
ConvertSpecialChars (Function)
Convert Special Chars (Function)
Convert Special Characters (Function)
Autohotkey escape characters system
Autohotkey escaping characters system

MultiStringReplace (Function)

Download here:
http://www.mediafire.com/file/hczc4pwsp7ahpsf/MultiStringReplace_v1.0_%28Function%29.rar


Keywords:
MultiStringReplace Function
Multi String Replace Function
Encryption Decryption AutoHotKey

Blank Characters

StringCaseSense, On ;"=" is always case insensitive ("On" is locale, "Off" is off, "Locale" is locale) ;"==" is always case sensitive ("On" is on, "Off" is on, "Locale" is on) ;By contrast, "<>" and "!= "obey StringCaseSense ("On" is on, "Off" is off, "Locale" is locale) ;On: String comparisons are case sensitive. This setting also makes the expression equal sign operator (=) and the case-insensitive mode of InStr() use the locale method described below. ;Off (starting default): The letters A-Z are considered identical to their lowercase counterparts. This is the starting default for all scripts due to backward compatibility and performance (Locale is 1 to 8 times slower than Off depending on the nature of the strings being compared). ;Locale [v1.0.43.03+]: String comparisons are case insensitive according to the rules of the current user's locale. For example, most English and Western European locales treat not only the letters A-Z as identical to their lowercase counterparts, but also ANSI letters like Ä and Ü as identical to theirs. ;"Locale", some sytems insensitive locale rules consider some Unicode Characters as "Blank" Characters gui, PleaseWait: add, text, w400 r10 center 0x200 , Please Wait!!! ;"0x200" center text vertically (but "`n" or "`r`n" will not represent new lines) gui, PleaseWait: show, , % "Searching" loop, 1114111 { ;"=" is always case insensitive ("On" is locale, "Off" is off, "Locale" is locale) ;"Locale", some sytems insensitive locale rules consider some Unicode Characters as "Blank" Characters if (chr(a_index) = "") ;since the Main scipt "StringCaseSense" option is "On", single equal sign "=" will use the system "Locale" insensitive rules LocaleBlankChars .= a_index a_tab chr(a_index) "`r`n" } gui, add, text, x20 center, Blank characters found based on the "System Case Insensitive Locale" rules! gui, add, edit, w400 h300 xm +HwndControlId, ControlSetText, , % LocaleBlankChars, % "ahk_id" ControlId gui, PleaseWait: destroy gui, show, , % "Found" SendMessage, 0xB1, 0, 0,, % "ahk_id" ControlId ;"0xB1", EM_SETSEL (select text from position x to y) ;"0, 0" deselect any text in the control (must be executed after "gui, show" above) ;"ahk_id" search control by their hwnd id number return guiclose: ;_____________ gui close ________________ pleasewaitguiclose: exitapp


Keywords:
Find Unicode Blank characters based on the System Case Insensitive Locale rules

TextCompare (Function)

Download link(v1.1):
http://www.mediafire.com/file/se7cxxwz3ptpno9/TextCompare_v1.1_%28Function%29.rar

v1.1 Changes:
- Since "RegEx" can't handle Unicode Surrogate characters, "SubStr( )" function is used instead "RegExMatch( )" function 


Keywords:
Compare 2 texts
Find differences between 2 texts
compare 2 texts to see if they match each other

StringCaseSense - Alternative to Equal Sign

StringCaseSense, On ;such a mess this thing! "=" is "Case insensitive Locale" instead "Case sensitive" when "StringCaseSense" option is "On"? Haha! Such a joke! x := "A" y := "a" if not (x != y) ;is the same as "if (x = y)", but since "=" is always case-insensitive, even if "StringCaseSense" is "On", "!=" is a good alternative msgbox, x = y ;"!=" obey "StringCaseSense" option ("On" is on, "Off" is off, "Locale" is locale!) else msgbox, x != y (Correct) if (x = y) msgbox, x = y (Incorrect) else msgbox, x != y


Keywords:
StringCaseSense - Alternative to Equal Sign (!=)
StringCaseSense - Alternative to = Sign (!=)

Show Selected Text from Unfocused Controls

loop, 100 text .= "Line" a_tab a_index "`r`n" gui, add, edit, w200 h200 0x100 +HwndControl1Id, % text gui, add, edit, x+5 w200 h200 0x100 +HwndControl2Id, % text gui, add, edit, xm w200 h200 0x100 +HwndControl3Id, % text gui, add, edit, x+5 w200 h200 0x100 +HwndControl4Id, % text ;"0x100", ES_NOHIDESEL (show control selected text, even if the control is not focused) ;"+Hwnd" stores the control Hwnd id number in "Control1Id", "Control2Id", etc variabes gui, show, , % "Show Text Selected from all controls" ;"0xB1", EM_SETSEL (select text from position x to y) ;select text from position "16" to "80" (must be executed after "gui, show" above) ;"ahk_id" search control by their hwnd id number SendMessage, 0xB1, 16, 80,, % "ahk_id" Control1Id SendMessage, 0xB1, 16, 80,, % "ahk_id" Control2Id SendMessage, 0xB1, 16, 80,, % "ahk_id" Control3Id SendMessage, 0xB1, 16, 80,, % "ahk_id" Control4Id return guiclose: ;___________ Gui Close ___________ exitapp


Keywords:
Show Selected Text from Unfocused Controls
show selected text even if control is not focused

Select Control Text - Show selected text

loop, 100 text .= "Line" A_tab a_index "`r`n" gui, add, edit, w500 h300 +HwndControlId 0x100, % text ;"0x100", ES_NOHIDESEL (show control selected text, even if the control is not focused) ;"+Hwnd" stores the control Hwnd id number in "ControlId" variabe gui, add, button, gShow, Select and Show string from position 400 to 500 gui, show, , % "Select Control Text - Show selected text" SendMessage, 0xB1, 0, 0,, % "ahk_id" ControlId ;"0xB1", EM_SETSEL (select text from position x to y) ;"0, 0" deselect any text in the control (must be executed after "gui, show" above) ;"ahk_id" search control by their hwnd id number return show: ;________ show ___________ SendMessage, 0xB1, 400, 500,, % "ahk_id" ControlId SendMessage, 0xB7, 0, 0,, % "ahk_id" ControlId ;"0xB1", EM_SETSEL (select text from position x to y) ;"0xB7", EM_SCROLLCARET (Scroll control to the Cursor position) ;"ahk_id" search control by their hwnd id number ControlFocus, , % "ahk_id" ControlId ;focus the "EditBox" Control ;"ahk_id" search control by their hwnd id number return guiclose: ;________ Gui Close _________ exitapp

loop, 60 text .= "AAAAAAAA" gui, add, edit, w300 h200 +HwndControlId, % text gui, add, button, vCarteStar gSelect, Select String (Caret at Start) gui, add, button, vCaretEnd x+5 gSelect, Select String (Caret at End) gui, add, button, xm gSelectAll, Select All gui, add, button, x+5 gRemoveSel vKeepCaretPos, Remove Selection (Keep Caret Pos) gui, add, button, xm gRemoveSel vMoveCaretStart, Remove Selection (Move Caret Start) gui, add, button, xm gRemoveSel vMoveCaretEnd, Remove Selection (Move Caret End) gosub, RemoveSel gui, show return Select: ;_______ Select ________ if (A_GuiControl = "CaretEnd") Start := 100, End := 200 else Start := 200, End := 100 ;"0xB1", EM_SETSEL ;if Start < End select from left to right ;if Start > End select from right to left SendMessage, 0xB1, % Start, % End, , % "ahk_id" ControlId ControlFocus, , % "ahk_id" ControlId return SelectAll: ;_______ Select All _________ ;Select all SendMessage, 0xB1, 0, -1, , % "ahk_id" ControlId ControlFocus, , % "ahk_id" ControlId return RemoveSel: ;________ Remove Sel _______ if (a_guicontrol = "KeepCaretPos") SendMessage, 0xB1, -1, 0, , % "ahk_id" ControlId ;Remove selection and keep "caret" position unchanged! if (a_guicontrol = "MoveCaretStart") SendMessage, 0xB1, 0, 0, , % "ahk_id" ControlId ;Remove selection and move "caret" position to the Start of the control! if (a_guicontrol = "MoveCaretEnd") SendMessage, 0xB1, -2, -1, , % "ahk_id" ControlId ;Remove selection and move "caret" position to the End of the control! ControlFocus, , % "ahk_id" ControlId return guiclose: ;________ gui close _______ exitapp


Keywords:
prevent Edit control all text selected at execution
Deselect Unselect Edit Control Text

Dynamic Gui Window

 

 

AppTitle := "Dynamic Gui Window" AppVersion := "v1.0" gui, +Resize ;"+Border" option should be used to help with controls reposition ;"BackgroundTrans", transparent background ;"center", center text horizontaly gui, add, text, w210 h80 vTextControl1 center -Border BackgroundTrans, Edit 1 `n`n0`n0`n0 gui, add, text, w210 h80 vTextControl2 center -Border BackgroundTrans, Edit 2 `n`n0`n0`n0 gui, add, text, w150 h30 vStatusControl -Border center BackgroundTrans, 0 ;"r2", any resizable "edit" control must be 2 line at least, otherwise, "Enter" key does not create new lines and "`r`n" can't be copy\pasted gui, add, edit, w300 r2 vEditBox1 gKeyPress +HScroll, gui, add, edit, w300 r2 vEditBox2 gKeyPress +HScroll, Gui, Add, Link, vLinkControl, <a href="www.google.com">www.google.com</a> gui, show, W800 H500, % AppTitle " (" AppVersion ")" return KeyPress: ;__________ KeyPress _____________ KeyPressCount++ guicontrol, , TextControl1, % "" . "Edit 1`r`n`r`n" . KeyPressCount "`r`n" . KeyPressCount "`r`n" . KeyPressCount "`r`n" guicontrol, , TextControl2, % "" . "Edit 2`r`n`r`n" . KeyPressCount "`r`n" . KeyPressCount "`r`n" . KeyPressCount "`r`n" guicontrol, , StatusControl, % KeyPressCount return guisize: ;___________ Gui Size ________________ ;If A_EventInfo = 1 ;The window has been minimized! guicontrol, move, EditBox1, % "x5 y5 w" A_GuiWidth / 2 - 7.5 "h" A_GuiHeight - 120 guicontrol, move, EditBox2, % "x" A_GuiWidth / 2 + 2.5 "y5 w" A_GuiWidth / 2 - 7.5 "h" A_GuiHeight - 120 ;GuiControlGet pos, will store the specified control "Horizontal\Vertical\Widh\Heigth" values in "TempPosX\TempPosY\TempPosW\TempPosH" variables ;A_GuiWidth * 0.25 = 25% of Gui Window Width | A_GuiWidth * 0.50 = 50% of Gui Window Width | A_GuiWidth * 0.75 = 75% of Gui Window Width GuiControlGet, TempPos, pos, TextControl1 guicontrol, move, TextControl1, % "x" A_GuiWidth * 0.25 - TempPosW / 2 "y" A_GuiHeight - 110 GuiControlGet, TempPos, pos, TextControl2 guicontrol, move, TextControl2, % "x" A_GuiWidth * 0.75 - TempPosW / 2 "y" A_GuiHeight - 110 GuiControlGet, TempPos, pos, StatusControl guicontrol, move, StatusControl, % "x" A_GuiWidth * 0.50 - TempPosW / 2 "y" A_GuiHeight - 80 GuiControlGet, TempPos, pos, LinkControl guicontrol, move, LinkControl, % "x" A_GuiWidth * 0.50 - TempPosW / 2 "y" A_GuiHeight - TempPosH - 10 WinSet, Redraw ;redraw gui window after controls reposition in order to prevent graphic glitches return guiclose: ;____________ Gui Close ______________ exitapp


keywords:
Dynamic Gui Window (AutoHotKey)
Dynamically resize Gui controls (AutoHotKey)
Dynamically resize Gui Window and gui controls (AutoHotKey)

StringCount (Function)

v1.1


Download link - v1.1:
http://www.mediafire.com/file/0ee4ahdvrbmwqmr/StringCount_-_v1.1_%28Function%29.rar

v1.1 - Changes:
 - The function now uses "InStr()" function instead "RegExMatch()" function! (Faster)
 - the function now makes use of "StrReplace()" function!
 - if "Options" does not contain "RegEx" string, "StrReplace()" function will be used instead "RegExReplace()" function!

"StrReplace( )" is faster and can handle Unicode surrogate characters!
"RegExReplace( )" is slower and can't handle Unicode surrogate characters!

v1.0
http://www.mediafire.com/file/2f1mimmxtsbvgw7/StringCount_-_v1.0_%28Function%29.rar


Keywords:
Count characters or string occurrences within a text, variable, etc, etc
Counting occurring of a string inside a variable
Count number of specific character in string
Count of substring occurrences within a string

Compare Numbers as String

x = 001.00 y = 1 if (x = y) ;since "x" and "y" are numbers, they will be compared numerically, so, for example, "001.00" is the same as "1"! msgbox, Yes! `r`n`r`nThey are numerically the same! else msgbox, No! `r`n`r`nThey are not numerically the same! if ( "String" x = "String" y) ;since "String" string is added to "x" and "y", they will be compared alphabetically msgbox, Yes! `r`n`r`nThey are alphabetically the same! ;so, for example, "String001.00" is not the same as "String1" else ;Any Character\String or none at all can be used instead "String" to trigger alphabetic comparison msgbox, No! `r`n`r`nThey are not alphabetically the same! ;Examples: if ("" x = "" y) | if ("S" x = "S" y) | if ("0" x = "0" y) | if ("Alph" x = "Alph" y) | etc, etc, etc ;(Optional): use 2 equal signs "==" for Case-Sensitive comparison (example, "A" is not "a") ;___________________ Large Numbers Issue\Bug _______________________________________________ x = 0123456789876543210123456789 y = 0123456789876543210123456789876543210 ;note that "x" and "y" are not numerically the same, but since Autohotkey does not support such large numbers, ;it will wrongly return that "x" is numerically the same as "y" (maybe a Bug that needs to be fixed) if (x = y) ;since "x" and "y" are numbers, they will be compared numerically, so, for example, "001.00" is the same as "1"! msgbox, Yes! `r`n`r`nThey are numerically the same! else msgbox, No! `r`n`r`nThey are not numerically the same! if ( "String" x = "String" y) ;since "String" string is added to "x" and "y", they will be compared alphabetically msgbox, Yes! `r`n`r`nThey are alphabetically the same! ;so, for example, "String001.00" is not the same as "String1" else ;Any Character\String or none at all can be used instead "String" to trigger alphabetic comparison msgbox, No! `r`n`r`nThey are not alphabetically the same! ;Examples: if ("" x = "" y) | if ("S" x = "S" y) | if ("0" x = "0" y) | if ("Alph" x = "Alph" y) | etc, etc, etc ;(Optional): use 2 equal signs "==" for Case-Sensitive comparison (example, "A" is not "a")

ListViewSave - ListViewLoad (Functions)

Download here:
http://autohotkeycoder.blogspot.com/2016/11/listview-control-editable-table-grid.html


Keywords:
ListViewSave - ListViewLoad (AutoHotKey)
AutoHotKey ListView Control Save and Load Functions