AutoIt Snippets

[iamtheky]

I agree, this thread is a ridiculous katamari that encourages double posting and creates disjointed conversations about solutions.  snippets are examples.

[guinness]

i thnk that maybe this should have a section in the example scripts, under snippets, and each one have its own post, otherwise this post will be like the great software thread, cannot remeber name. - a lot of great stuff lost in a 100 pages. 

But I will give my 4 cents this time, as this is the exact definition of examples. Besides the other issue with search for it in our search engine, would be nearly impossible. 

 

Please excuse any spelling mistakes, I am on a cell. 

It's called Examples or wiki.

[Chimaera]

Once everyone was given powers to post on the wiki, I stopped transferring them to the wiki, because you can all do it yourself now.

It even gives you the template to do so in the first post

https://www.autoitscript.com/wiki/AutoIt_Snippets

By the look of the wiki snippets i think it has some formatting issues now prob due to the forum changes.

Edited August 14, 2015 by Chimaera

[guestscripter]

Once everyone was given powers to post on the wiki, I stopped transferring them to the wiki, because you can all do it yourself now.

It even gives you the template to do so in the first post

https://www.autoitscript.com/wiki/AutoIt_Snippets

By the look of the wiki snippets i think it has some formatting issues now prob due to the forum changes.

I agree, this thread is a ridiculous katamari that encourages double posting and creates disjointed conversations about solutions.  snippets are examples.

Benefit of posting in the Forum vs in the Wiki: Feedback, Appreciation, Comments, Update Notifications per E-Mail...

IMHO maybe there could be a "Snippets 2015", "Snippets 2015" Thread in the forum,

or maybe even "Snippets November 2015" etc. then it never gets much too long...

Personally I like checking out new posts in this thread. Just wanted to give some counter arguments to the above.

[JohnOne]

There is nothing stopping you to create  new threads with timestamps.

Sounds like a good idea to me.

[TheDcoder]

Maybe a Snippets Sub Forum for storing snippet threads?

[guinness]

Maybe a Snippets Sub Forum for storing snippet threads?

In hindsight it would have been better to have a submission sub forum and a discussion sub forum. Oh well, considering no one posts here that much, I don't see it being an issue of leaving it as it is. Ain't broke!

[TheDcoder]

Finally another snippet!

I use this little function to check if a number is present in a number (Magic numbers)... Magic numbers are powers of 2 (like 16, 32, 64 etc.) which can be added BitORed together to form a magic number...

; #FUNCTION# ====================================================================================================================
; Name ..........: IsMgcNumPresent
; Description ...: Checks if a number is a present in a number (Magic numbers aka Powers of 2)
; Syntax ........: IsMgcNumPresent($iNumber, $iMagicNumber)
; Parameters ....: $iNumber             - Number to check if it exists in $iMagicNumber.
;                  $iMagicNumber        - The number which might contain $iNumber.
; Return values .: Success: True
;                  Failure: False
; Author ........: Damon Harris (TheDcoder)
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........: http://bit.ly/IsMgcNumPresentForAutoIt
; Example .......: Yes, see below.
; ===============================================================================================================================
Func IsMgcNumPresent($iNumber, $iMagicNumber)
    Return BitAND($iMagicNumber, $iNumber) = $iNumber
EndFunc

; Example

Global Const $NUMBER = 32
Global Const $MAGIC_NUMBER = BitOR(32, 64)

ConsoleWrite(@CRLF)
ConsoleWrite('+> Is ' & $NUMBER & ' present in ' & $MAGIC_NUMBER & '?... Its ' & IsMgcNumPresent($NUMBER, $MAGIC_NUMBER) & @CRLF)
ConsoleWrite(@CRLF)

UPDATE: I have moved this snippet to Gist, I will no longer maintain this version! please check for updates in the Gist itself!

Enjoy, TD

Edited October 22, 2016 by TheDcoder
UPDATE

[Trong]

; EG---------------------------------------------- -
Local $sString = StringBetween("<test>C</test><test>B</test><test>A</test>", "<test>", "</test>")
MsgBox(0, "StringBetween", "Strings between <test> and </test>" & @CRLF & "Is: " & $sString & @CRLF & "In text: <test>C</test><test>B</test><test>A</test>")
; ------------------------------------------------ -

; #FUNCTION# ====================================================================================================================
; Name ..........: StringBetween
; Description ...: Find strings between two string delimiters
; Syntax ........: StringBetween($sString, $sStart, $sEnd)
; Parameters ....: $sString         - The string to search.
; Parameters ....: $sStart          - The beginning of the string to find.
;                  $sEnd            - The end of the string to find.
; Return values .: Success: a found string
;                  Failure: sets the @error flag to non-zero.
;                  @error: 1 - No strings found.
; Author ........: Trong
; Related .......: _StringBetween
; Example .......: Yes
; ===============================================================================================================================

Func StringBetween($sString, $sStart, $sEnd)
    $sString = StringReverse(StringTrimLeft($sString, StringInStr($sString, $sStart) + StringLen($sStart) - 1))
    $sString = StringReverse(StringTrimLeft($sString, StringInStr($sString, StringReverse($sEnd)) + StringLen($sEnd) - 1))
    Return SetError(StringLen($sString) < 1, 0, $sString)
EndFunc   ;==>StringBetween

 

