AutoIt Wiki - User contributions [en]

Forums

2016-01-07T17:19:57Z

Trong: /* Unofficial Forums */

In order to receive support and share your own scripts you may sign up for one or more of the forums.

= Official Forums =

The official forum is a very good place to get help and share scripts.
It has a lot of members and is often praised for its quick and professional help and support.
One of the advantages of AutoIt over other, more global, languages - is the concentrated community.
There you are posting alongside the developers of the code, so chances are they know what they're talking about!

[http://www.autoitscript.com/forum/index.php AutoIt Forums]

== Searching the Forums ==

The AutoIt forum allows for users to form powerful search queries which is a boon to any AutoIt user.
If the answer to a question is not found in the [[Documentation|help file]] then a search of the forum is in order.
Before you post a question it is always better to search the forums first to see if your question has been answered before.
There are two common ways to search the forum:

* [http://www.autoitscript.com/forum/index.php?act=Search AutoItScript Forum Search]

* [http://www.google.com Google]

The [http://www.autoitscript.com/forum/index.php?autocom=downloads file downloads] section of the site can also be searched.

=== Using Google ===

The forum search engine is very powerful, but if you find that you need more power you could try [http://www.google.com Google]
Google cannot be used to search the Chat forum.

Enter into Google:

site:www.autoitscript.com/forum/ your search query.

If you are an advanced user then try:

(site:*.autoitscript.com | site:msdn.microsoft.com) tutorial howto

Note: Spaces around | is important.

And finally a slightly different search:

filetype:pdf autoit

== Code of Conduct ==

Before you post a question or start a new script, it is always better to search the forums first to see if your question has been answered before or to see if you can find a similar script shared by someone else.
Please think about asking '''the right question''' and asking '''the question right!'''
Do not make posts discussing the automation of games in any manner for any reason.
They will not be answered. Persistence will most likely result in a swift and permanent ban.

These are must read topics before posting anything:
* [http://www.autoitscript.com/forum/index.php?showtopic=54168 Chat Forum Rules]
* [http://www.autoitscript.com/forum/index.php?showtopic=14632 Keylogger Rules]
* [http://www.autoitscript.com/forum/index.php?showtopic=65889 Asking for Source Code]
* [http://www.autoitscript.com/forum/index.php?showtopic=37289 FAQ1]
* [http://www.autoitscript.com/forum/index.php?showtopic=23822 FAQ2]
* [http://www.autoitscript.com/forum/index.php?showtopic=34658 Are my AutoIt EXEs Really Infected?]

== Unofficial Forums ==

These are some of the other unofficial forums which are often in languages other than English.

* French: http://www.autoit.fr/
* German: http://www.autoit.de/
* Portuguese: http://forum.autoitbrasil.com/
* Spanish: http://www.emesn.com/autoitforum/
* Spanish: http://autoitespa.espanaforo.com/
* Chinese: http://autoitx.com/
* Vietnam: http://www.autoitvn.com/

== Useful links ==

* [http://www.autoitscript.com/forum/index.php?showtopic=94713 General Tips for Using AutoIt] - Some tips that a lot of people will find useful.
* [https://www.autoitscript.com/forum/topic/169097-forum-rules Forum rules] - Read this if you are new to the forum.

Snippets ( AutoIt String )

2016-01-07T17:11:11Z

Trong:

__TOC__

[[category:Snippets]]

{{Snippet Credit Header}}

== _StringEqualSplit ==

{{Snippet Header
| AuthorURL = 15769-czardas
| AuthorName = czardas
}}

<syntaxhighlight lang="autoit">
#include <Array.au3>
Local $aArray = _StringEqualSplit("12345678910", 3)
_ArrayDisplay($aArray)

Func _StringEqualSplit($sString, $iNumChars)
If Not IsString($sString) Or $sString = "" Then Return SetError(1, 0, 0)
If Not IsInt($iNumChars) Or $iNumChars < 1 Then Return SetError(2, 0, 0)
Return StringRegExp($sString, "(?s).{1," & $iNumChars & "}", 3)
EndFunc
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringGetChrCount ==

{{Snippet Header
| AuthorURL = 52-geosoft
| AuthorName = GEOSoft
| Desc = Check how many times the word 'test' appears in the string. 1 = Case-sensitive or 0 = Non Case-sensitive.
}}

<syntaxhighlight lang="autoit">
; Check how many times the word 'test' appears in the string. 1 = Case-sensitive or 0 = Non Case-sensitive.
ConsoleWrite(_StringGetChrCount("test teste test", "TEST", 0) & @CRLF)

Func _StringGetChrCount($sStr, $sChr, $iCase = 0)
If $iCase <> 0 Then
$iCase = 1
EndIf
StringReplace($sStr, $sChr, $sChr, 0, $iCase)
Return @extended
EndFunc ;==>_StringGetChrCount
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringEqualSplit ==

{{Snippet Header
| AuthorURL = 15769-czardas
| AuthorName = czardas
| ModifierURL = 35302-guinness
| ModifierName = guinness
| Desc = Splits a string into an equal number of characters. The 0th index returns the number of items.
}}

<syntaxhighlight lang="autoit">#include <Array.au3>
#include <String.au3>

Local $aSplitEqual = _StringEqualSplit('abcdefghijklmnopqrstuvwxyz', 5)
_ArrayDisplay($aSplitEqual)

; By czardas & modified by guinness >> http://www.autoitscript.com/forum/topic/139260-autoit-snippets/page__st__20#entry992149
; Version: 1.10. AutoIt: V3.3.8.1
; Splits a string into an equal number of characters. The 0th index returns the number of items.
Func _StringEqualSplit($sString, $iNumChars)
If IsString($sString) = 0 Or $sString == '' Then
Return SetError(1, 0, 0)
EndIf

If IsInt($iNumChars) = 0 Or $iNumChars < 1 Then
Return SetError(2, 0, 0)
EndIf

Local $aReturn = StringRegExp(_StringRepeat('0', 5) & $sString, '(?s).{1,' & $iNumChars & '}', 3)
$aReturn[0] = UBound($aReturn, 1) - 1
Return $aReturn
EndFunc ;==>_StringEqualSplit</syntaxhighlight>

[[#top | Return To Contents]]

== _StringIsNum ==

{{Snippet Header
| AuthorURL = 38301-smartee
| AuthorName = smartee
}}

<syntaxhighlight lang="autoit">
ConsoleWrite(StringIsNum('Example') & @CRLF)
ConsoleWrite(StringIsNum('123456') & @CRLF)
ConsoleWrite(StringIsNum('Example & 123456') & @CRLF)

Func StringIsNum($sString)
Return StringRegExp($sString, "^([0-9]*(\.[0-9]+){1}|[0-9]+(\.[0-9]*){0,1})$") = 1
EndFunc ;==>StringIsNum
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringRemoveLine ==

{{Snippet Header
| AuthorURL = 4813-smoke-n
| AuthorName = SmOke_N
}}

<syntaxhighlight lang="autoit">
Global $string = 'This is an example' & @CRLF & 'Of deleting a line' & @CRLF & 'If you know at least the beginning text of the line.'

MsgBox(0, 'Original', $string)

Global $deleteline = _StringRemoveLine($string, 'Of deleting')

MsgBox(0, 'Deleted Line', $deleteline)

Func _StringRemoveLine($hFile, $sDelete)
If FileExists($hFile) Then $hFile = FileRead($hFile);Remove If FileExists($hFile) Then << only
Local $nSNS = StringInStr($hFile, @CRLF & $sDelete) - 1
Local $sSFH = StringLeft($hFile, $nSNS)
Local $sRL = StringTrimLeft($hFile, StringLen($sSFH) + 2)
Local $sLLEN = StringLen(StringLeft($sRL, StringInStr($sRL, @CRLF)))
If Not $sLLEN Then $sLLEN = StringLen($sRL)
Return $sSFH & StringTrimLeft($hFile, $sLLEN + $nSNS + 2)
EndFunc ;==>_StringRemoveLine()
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringReplaceBlank ==

{{Snippet Header
| AuthorURL = 4813-smoke-n
| AuthorName = SmOke_N
| Desc = Remove blank lines from a File
}}

<syntaxhighlight lang="autoit">
; Remove blank lines from a File
Local $sString = "I am a string" & @CRLF & @CRLF & _
"With Empty Lines" & @CRLF & @CRLF & _
"Please Remove those empty lines"

MsgBox(4096, "Before", $sString)

$sString = _StringReplaceBlank($sString, 1)

MsgBox(4096, "Replaced: " & @extended & " lines.", $sString)

Func _StringReplaceBlank($sString, $sSpaces = "")
If $sSpaces Then
$sSpaces = "\s*"
EndIf

$sString = StringRegExpReplace($sString, "(?s)\r\n" & $sSpaces & "\r\n", @CRLF)

If @extended Then
Return SetError(0, @extended, $sString)
EndIf

Return SetError(1, 0, $sString)
EndFunc ;==>_StringReplaceBlank
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringTrimLeftIsEqual ==

{{Snippet Header
| AuthorURL = 35302-guinness
| AuthorName = guinness
| Desc = Strip a character/word from the leftmost part of a string.
}}

<syntaxhighlight lang="autoit">
ConsoleWrite(_StringTrimLeftIsEqual('C:\Test', 'C:\') & @CRLF) ; Returns Test as the string 'C:\' is stripped from the left.
ConsoleWrite(_StringTrimLeftIsEqual('C:\Test\', 'C') & @CRLF) ; Returns :\Test as the character 'C' is stripped from the left.
ConsoleWrite(_StringTrimLeftIsEqual('C:\Test\', 'Test') & @CRLF) ; Returns the initial string as the string 'Test' was not found to the leftmost part of the string.

; Version: 1.00. AutoIt: V3.3.8.1
; Strip a character/word from the leftmost part of a string.
Func _StringTrimLeftIsEqual($sString, $sStringTrim)
Local $aStringTrim[2] = [0, StringLen($sStringTrim)]
Return StringTrimLeft($sString, $aStringTrim[Number(StringLeft($sString, $aStringTrim[1]) == $sStringTrim)])
EndFunc ;==>_StringTrimLeftIsEqual
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringTrimRightIsEqual ==

{{Snippet Header
| AuthorURL = 35302-guinness
| AuthorName = guinness
| Desc = Strip a character/word from the rightmost part of a string.
}}

<syntaxhighlight lang="autoit">
ConsoleWrite(_StringTrimRightIsEqual('C:\Test', 'Test') & @CRLF) ; Returns C:\ as the string 'Test' is stripped from the right.
ConsoleWrite(_StringTrimRightIsEqual('C:\Test\', '\') & @CRLF) ; Returns C:\Test as the character '\' is stripped from the right.
ConsoleWrite(_StringTrimRightIsEqual('C:\Test\', 'Test') & @CRLF) ; Returns the initial string as the string 'Test' was not found to the rightmost part of the string.

; Version: 1.00. AutoIt: V3.3.8.1
; Strip a character/word from the rightmost part of a string.
Func _StringTrimRightIsEqual($sString, $sStringTrim)
Local $aStringTrim[2] = [0, StringLen($sStringTrim)]
Return StringTrimRight($sString, $aStringTrim[Number(StringRight($sString, $aStringTrim[1]) == $sStringTrim)])
EndFunc ;==>_StringTrimRightIsEqual
</syntaxhighlight>

[[#top | Return To Contents]]

== StringTrimLeftUntil ==

{{Snippet Header
| AuthorURL = 89462-TheDcoder
| AuthorName = TheDcoder
| Desc = Trim a string left until it reaches the delimiter character.
}}

<syntaxhighlight lang="autoit">
; #FUNCTION# ====================================================================================================================
; Name ..........: StringTrimLeftUntil
; Description ...: Trim a string left until it reaches the delimiter charecter
; Syntax ........: StringTrimLeftUntil($sDelimiter, $sString)
; Parameters ....: $sDelimiter - Charecter(s) to trim until
; $sString - A string value.
; $iOccurrence - Trim until which occurrence of the delimiter [Default = 1st occurrence]
; Return values .: Trimmed String
; Author ........: TheDcoder
; Modified ......: Thanks to water for the Idea
; Remarks .......: This function is not case sensitive meaning "DeLiMiTeR" is same as "Delimiter"
; Related .......: StringTrimLeft
; Link ..........: https://www.autoitscript.com/forum/topic/139260-autoit-snippets/?do=findComment&comment=1250764
; Example .......: No
; ===============================================================================================================================
Func StringTrimLeftUntil($sDelimiter, $sString, $iOccurrence = 1)
$iDelimiterLen = StringLen($sDelimiter)
$sString = StringTrimLeft($sString, StringInStr($sString, $sDelimiter, 2, $iOccurrence) + ($iDelimiterLen - 1)) ; This is a little hard to explain:
#cs =========================================================================================================================================|
| What it does is: |
| 1. Find the delimiter's position in the string (StringInStr) |
| 2. Add delimiter's Length to delimiters position (I remove 1 for delimiter's length because StringInStr already contains that 1 charecter) |
| 3. Trim the string :) |
#ce =========================================================================================================================================|
Return $sString ; Return the String :D
EndFunc ;==>StringTrimLeftUntil
</syntaxhighlight>

[[#top | Return To Contents]]

== StringTrimRightUntil ==

{{Snippet Header
| AuthorURL = 89462-TheDcoder
| AuthorName = TheDcoder
| Desc = Trim a string right until it reaches the delimiter character.
}}

<syntaxhighlight lang="autoit">
; #FUNCTION# ====================================================================================================================
; Name ..........: StringTrimRightUntil
; Description ...: Trim a string right until it reaches the delimiter charecter
; Syntax ........: StringTrimRightUntil($sDelimiter, $sString)
; Parameters ....: $sDelimiter - Charecter(s) to trim until
; $sString - A string value.
; $iOccurrence - Trim until which occurrence of the delimiter [Default = 1st occurrence]
; Return values .: Trimmed String
; Author ........: TheDcoder
; Modified ......: Me
; Remarks .......: This function is not case sensitive meaning "DeLiMiTeR" is same as "Delimiter"
; Related .......: StringTrimRight
; Link ..........: https://www.autoitscript.com/forum/topic/139260-autoit-snippets/?do=findComment&comment=1250764
; Example .......: No
; ===============================================================================================================================
Func StringTrimRightUntil($sDelimiter, $sString, $iOccurrence = 1)
$iStringLen = StringLen($sString) ; We need string's len
$iDelimiterLen = StringLen($sDelimiter) ; We need delimiter's len too
$sString = StringTrimRight($sString, ($iStringLen - StringInStr($sString, $sDelimiter, 2, $iOccurrence)) + $iDelimiterLen) ; Explanation:
#cs ============================================================================================|
| 1. Find delimiters postition |
| 2. Remove String's len from delimiters position to invert the trimming process (to the right) |
| 3. Add the delimiter's len to trim the delimiter |
| 4. Trim the string!!! |
#ce ============================================================================================|
Return $sString ; Return the String
EndFunc ;==>StringTrimRightUntil
</syntaxhighlight>

== StringBetween ==

{{Snippet Header
| AuthorURL = 77301-trong
| AuthorName = Trong
| Desc = Find strings between two string delimiters.
}}

<syntaxhighlight lang="autoit">

; 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
; Link ..........: https://www.autoitscript.com/forum/topic/139260-autoit-snippets/?do=findComment&comment=1290019
; 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

</syntaxhighlight>

[[#top | Return To Contents]]

Snippets ( AutoIt String )

2016-01-07T17:03:54Z

Trong:

__TOC__

[[category:Snippets]]

{{Snippet Credit Header}}

== _StringEqualSplit ==

{{Snippet Header
| AuthorURL = 15769-czardas
| AuthorName = czardas
}}

<syntaxhighlight lang="autoit">
#include <Array.au3>
Local $aArray = _StringEqualSplit("12345678910", 3)
_ArrayDisplay($aArray)

Func _StringEqualSplit($sString, $iNumChars)
If Not IsString($sString) Or $sString = "" Then Return SetError(1, 0, 0)
If Not IsInt($iNumChars) Or $iNumChars < 1 Then Return SetError(2, 0, 0)
Return StringRegExp($sString, "(?s).{1," & $iNumChars & "}", 3)
EndFunc
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringGetChrCount ==

{{Snippet Header
| AuthorURL = 52-geosoft
| AuthorName = GEOSoft
| Desc = Check how many times the word 'test' appears in the string. 1 = Case-sensitive or 0 = Non Case-sensitive.
}}

<syntaxhighlight lang="autoit">
; Check how many times the word 'test' appears in the string. 1 = Case-sensitive or 0 = Non Case-sensitive.
ConsoleWrite(_StringGetChrCount("test teste test", "TEST", 0) & @CRLF)

Func _StringGetChrCount($sStr, $sChr, $iCase = 0)
If $iCase <> 0 Then
$iCase = 1
EndIf
StringReplace($sStr, $sChr, $sChr, 0, $iCase)
Return @extended
EndFunc ;==>_StringGetChrCount
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringEqualSplit ==

{{Snippet Header
| AuthorURL = 15769-czardas
| AuthorName = czardas
| ModifierURL = 35302-guinness
| ModifierName = guinness
| Desc = Splits a string into an equal number of characters. The 0th index returns the number of items.
}}

<syntaxhighlight lang="autoit">#include <Array.au3>
#include <String.au3>

Local $aSplitEqual = _StringEqualSplit('abcdefghijklmnopqrstuvwxyz', 5)
_ArrayDisplay($aSplitEqual)

; By czardas & modified by guinness >> http://www.autoitscript.com/forum/topic/139260-autoit-snippets/page__st__20#entry992149
; Version: 1.10. AutoIt: V3.3.8.1
; Splits a string into an equal number of characters. The 0th index returns the number of items.
Func _StringEqualSplit($sString, $iNumChars)
If IsString($sString) = 0 Or $sString == '' Then
Return SetError(1, 0, 0)
EndIf

If IsInt($iNumChars) = 0 Or $iNumChars < 1 Then
Return SetError(2, 0, 0)
EndIf

Local $aReturn = StringRegExp(_StringRepeat('0', 5) & $sString, '(?s).{1,' & $iNumChars & '}', 3)
$aReturn[0] = UBound($aReturn, 1) - 1
Return $aReturn
EndFunc ;==>_StringEqualSplit</syntaxhighlight>

[[#top | Return To Contents]]

== _StringIsNum ==

{{Snippet Header
| AuthorURL = 38301-smartee
| AuthorName = smartee
}}

<syntaxhighlight lang="autoit">
ConsoleWrite(StringIsNum('Example') & @CRLF)
ConsoleWrite(StringIsNum('123456') & @CRLF)
ConsoleWrite(StringIsNum('Example & 123456') & @CRLF)

Func StringIsNum($sString)
Return StringRegExp($sString, "^([0-9]*(\.[0-9]+){1}|[0-9]+(\.[0-9]*){0,1})$") = 1
EndFunc ;==>StringIsNum
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringRemoveLine ==

{{Snippet Header
| AuthorURL = 4813-smoke-n
| AuthorName = SmOke_N
}}

<syntaxhighlight lang="autoit">
Global $string = 'This is an example' & @CRLF & 'Of deleting a line' & @CRLF & 'If you know at least the beginning text of the line.'

MsgBox(0, 'Original', $string)

Global $deleteline = _StringRemoveLine($string, 'Of deleting')

MsgBox(0, 'Deleted Line', $deleteline)

Func _StringRemoveLine($hFile, $sDelete)
If FileExists($hFile) Then $hFile = FileRead($hFile);Remove If FileExists($hFile) Then << only
Local $nSNS = StringInStr($hFile, @CRLF & $sDelete) - 1
Local $sSFH = StringLeft($hFile, $nSNS)
Local $sRL = StringTrimLeft($hFile, StringLen($sSFH) + 2)
Local $sLLEN = StringLen(StringLeft($sRL, StringInStr($sRL, @CRLF)))
If Not $sLLEN Then $sLLEN = StringLen($sRL)
Return $sSFH & StringTrimLeft($hFile, $sLLEN + $nSNS + 2)
EndFunc ;==>_StringRemoveLine()
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringReplaceBlank ==

{{Snippet Header
| AuthorURL = 4813-smoke-n
| AuthorName = SmOke_N
| Desc = Remove blank lines from a File
}}

<syntaxhighlight lang="autoit">
; Remove blank lines from a File
Local $sString = "I am a string" & @CRLF & @CRLF & _
"With Empty Lines" & @CRLF & @CRLF & _
"Please Remove those empty lines"

MsgBox(4096, "Before", $sString)

$sString = _StringReplaceBlank($sString, 1)

MsgBox(4096, "Replaced: " & @extended & " lines.", $sString)

Func _StringReplaceBlank($sString, $sSpaces = "")
If $sSpaces Then
$sSpaces = "\s*"
EndIf

$sString = StringRegExpReplace($sString, "(?s)\r\n" & $sSpaces & "\r\n", @CRLF)

If @extended Then
Return SetError(0, @extended, $sString)
EndIf

Return SetError(1, 0, $sString)
EndFunc ;==>_StringReplaceBlank
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringTrimLeftIsEqual ==

{{Snippet Header
| AuthorURL = 35302-guinness
| AuthorName = guinness
| Desc = Strip a character/word from the leftmost part of a string.
}}

<syntaxhighlight lang="autoit">
ConsoleWrite(_StringTrimLeftIsEqual('C:\Test', 'C:\') & @CRLF) ; Returns Test as the string 'C:\' is stripped from the left.
ConsoleWrite(_StringTrimLeftIsEqual('C:\Test\', 'C') & @CRLF) ; Returns :\Test as the character 'C' is stripped from the left.
ConsoleWrite(_StringTrimLeftIsEqual('C:\Test\', 'Test') & @CRLF) ; Returns the initial string as the string 'Test' was not found to the leftmost part of the string.

; Version: 1.00. AutoIt: V3.3.8.1
; Strip a character/word from the leftmost part of a string.
Func _StringTrimLeftIsEqual($sString, $sStringTrim)
Local $aStringTrim[2] = [0, StringLen($sStringTrim)]
Return StringTrimLeft($sString, $aStringTrim[Number(StringLeft($sString, $aStringTrim[1]) == $sStringTrim)])
EndFunc ;==>_StringTrimLeftIsEqual
</syntaxhighlight>

[[#top | Return To Contents]]

== _StringTrimRightIsEqual ==

{{Snippet Header
| AuthorURL = 35302-guinness
| AuthorName = guinness
| Desc = Strip a character/word from the rightmost part of a string.
}}

<syntaxhighlight lang="autoit">
ConsoleWrite(_StringTrimRightIsEqual('C:\Test', 'Test') & @CRLF) ; Returns C:\ as the string 'Test' is stripped from the right.
ConsoleWrite(_StringTrimRightIsEqual('C:\Test\', '\') & @CRLF) ; Returns C:\Test as the character '\' is stripped from the right.
ConsoleWrite(_StringTrimRightIsEqual('C:\Test\', 'Test') & @CRLF) ; Returns the initial string as the string 'Test' was not found to the rightmost part of the string.

; Version: 1.00. AutoIt: V3.3.8.1
; Strip a character/word from the rightmost part of a string.
Func _StringTrimRightIsEqual($sString, $sStringTrim)
Local $aStringTrim[2] = [0, StringLen($sStringTrim)]
Return StringTrimRight($sString, $aStringTrim[Number(StringRight($sString, $aStringTrim[1]) == $sStringTrim)])
EndFunc ;==>_StringTrimRightIsEqual
</syntaxhighlight>

[[#top | Return To Contents]]

== StringTrimLeftUntil ==

{{Snippet Header
| AuthorURL = 89462-TheDcoder
| AuthorName = TheDcoder
| Desc = Trim a string left until it reaches the delimiter character.
}}

<syntaxhighlight lang="autoit">
; #FUNCTION# ====================================================================================================================
; Name ..........: StringTrimLeftUntil
; Description ...: Trim a string left until it reaches the delimiter charecter
; Syntax ........: StringTrimLeftUntil($sDelimiter, $sString)
; Parameters ....: $sDelimiter - Charecter(s) to trim until
; $sString - A string value.
; $iOccurrence - Trim until which occurrence of the delimiter [Default = 1st occurrence]
; Return values .: Trimmed String
; Author ........: TheDcoder
; Modified ......: Thanks to water for the Idea
; Remarks .......: This function is not case sensitive meaning "DeLiMiTeR" is same as "Delimiter"
; Related .......: StringTrimLeft
; Link ..........: https://www.autoitscript.com/forum/topic/139260-autoit-snippets/?do=findComment&comment=1250764
; Example .......: No
; ===============================================================================================================================
Func StringTrimLeftUntil($sDelimiter, $sString, $iOccurrence = 1)
$iDelimiterLen = StringLen($sDelimiter)
$sString = StringTrimLeft($sString, StringInStr($sString, $sDelimiter, 2, $iOccurrence) + ($iDelimiterLen - 1)) ; This is a little hard to explain:
#cs =========================================================================================================================================|
| What it does is: |
| 1. Find the delimiter's position in the string (StringInStr) |
| 2. Add delimiter's Length to delimiters position (I remove 1 for delimiter's length because StringInStr already contains that 1 charecter) |
| 3. Trim the string :) |
#ce =========================================================================================================================================|
Return $sString ; Return the String :D
EndFunc ;==>StringTrimLeftUntil
</syntaxhighlight>

[[#top | Return To Contents]]

== StringTrimRightUntil ==

{{Snippet Header
| AuthorURL = 89462-TheDcoder
| AuthorName = TheDcoder
| Desc = Trim a string right until it reaches the delimiter character.
}}

<syntaxhighlight lang="autoit">
; #FUNCTION# ====================================================================================================================
; Name ..........: StringTrimRightUntil
; Description ...: Trim a string right until it reaches the delimiter charecter
; Syntax ........: StringTrimRightUntil($sDelimiter, $sString)
; Parameters ....: $sDelimiter - Charecter(s) to trim until
; $sString - A string value.
; $iOccurrence - Trim until which occurrence of the delimiter [Default = 1st occurrence]
; Return values .: Trimmed String
; Author ........: TheDcoder
; Modified ......: Me
; Remarks .......: This function is not case sensitive meaning "DeLiMiTeR" is same as "Delimiter"
; Related .......: StringTrimRight
; Link ..........: https://www.autoitscript.com/forum/topic/139260-autoit-snippets/?do=findComment&comment=1250764
; Example .......: No
; ===============================================================================================================================
Func StringTrimRightUntil($sDelimiter, $sString, $iOccurrence = 1)
$iStringLen = StringLen($sString) ; We need string's len
$iDelimiterLen = StringLen($sDelimiter) ; We need delimiter's len too
$sString = StringTrimRight($sString, ($iStringLen - StringInStr($sString, $sDelimiter, 2, $iOccurrence)) + $iDelimiterLen) ; Explanation:
#cs ============================================================================================|
| 1. Find delimiters postition |
| 2. Remove String's len from delimiters position to invert the trimming process (to the right) |
| 3. Add the delimiter's len to trim the delimiter |
| 4. Trim the string!!! |
#ce ============================================================================================|
Return $sString ; Return the String
EndFunc ;==>StringTrimRightUntil
</syntaxhighlight>

== StringBetween ==

{{Snippet Header
| AuthorURL = 77301-trong
| AuthorName = Trong
| Desc = Find strings between two string delimiters.
}}

<syntaxhighlight lang="autoit">

; 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
; Link ..........: https://www.autoitscript.com/forum/topic/139260-autoit-snippets/?do=findComment&comment=1290019
; 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) = "", 0, $sString)
EndFunc ;==>StringBetween

</syntaxhighlight>

[[#top | Return To Contents]]