Snippets ( AutoIt String ) - Revision history

DonChunior: Added snippets _StringGetDigitLeft and _StringGetDigitRight.

2020-10-19T11:59:29Z

Added snippets _StringGetDigitLeft and _StringGetDigitRight.

← Older revision		Revision as of 11:59, 19 October 2020
Line 333:		Line 333:
	</syntaxhighlight>		</syntaxhighlight>

			[[#top \| Return To Contents]]

			== _StringGetDigitLeft ==

			{{Snippet Header
			\| AuthorURL = 102275-donchunior
			\| AuthorName = DonChunior
			\| Desc = Returns the string on the left side of a search string consisting of digits only.
			}}

			<syntaxhighlight lang="autoit">
			#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7

			; Returns the string on the left side of a search string consisting of digits only

			ConsoleWrite(_StringGetDigitLeft("1234abcd5678") & @CRLF) ; Results in "1234"

			Func _StringGetDigitLeft(Const ByRef $sString)
			If Not IsString($sString) Then
			Return SetError(1, 0, "")
			EndIf

			Local $iLength = StringLen($sString)
			Local $sCheckString = ""
			Local $sLeft = ""

			For $i = 1 To $iLength
			$sCheckString = StringLeft($sString, $i)
			If StringIsDigit($sCheckString) Then
			$sLeft = $sCheckString
			Else
			ExitLoop
			EndIf
			Next

			Return $sLeft
			EndFunc ;==>_StringGetDigitLeft
			</syntaxhighlight>

			[[#top \| Return To Contents]]

			== _StringGetDigitRight ==

			{{Snippet Header
			\| AuthorURL = 102275-donchunior
			\| AuthorName = DonChunior
			\| Desc = Returns the string on the right side of a search string consisting of digits only.
			}}

			<syntaxhighlight lang="autoit">
			#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7

			; Returns the string on the right side of a search string consisting of digits only

			ConsoleWrite(_StringGetDigitRight("1234abcd5678") & @CRLF) ; Results in "5678"

			Func _StringGetDigitRight(Const ByRef $sString)
			If Not IsString($sString) Then
			Return SetError(1, 0, "")
			EndIf

			Local $iLength = StringLen($sString)
			Local $sCheckString = ""
			Local $sRight = ""

			For $i = $iLength To 1 Step -1
			$sCheckString = StringRight($sString, $iLength - $i + 1)
			If StringIsDigit($sCheckString) Then
			$sRight = $sCheckString
			Else
			ExitLoop
			EndIf
			Next

			Return $sRight
			EndFunc ;==>_StringGetDigitRight
			</syntaxhighlight>

	[[#top \| Return To Contents]]		[[#top \| Return To Contents]]

Trong at 17:11, 7 January 2016

2016-01-07T17:11:11Z

← Older revision		Revision as of 17:11, 7 January 2016
Line 328:		Line 328:
	$sString = StringReverse(StringTrimLeft($sString, StringInStr($sString, $sStart) + StringLen($sStart) - 1))		$sString = StringReverse(StringTrimLeft($sString, StringInStr($sString, $sStart) + StringLen($sStart) - 1))
	$sString = StringReverse(StringTrimLeft($sString, StringInStr($sString, StringReverse($sEnd)) + StringLen($sEnd) - 1))		$sString = StringReverse(StringTrimLeft($sString, StringInStr($sString, StringReverse($sEnd)) + StringLen($sEnd) - 1))
	Return SetError(StringLen($sString) ~~= ""~~, 0, $sString)		Return SetError(StringLen($sString) < 1, 0, $sString)
	EndFunc ;==>StringBetween		EndFunc ;==>StringBetween

Trong at 17:03, 7 January 2016

2016-01-07T17:03:54Z

@@ Line 291: / Line 291: @@
 EndFunc   ;==>StringTrimRightUntil
 </syntaxhighlight>
 [[#top | Return To Contents]]

TheDcoder: Added StringTrimLeftUntil & StringTrimRightUntil

2015-06-12T11:31:16Z

Added StringTrimLeftUntil & StringTrimRightUntil

Show changes

Czardas: /* _StringEqualSplit */

2013-04-18T20:32:44Z

_StringEqualSplit

← Older revision		Revision as of 20:32, 18 April 2013
Line 14:		Line 14:
	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
	#include <Array.au3>		#include <Array.au3>
	~~Global~~ $aArray = _StringEqualSplit("~~abcdefghijklmnopqrstuvwxyz~~", 5)		Local $aArray = _StringEqualSplit("12345678910", 3)
	_ArrayDisplay($aArray)		_ArrayDisplay($aArray)

Czardas: /* _StringEqualSplit */

2013-04-18T19:30:36Z

_StringEqualSplit

← Older revision		Revision as of 19:30, 18 April 2013
Line 18:		Line 18:

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

Guinness: /* _StringEqualSplit */

2013-03-04T15:58:04Z

_StringEqualSplit

← Older revision		Revision as of 15:58, 4 March 2013
Line 59:		Line 59:
	}}		}}

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

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

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

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

	~~Local $tBuffer = DllStructCreate('char[' & $iNumChars & ']')~~

	~~DllCall('msvcrt.dll', 'ptr:cdecl', 'memset', 'ptr', DllStructGetPtr($tBuffer), 'int', 65, 'int', $iNumChars) ; By Zedna (StringRepeat)~~

	~~Local $aArray = StringRegExp(DllStructGetData($tBuffer, 1) & $sString, '(?s).{1,' & $iNumChars & '}', 3)~~

	$~~aArray[~~0~~] = Ubound~~(~~$aArray~~, 1) ~~- 1~~		If IsInt($iNumChars) = 0 Or $iNumChars < 1 Then
			Return SetError(2, 0, 0)
			EndIf

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

	[[#top \| Return To Contents]]		[[#top \| Return To Contents]]

Dany at 21:43, 8 December 2012

2012-12-08T21:43:37Z

New page

__TOC__

[[category:Snippets]]

{{Snippet Credit Header}}

== _StringEqualSplit ==

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

<syntaxhighlight lang="autoit">
#include <Array.au3>
Global $aArray = _StringEqualSplit("abcdefghijklmnopqrstuvwxyz", 5)
_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>

Global $aArray = _StringEqualSplit('abcdefghijklmnopqrstuvwxyz', 5)

_ArrayDisplay($aArray)

; By czardas & modified by guinness >> http://www.autoitscript.com/forum/topic/139260-autoit-snippets/page__st__20#entry992149
; Version: 1.00. 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 (Not IsString($sString)) Or $sString = '' Then
Return SetError(1, 0, 0)
EndIf

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

Local $tBuffer = DllStructCreate('char[' & $iNumChars & ']')

DllCall('msvcrt.dll', 'ptr:cdecl', 'memset', 'ptr', DllStructGetPtr($tBuffer), 'int', 65, 'int', $iNumChars) ; By Zedna (StringRepeat)

Local $aArray = StringRegExp(DllStructGetData($tBuffer, 1) & $sString, '(?s).{1,' & $iNumChars & '}', 3)

$aArray[0] = Ubound($aArray, 1) - 1

Return $aArray
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]]

== _StringRegExpSplit ==

{{Snippet Header
| AuthorURL = 69238-dany
| AuthorName = dany
| Desc = Split a string based on a regular expression.
}}

<syntaxhighlight lang="autoit">
; Split a string based on a regular expression.
; http://www.autoitscript.com/forum/topic/139260-autoit-snippets/page__st__120#entry1036533
#include <Array.au3> ; Only needed for example.
Global $sString = 'List:' & _
'1. Bananas' & _
'2. Coconuts' & _
'3. Apples'
_ArrayDisplay(_StringRegExpSplit($sString, '[0-9]+\. ?')) ; Use the numbering (#.) to split on.
Global $bBinary = Binary($sString)
_ArrayDisplay(_StringRegExpSplit($bBinary, '3[0-9]2E(20)?'))

; #FUNCTION# ===================================================================
; Name...........: _StringRegExpSplit
; Description ...: Split a string according to a regular expression.
; Syntax.........: _StringRegExpSplit($sString, $sPattern)
; Parameters ....: $sString - String: String to split.
; $sPattern - String: Regular expression to split on.
; Return values .: Success - Array: Array of substrings, the total is in $array[0].
; Failure - Array: The count is 1 ($array[0]) and the full string is returned ($array[1]) and sets @error:
; |1 Delimiter not found.
; |2 Bad RegExp pattern, @extended contains the offset of the error in the pattern.
; |3 No suitable placeholder delimiter could be constructed.
; Author ........: dany
; Modified ......: czardas, AZJIO
; Remarks .......:
; Related .......:
; ==============================================================================
Func _StringRegExpSplit($sString, $sPattern)
Local $sSplit, $sDelim, $aError[2] = [1, $sString]
For $i = 1 To 31
$sDelim &= Chr($i)
If Not StringInStr($sString, $sDelim) Then ExitLoop
If 32 = StringLen($sDelim) Then Return SetError(3, 0, $aError)
Next
$sSplit = StringRegExpReplace($sString, $sPattern, $sDelim)
If @error Then Return SetError(2, @extended, $aError)
If @extended = 0 Then Return SetError(1, 0, $aError)
If Not IsBinary($sString) Then Return StringSplit($sSplit, $sDelim, 1)
$sSplit = StringSplit($sSplit, $sDelim, 1)
For $i = 2 To $sSplit[0]
$sSplit[$i] = '0x' & $sSplit[$i]
Next
Return $sSplit
EndFunc ;==>_StringRegExpSplit
</syntaxhighlight>

[[#top | Return To Contents]]

Jaberwocky6669: Edited snippets to conform to template Snippet Header.

2012-11-13T20:31:39Z

Edited snippets to conform to template Snippet Header.

Show changes

IEvKI3gv9Wrkd41u at 15:07, 12 November 2012

2012-11-12T15:07:59Z

← Older revision		Revision as of 15:07, 12 November 2012
Line 1:		Line 1:
	__TOC__[[category:Snippets]]{{Snippet Credit Header}}===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _StringEqualSplit() ~ Author - [http://www.autoitscript.com/forum/user/15769-czardas/ czardas] '''</blockquote> =====		__TOC__
			[[category:Snippets]]

			{{Snippet Credit Header}}

			===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _StringEqualSplit() ~ Author - [http://www.autoitscript.com/forum/user/15769-czardas/ czardas] '''</blockquote> =====
	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
	#include <Array.au3>		#include <Array.au3>