Edited January 7, 2016 by Trong

[guinness]

StringLen($sString) = ""

No, this is awful, as you are relying on type coercion.

[Trong]

Sorry I forgot to fix it here, I thought I had to fix it
Thanks for your reminder!

[JohnOne]

This might seem stupid to put here, but in the absence of a shortcut key for past and go in chrome, I always have this running of late.

HotKeySet("^b", _Go)

While 3
    Sleep(333)
WEnd

Func _Go()
    Send("^v")
    Send("{Enter}")
EndFunc

 

[NotAviable]

Hello everyone!

I want to add 2-3 simple functions, very very stupid, but because I'm very lazy I'd like them to be included in official AutoIt ;-)

They are for writing messages in a simple & concise way, without bothering if you have to deal with strings or arrays. They are mostly for debug pourpose.
 

expandcollapse popup

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7

#include <Array.au3>

; Functions for writing messages in the most concise way (be it strings or array)

Local $simpleMsg="Hey you!"
Local $aMsg[3]=["Hey you!", "Not you", "You!!"]

_showAnyMsg($simpleMsg, "_showAnyMsg example", 0)
_msg($simpleMsg, "_msg example")
_msg("simplest way")
_msg($aMsg, "_msg example with array")
_bye("I'm gone!")
_msg("I had something else to say...")


;====================================================================================================================
;Function that displays a message to the user, :
;  Parameters
;    message_IN: (long) text of the message
;    title_IN  : (short) title of the message
;    msgFlag_IN: tipe of message display (see MsgBox standard function)
Func _showAnyMsg (ByRef $message_IN, $title_IN, $msgFlag_IN)
    If IsArray($message_IN) Then
        _ArrayDisplay($message_IN, $title_IN)
    Else
        MsgBox($msgFlag_IN, $title_IN, $message_IN)
    EndIf
EndFunc ;==>_showAnyMsg


;====================================================================================================================
;Function that displays a message to the user, using the simplest form:
;  Parameters
;    message_IN: (long) text of the message
;    title_IN  : (short) title of the message, default is "Message".
;    msgFlag_IN: tipe of message display (see MsgBox standard function), default is 0.
Func _msg (ByRef $message_IN, $title_IN = "Message", $msgFlag_IN = 0)
    _showAnyMsg($message_IN, $title_IN, $msgFlag_IN)
EndFunc ;==>_msg


;====================================================================================================================
;Function that displays a message to the user, using the simplest form:
;  Parameters
;    message_IN: (long) text of the message
;    title_IN  : (short) title of the message, default is "Message".
;    msgFlag_IN: tipe of message display (see MsgBox standard function), default is 0.
Func _bye (ByRef $message_IN, $title_IN = "Terminate", $msgFlag_IN = 0)
    _showAnyMsg($message_IN, $title_IN, $msgFlag_IN)
    Exit
EndFunc ;==>_bye

 

Edited February 15, 2016 by NotAviable

[Jos]

5 minutes ago, NotAviable said:

I want to add 2-3 simple functions, very very stupid, but because I'm very lazy I'd like them to be included in official AutoIt ;-)

Won't happen because we are lazy too!
Just add them in your own include file.

Jos

[water]

I'm even too lazy to post here ...

[Guest]

EDITED: REMOVED

I prefer to keep it

EDIT:

Edited February 19, 2016 by Guest

[AZJIO]

If _ch1($ch) Then
If _ch0($ch) Then

Func _ch1($id)
    Return BitAND(GUICtrlRead($id), $GUI_CHECKED)
EndFunc   ;==>_ch1

Func _ch0($id)
    Return BitAND(GUICtrlRead($id), $GUI_UNCHECKED)
EndFunc   ;==>_ch0

if desired, can be replaced by "If _ch1($ch) Then" to "BitAND(GUICtrlRead($id), $GUI_CHECKED)"

 

[Gianni]

Here an alternative to the _StringRepeat() function:

; returns the passed char (or a whole string) replicated n times
; Example1: ConsoleWrite(_StringReplicate('*', 5) & @CRLF)
; Example2: ConsoleWrite(_StringReplicate('<->', 15) & @CRLF)
;
Func _StringReplicate($sChars = "", $iRepeats = 0)
    $sChars = String($sChars)
    $iRepeats = Int(Abs(Number($iRepeats)))
    Return StringReplace(StringFormat('%' & $iRepeats & 's', ""), " ", $sChars)
EndFunc   ;==>_StringReplicate

 

[Jefrey]

EnvParse - for passing strings (paths) with environment variables (e.g.: %TEMP%\test):

Func EnvParse($str)
    $vars = StringRegExp($str, "%([^%]+)%", 3)
    For $var In $vars
        $get = EnvGet($var)
        If $get Then
            $str = StringReplace($str, "%" & $var & "%", $get)
        EndIf
    Next
    Return $str
EndFunc

Example: EnvParse("%TEMP%\test") will return something like C:\Windows\Temp\test.

Edited March 16, 2016 by Jefrey

[iamtheky]

also:

$sPath = "%TEMP%\test\subfolder1\subfolder2"
msgbox(0, '' , EnvGet(stringtrimleft(stringtrimright(stringsplit($sPath, "\" , 2)[0] , 1) , 1)) & stringmid($sPath , stringinstr($sPath , "\" , 0 , 1)))