833 lines
25 KiB
AutoIt
833 lines
25 KiB
AutoIt
#NoTrayIcon
|
|
#Include <String.au3>
|
|
#Include <StringConstants.au3>
|
|
#Include <File.au3>
|
|
|
|
; 2016/12/08 Add /H2S & /S2H Function
|
|
|
|
#CS ----------------------------------------------------------------------------
|
|
If $CMDLINE[0] < 1 Then _Usage()
|
|
Switch $CMDLINE[1]
|
|
Case "/?"
|
|
_Usage()
|
|
Case "/BTW"
|
|
_StrBetween()
|
|
Case "/CMP"
|
|
_StrCompare()
|
|
Case "/FMT"
|
|
_StringFormat()
|
|
Case "/SIS"
|
|
_StringInStr()
|
|
Case "/DIV"
|
|
_StrDivision()
|
|
Case "/PAR"
|
|
_StrSplit()
|
|
Case "/ISR"
|
|
_StrInsert()
|
|
Case "/IAN"
|
|
_StrIsAlNum()
|
|
Case "/ALP"
|
|
_StrIsAlpha()
|
|
Case "/ASC"
|
|
_StrIsASCII()
|
|
Case "/DIG"
|
|
_StrIsDigit()
|
|
Case "/SIL"
|
|
_StrIsLower()
|
|
Case "/SIU"
|
|
_StrIsUpper()
|
|
Case "/BLK"
|
|
_StrIsSpace()
|
|
Case "/HEX"
|
|
_StrIsHEX()
|
|
Case "/LEN"
|
|
_StrLenth()
|
|
Case "/LFT"
|
|
_StrLeft()
|
|
Case "/RIT"
|
|
_StrRight()
|
|
Case "/STL"
|
|
_StrTrimLeft()
|
|
Case "/STR"
|
|
_StrTrimRight()
|
|
Case "/MID"
|
|
_StrMid()
|
|
Case "/SRP"
|
|
_StrReplace()
|
|
Case "/REV"
|
|
_StrReverse()
|
|
Case "/SWS"
|
|
_StrStripWS()
|
|
Case Else
|
|
_Usage()
|
|
EndSwitch
|
|
#CE ----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
Func _StrBetween()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/BTW ""String"" ""Start"" ""End"" [Mode=0] [Case=0]" & @CRLF _
|
|
& "Usage:" & @TAB & "Find strings between two string delimiters." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & "The string to search." & @CRLF _
|
|
& "Start:" & @TAB & "The beginning of the string to find." & @CRLF _
|
|
& @TAB & "(If empty, starts at the beginning.)" & @CRLF _
|
|
& "End:" & @TAB & "The end of the string to find." & @CRLF _
|
|
& @TAB & "(If empty, searches from ""Start"" to end of string.)" & @CRLF _
|
|
& "Mode: (Optional)" & @CRLF _
|
|
& @TAB & "0: The ""End"" string at the end of a match starts the next possible match." & @CRLF _
|
|
& @TAB & "1: A further instance of the ""Start"" starts the next match." & @CRLF _
|
|
& "Case: (Optional)" & @CRLF _
|
|
& @TAB & "0: Case-Insensitive." & @CRLF _
|
|
& @TAB & "1: Case-Sensitive." & @CRLF _
|
|
& "Return Code:" & @CRLF _
|
|
& @TAB & "Success: The first found strings." & @CRLF _
|
|
& @TAB & "Fail: Error." & @CRLF & @CRLF _
|
|
& "Use /F:FileName to set ""String"" as the contents of the specified file." & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
If $CMDLINE[2] = "/?" Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $sString = $CMDLINE[2]
|
|
Local $sStart = ''
|
|
Local $sEnd = ''
|
|
Local $iMode = 0
|
|
Local $iCase = 0
|
|
If $CMDLINE[0] >= 3 Then Local $sStart = $CMDLINE[3]
|
|
If $CMDLINE[0] >= 4 Then Local $sEnd = $CMDLINE[4]
|
|
If $CMDLINE[0] >= 5 Then
|
|
If $CMDLINE[5] = 0 Then
|
|
Local $iMode = 0
|
|
Else
|
|
Local $iMode = 1
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
If $CMDLINE[0] >= 6 Then Local $iCase = $CMDLINE[6]
|
|
$sString = StringReplace($sString, "@CRLF", @CRLF)
|
|
$sString = StringReplace($sString, "@CR", @CR)
|
|
$sString = StringReplace($sString, "@LF", @LF)
|
|
If StringLeft($sString, 3) = "/F:" Then
|
|
Local $sFile = StringTrimLeft( $sString, 3 )
|
|
Local $File = FileOpen($sFile)
|
|
Local $sString = FileRead($File)
|
|
FileClose($File)
|
|
EndIf
|
|
|
|
$RET = _StringBetween( $sString, $sStart, $sEnd, $iMode, $iCase)
|
|
If IsArray($RET) Then
|
|
ConsoleWrite("--> Total SubStrings: " & UBound($RET) &@CRLF)
|
|
For $i = 0 To UBound($RET) - 1
|
|
ConsoleWrite("#"&$i&":"&@TAB&$RET[$i] &@CRLF)
|
|
Next
|
|
Exit 0
|
|
Else
|
|
ConsoleWrite(">>> Errors Occurred." &@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrCompare()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/CMP ""String1"" ""String2"" [CaseSense=0/1]" & @CRLF _
|
|
& "Usage:" & @TAB & "Compare two strings with options." & @CRLF _
|
|
& "Return Code:" & @CRLF _
|
|
& " 0: String1 and String2 are equal." & @CRLF _
|
|
& " 1: String1 is greater than String2." & @CRLF _
|
|
& " -1: String1 is less than String2." & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite("Parameters Format Error." & @CRLF & $Tips)
|
|
Exit
|
|
ElseIf $CMDLINE[0] = 2 Then
|
|
If $CMDLINE[2] = "/?" Then
|
|
ConsoleWrite($Tips)
|
|
Exit
|
|
Else
|
|
ConsoleWrite("Parameters Format Error." & @CRLF & $Tips)
|
|
Exit
|
|
EndIf
|
|
ElseIf $CMDLINE[0] = 3 Then
|
|
Local $Case = 0
|
|
ElseIf $CMDLINE[0] = 4 Then
|
|
Local $Case = $CMDLINE[4]
|
|
Else
|
|
Local $Case = $CMDLINE[4]
|
|
EndIf
|
|
Local $RET = StringCompare($CMDLINE[2],$CMDLINE[3],$Case)
|
|
ConsoleWrite($RET &@CRLF)
|
|
Exit 0
|
|
EndFunc
|
|
|
|
|
|
Func _StringFormat()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/FMT String" & @CRLF _
|
|
& "Usage:" & @TAB & "Return a C sprintf() style string." & @CRLF
|
|
Local $sParam = StringTrimLeft($CMDLINERAW, StringLen($CMDLINE[1]))
|
|
Local $RET = StringFormat($CMDLINE[2], $sParam)
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndFunc
|
|
|
|
|
|
Func _StringInStr()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/SIS String Substring [Case] [Occurrence] [Start] [Count]" & @CRLF _
|
|
& "Usage:" & @TAB & "Check if a string contains a given substring." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & @TAB & "The string to evaluate. " & @CRLF _
|
|
& "Substring:" & @TAB & "The substring to search for. " & @CRLF _
|
|
& "Case:" & @TAB & @TAB & "Indicate if the operation should be case sensitive(0/1)." & @CRLF _
|
|
& "Occurrence:" & @TAB & "Occurrence of the substring to find in the string.(Def=1)" & @CRLF _
|
|
& "Start:" & @TAB & @TAB & "The starting position of the search.(Def=1)" & @CRLF _
|
|
& "Count:" & @TAB & @TAB & "Number of char to search, must be longer than the substring." & @CRLF & @CRLF _
|
|
& "Return Code: " & @CRLF _
|
|
& "Success: The position of the substring." & @CRLF _
|
|
& "Failure: Return 0 if substring not found." & @CRLF
|
|
|
|
If $CMDLINE[0] < 3 Then
|
|
ConsoleWrite("Parameters Format Error." & @CRLF & $Tips)
|
|
Exit 0
|
|
EndIf
|
|
|
|
If StringLeft($CMDLINE[2],3) = "/F:" Then
|
|
Local $FileName = StringTrimLeft($CMDLINE[2],3)
|
|
Local $File = FileOpen($FileName,0)
|
|
Local $Str = FileRead($File)
|
|
Else
|
|
Local $Str = $CMDLINE[2]
|
|
$Str = StringReplace($Str, "@CRLF", @CRLF)
|
|
$Str = StringReplace($Str, "@CR", @CR)
|
|
$Str = StringReplace($Str, "@LF", @LF)
|
|
EndIf
|
|
|
|
If StringLeft($CMDLINE[3],3) = "/F:" Then
|
|
Local $FileName = StringTrimLeft($CMDLINE[3],3)
|
|
Local $File = FileOpen($FileName,0)
|
|
Local $SubStr = FileRead($File)
|
|
Else
|
|
Local $SubStr = $CMDLINE[3]
|
|
$SubStr = StringReplace($SubStr, "@CRLF", @CRLF)
|
|
$SubStr = StringReplace($SubStr, "@CR", @CR)
|
|
$SubStr = StringReplace($SubStr, "@LF", @LF)
|
|
EndIf
|
|
|
|
Local $iCase = 0
|
|
Local $iOccur = 1
|
|
Local $iStart = 1
|
|
Local $iCount = ""
|
|
If $CMDLINE[0] >= 4 Then Local $iCase = $CMDLINE[4]
|
|
If $CMDLINE[0] >= 5 Then Local $iOccur = $CMDLINE[5]
|
|
If $CMDLINE[0] >= 6 Then Local $iStart = $CMDLINE[6]
|
|
If $CMDLINE[0] >= 7 Then
|
|
Local $iCount = $CMDLINE[7]
|
|
If $iCount < StringLen($CMDLINE[3]) Then
|
|
Local $Err = @CRLF & "Parameters Error." & @CRLF _
|
|
& "The ""Count"" parameter must be longer than the substring." & @CRLF
|
|
ConsoleWrite($Err)
|
|
Exit
|
|
EndIf
|
|
EndIf
|
|
|
|
If $CMDLINE[0] >= 7 Then
|
|
Local $RET = StringInStr($Str, $SubStr, $iCase, $iOccur, $iStart, $iCount)
|
|
ConsoleWrite($RET &@CRLF)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringInStr($Str, $SubStr, $iCase, $iOccur, $iStart)
|
|
ConsoleWrite($RET &@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
|
|
EndFunc
|
|
|
|
|
|
|
|
Func _StrExplode()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/DIV String Delimiter [Limit=0]" & @CRLF _
|
|
& "Usage:" & @TAB & "Split up a string into substrings depending on the given delimiters." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & @TAB & "String to be split." & @CRLF _
|
|
& "Delimiter:" & @TAB & "Delimiter to split on." & @CRLF _
|
|
& "Limit:" & @TAB & @TAB & "(Optional) Maximum elements to be returned." & @CRLF _
|
|
& @TAB & @TAB & "=0: (Default) Split on every instance of the delimiter." & @CRLF _
|
|
& @TAB & @TAB & ">0: Split until limit, last element will contain remaining portion." & @CRLF _
|
|
& @TAB & @TAB & "<0: Split on every instance, removing limit count from end of the array." & @CRLF & @CRLF _
|
|
& "Return Value:" & @TAB & "Return an array containing the exploded strings." & @CRLF & @CRLF _
|
|
& "Use /F:FileName to set ""String"" as the contents of the specified file." & @CRLF
|
|
|
|
If $CMDLINE[0] < 3 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
ElseIf $CMDLINE[0] = 3 Then
|
|
Local $iLimit = 0
|
|
Else
|
|
Local $iLimit = $CMDLINE[4]
|
|
EndIf
|
|
|
|
Local $sString = $CMDLINE[2]
|
|
$sString = StringReplace($sString, "@CRLF", @CRLF)
|
|
$sString = StringReplace($sString, "@CR", @CR)
|
|
$sString = StringReplace($sString, "@LF", @LF)
|
|
If StringLeft($sString, 3) = "/F:" Then
|
|
Local $sFile = StringTrimLeft( $sString, 3 )
|
|
Local $File = FileOpen($sFile)
|
|
Local $sString = FileRead($File)
|
|
FileClose($File)
|
|
EndIf
|
|
|
|
Local $RET = _StringExplode($sString, $CMDLINE[3], $iLimit)
|
|
If IsArray($RET) Then
|
|
ConsoleWrite("--> Matching SubStrings: " & UBound($RET) & @CRLF)
|
|
For $i = 0 To UBound($RET) - 1
|
|
ConsoleWrite("#"&$i&":"&@TAB&$RET[$i] &@CRLF)
|
|
Next
|
|
Exit 0
|
|
Else
|
|
ConsoleWrite(">>> Errors Occurred." & @CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrSplit()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/PAR String Delimiter [Flag=0]" & @CRLF _
|
|
& "Usage:" & @TAB & "Split up a string into substrings depending on the given delimiters." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & @TAB & "String to be split." & @CRLF _
|
|
& "Delimiter:" & @TAB & "Delimiter to split on." & @CRLF _
|
|
& "Flag:" & @TAB & @TAB & "(Optional) Changes how the string split works." & @CRLF _
|
|
& @TAB & @TAB & "=0: Each character of the delimiter will mark the split." & @CRLF _
|
|
& @TAB & @TAB & "=1: Entire delimiter string is needed to mark the split." & @CRLF & @CRLF _
|
|
& "Return Value:" & @TAB & "Return an array containing the exploded strings." & @CRLF & @CRLF _
|
|
& "Use /F:FileName to set ""String"" as the contents of the specified file." & @CRLF
|
|
|
|
If $CMDLINE[0] < 3 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
ElseIf $CMDLINE[0] = 3 Then
|
|
Local $iFlag = $STR_CHRSPLIT
|
|
Else
|
|
Local $iFlag = $CMDLINE[4]
|
|
If $iFlag = 0 Then $iFlag = $STR_CHRSPLIT
|
|
If $iFlag = 1 Then $iFlag = $STR_ENTIRESPLIT
|
|
If $iFlag <> 1 And $iFlag <> 0 Then $iFlag = $STR_NOCOUNT
|
|
EndIf
|
|
|
|
Local $sString = $CMDLINE[2]
|
|
$sString = StringReplace($sString, "@CRLF", @CRLF)
|
|
$sString = StringReplace($sString, "@CR", @CR)
|
|
$sString = StringReplace($sString, "@LF", @LF)
|
|
If StringLeft($sString, 3) = "/F:" Then
|
|
Local $sFile = StringTrimLeft( $sString, 3 )
|
|
Local $File = FileOpen($sFile)
|
|
Local $sString = FileRead($File)
|
|
FileClose($File)
|
|
EndIf
|
|
|
|
Local $RET = StringSplit($sString, $CMDLINE[3], $iFlag)
|
|
If IsArray($RET) Then
|
|
ConsoleWrite("--> Matching SubStrings: " & $RET[0] & @CRLF)
|
|
For $i = 1 To $RET[0]
|
|
ConsoleWrite("#"&$i&":"&@TAB&$RET[$i] & @CRLF)
|
|
Next
|
|
Exit 0
|
|
Else
|
|
ConsoleWrite(">>> Errors Occurred." &@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrInsert()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/ISR String InsertStr Position" & @CRLF _
|
|
& "Usage:" & @TAB & "Insert a string within another string." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & @TAB & "Original string." & @CRLF _
|
|
& "InsertStr:" & @TAB & "String to be inserted." & @CRLF _
|
|
& "Position:" & @TAB & "Position to insert string." & @CRLF _
|
|
& @TAB & @TAB & "(Negatives values count from right hand side)." & @CRLF & @CRLF _
|
|
& "Return Value:" & @CRLF _
|
|
& @TAB & "Success: The modified string." & @CRLF _
|
|
& @TAB & "Failure: The original string." & @CRLF
|
|
If $CMDLINE[0] < 4 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
EndIf
|
|
Local $RET = _StringInsert($CMDLINE[2], $CMDLINE[3], $CMDLINE[4])
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndFunc
|
|
|
|
|
|
Func _StrIsAlNum()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/IAN String" & @CRLF _
|
|
& "Usage:" & @TAB & "Check if a string contains only alphanumeric characters." & @CRLF & @CRLF _
|
|
& "Error Code:" & @CRLF _
|
|
& " 0: String contains only alphanumeric characters." & @CRLF _
|
|
& " 1: String contains non-alphanumeric characters." & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringIsAlNum($CMDLINE[2])
|
|
If $RET = 1 Then
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 0" & @CRLF)
|
|
Exit 0
|
|
Else
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 1" & @CRLF)
|
|
Exit 1
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrIsAlpha()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/ALP String" & @CRLF _
|
|
& "Usage:" & @TAB & "Check if a string contains only alphabetic characters." & @CRLF & @CRLF _
|
|
& "Error Code:" & @CRLF _
|
|
& " 0: String contains only alphabetic characters." & @CRLF _
|
|
& " 1: String contains non-alphabetic characters." & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringIsAlpha($CMDLINE[2])
|
|
If $RET = 1 Then
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 0" & @CRLF)
|
|
Exit 0
|
|
Else
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 1" & @CRLF)
|
|
Exit 1
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrIsASCII()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/ASC String" & @CRLF _
|
|
& "Usage:" & @TAB & "Check if a string contains only ASCII characters(0x00 - 0x7f)." & @CRLF & @CRLF _
|
|
& "Error Code:" & @CRLF _
|
|
& " 0: String contains only ASCII characters." & @CRLF _
|
|
& " 1: String contains extended ASCII characters." & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringIsASCII($CMDLINE[2])
|
|
If $RET = 1 Then
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 0" & @CRLF)
|
|
Exit 0
|
|
Else
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 1" & @CRLF)
|
|
Exit 1
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrIsDigit()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/DIG String" & @CRLF _
|
|
& "Usage:" & @TAB & "Check if a string contains only digit (0-9) characters." & @CRLF & @CRLF _
|
|
& "Error Code:" & @CRLF _
|
|
& " 0: String contains only digit characters." & @CRLF _
|
|
& " 1: String contains non-digits characters." & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringIsDigit($CMDLINE[2])
|
|
If $RET = 1 Then
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 0" & @CRLF)
|
|
Exit 0
|
|
Else
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 1" & @CRLF)
|
|
Exit 1
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrIsLower()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/LOW String" & @CRLF _
|
|
& "Usage:" & @TAB & "Check if a string contains only lowercase characters." & @CRLF & @CRLF _
|
|
& "Error Code:" & @CRLF _
|
|
& " 0: String contains only lowercase characters." & @CRLF _
|
|
& " 1: String contains non-lowercase characters." & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringIsLower($CMDLINE[2])
|
|
If $RET = 1 Then
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 0" & @CRLF)
|
|
Exit 0
|
|
Else
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 1" & @CRLF)
|
|
Exit 1
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrIsUpper()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/UPR String" & @CRLF _
|
|
& "Usage:" & @TAB & "Check if a string contains only lowercase characters." & @CRLF & @CRLF _
|
|
& "Error Code:" & @CRLF _
|
|
& " 0: String contains only uppercase characters." & @CRLF _
|
|
& " 1: String contains non-uppercase characters." & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringIsUpper($CMDLINE[2])
|
|
If $RET = 1 Then
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 0" & @CRLF)
|
|
Exit 0
|
|
Else
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 1" & @CRLF)
|
|
Exit 1
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrIsSpace()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/BLK String" & @CRLF _
|
|
& "Usage:" & @TAB & "Check if a string contains only whitespace characters." & @CRLF & @CRLF _
|
|
& "Error Code:" & @CRLF _
|
|
& " 0: String contains only whitespace characters." & @CRLF _
|
|
& " 1: String contains non-whitespace characters." & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringIsSpace($CMDLINE[2])
|
|
If $RET = 1 Then
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 0" & @CRLF)
|
|
Exit 0
|
|
Else
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 1" & @CRLF)
|
|
Exit 1
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrIsHEX()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/HEX String" & @CRLF _
|
|
& "Usage:" & @TAB & "Check if a string are hexadecimal digit (0-9, A-F) characters." & @CRLF & @CRLF _
|
|
& "Error Code:" & @CRLF _
|
|
& " 0: String contains only hexadecimal characters." & @CRLF _
|
|
& " 1: String contains non-hexadecimal characters." & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringIsXDigit($CMDLINE[2])
|
|
If $RET = 1 Then
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 0" & @CRLF)
|
|
Exit 0
|
|
Else
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "ErrorCode: 1" & @CRLF)
|
|
Exit 1
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrLength()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/LEN String" & @CRLF _
|
|
& "Usage:" & @TAB & "Return the number of characters in a string." & @CRLF & @CRLF _
|
|
& "Return Value: The length of the string." & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringLen($CMDLINE[2])
|
|
ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "Length: " & $RET & @CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
|
|
Func _StrLeft()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/LFT String Count" & @CRLF _
|
|
& "Usage:" & @TAB & "Return a number of characters from the left side of a string." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & "The string to evaluate." & @CRLF _
|
|
& "Count:" & @TAB & "The number of characters to get." & @CRLF
|
|
If $CMDLINE[0] < 3 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
If $CMDLINE[2] = "/?" Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringLeft($CMDLINE[2], $CMDLINE[3])
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrRight()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/RIT String Count" & @CRLF _
|
|
& "Usage:" & @TAB & "Return a number of characters from the right side of a string." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & "The string to evaluate." & @CRLF _
|
|
& "Count:" & @TAB & "The number of characters to get." & @CRLF
|
|
If $CMDLINE[0] < 3 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
If $CMDLINE[2] = "/?" Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringRight($CMDLINE[2], $CMDLINE[3])
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrTrimLeft()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/STL String Count" & @CRLF _
|
|
& "Usage:" & @TAB & "Trim a number of characters from the left side of a string." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & "The string to evaluate." & @CRLF _
|
|
& "Count:" & @TAB & "The number of characters to trim." & @CRLF
|
|
If $CMDLINE[0] < 3 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
If $CMDLINE[2] = "/?" Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringTrimLeft($CMDLINE[2], $CMDLINE[3])
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrTrimRight()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/STR String Count" & @CRLF _
|
|
& "Usage:" & @TAB & "Trim a number of characters from the right side of a string." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & "The string to evaluate." & @CRLF _
|
|
& "Count:" & @TAB & "The number of characters to trim." & @CRLF
|
|
If $CMDLINE[0] < 3 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
If $CMDLINE[2] = "/?" Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringTrimRight($CMDLINE[2], $CMDLINE[3])
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrMid()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/MID String Start [Count]" & @CRLF _
|
|
& "Usage:" & @TAB & "Extract a number of characters from a string." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & "The string to evaluate." & @CRLF _
|
|
& "Start:" & @TAB & "The character position to start." & @CRLF _
|
|
& "Count:" & @TAB & "(Optional) The number of characters to extract." & @CRLF _
|
|
& @TAB & "(By default the entire remainder of the string.)" & @CRLF
|
|
|
|
If $CMDLINE[0] < 3 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
If $CMDLINE[2] = "/?" Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
EndIf
|
|
EndIf
|
|
|
|
Local $iCount = -1
|
|
If $CMDLINE[0] >=4 Then $iCount = $CMDLINE[4]
|
|
|
|
Local $RET = StringMid($CMDLINE[2], $CMDLINE[3], $iCount)
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndFunc
|
|
|
|
|
|
|
|
Func _StrReplace()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/SRP String SearchStr ReplaceStr [Count=0] [Case=0]" & @CRLF _
|
|
& "Usage:" & @TAB & "Replace substrings in a string." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & @TAB & "The string to evaluate." & @CRLF _
|
|
& "SearchStr:" & @TAB & "The substring to search for." & @CRLF _
|
|
& "ReplaceStr:" & @TAB & "The replacement string." & @CRLF _
|
|
& "Count:" & @TAB & @TAB & "The number of times to replace the searchstring." & @CRLF _
|
|
& @TAB & @TAB & "All searchstrings will be replaced.(Default=0)" & @CRLF _
|
|
& @TAB & @TAB & "Use a negative number to replace from the right side." & @CRLF _
|
|
& "Case:" & @TAB & @TAB & "Flag to indicate if the operations should be case sensitive." & @CRLF _
|
|
& @TAB & @TAB & "0: Not case sensitive.(Default)" & @CRLF _
|
|
& @TAB & @TAB & "1: Case sensitive." & @CRLF & @CRLF _
|
|
& "Returen Value: The new string." & @CRLF
|
|
|
|
If $CMDLINE[0] < 4 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
EndIf
|
|
|
|
Local $iCount = 0
|
|
Local $iCase = 0
|
|
If $CMDLINE[0] >= 5 Then $iCount = $CMDLINE[5]
|
|
If $CMDLINE[0] >= 6 Then $iCase = $CMDLINE[6]
|
|
|
|
Local $RET = StringReplace($CMDLINE[2], $CMDLINE[3], $CMDLINE[4], $iCount, $iCase)
|
|
ConsoleWrite("--> Occurrence: " & @Extended & @CRLF & $RET & @CRLF)
|
|
Exit 0
|
|
EndFunc
|
|
|
|
|
|
Func _StrReverse()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/REV String" & @CRLF _
|
|
& "Usage:" & @TAB & "Reverse the contents of the specified string." & @CRLF & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringReverse($CMDLINE[2])
|
|
;ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "Result: " & $RET & @CRLF)
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StrStripWS()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/SWS String Flag" & @CRLF _
|
|
& "Usage:" & @TAB & "Strip the white space in a string." & @CRLF & @CRLF _
|
|
& "Parameters:" & @CRLF _
|
|
& "String:" & @TAB & "The string to strip." & @CRLF _
|
|
& "Flag:" & @TAB & "Flag to indicate the type of stripping." & @CRLF _
|
|
& @TAB & "Add the flags together for multiple operations." & @CRLF _
|
|
& @TAB & "1: Strip leading white space." & @CRLF _
|
|
& @TAB & "2: Strip trailing white space." & @CRLF _
|
|
& @TAB & "4: Strip double (or more) spaces between words." & @CRLF _
|
|
& @TAB & "8: Strip all spaces (over-rides all other flags)." & @CRLF
|
|
If $CMDLINE[0] < 3 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $sString = $CMDLINE[2]
|
|
Local $iFlag = $CMDLINE[3]
|
|
EndIf
|
|
Local $RET = StringStripWS($sString, $iFlag)
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndFunc
|
|
|
|
|
|
Func _StringLower()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/LWR String" & @CRLF _
|
|
& "Usage:" & @TAB & "Convert a string to lowercase." & @CRLF & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringLower($CMDLINE[2])
|
|
;ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "Result: " & $RET & @CRLF)
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _StringUpper()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/UPR String" & @CRLF _
|
|
& "Usage:" & @TAB & "Convert a string to uppercase." & @CRLF & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = StringUpper($CMDLINE[2])
|
|
;ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "Result: " & $RET & @CRLF)
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _Str2Hex()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/S2H String" & @CRLF _
|
|
& "Usage:" & @TAB & "Convert a string to a hex string." & @CRLF & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = _StringToHex($CMDLINE[2])
|
|
;ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "Result: " & $RET & @CRLF)
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
Func _Hex2Str()
|
|
Local $Tips = @CRLF & "CMD:" & @TAB & "/H2S String" & @CRLF _
|
|
& "Usage:" & @TAB & "Convert a hex string to a string." & @CRLF & @CRLF
|
|
If $CMDLINE[0] < 2 Then
|
|
ConsoleWrite($Tips)
|
|
Exit 0
|
|
Else
|
|
Local $RET = _HexToString($CMDLINE[2])
|
|
;ConsoleWrite("String: " & $CMDLINE[2] & @CRLF & "Result: " & $RET & @CRLF)
|
|
ConsoleWrite($RET&@CRLF)
|
|
Exit 0
|
|
EndIf
|
|
EndFunc
|
|
|
|
|
|
;#CS ----------------------------------------
|
|
; Switch $iFlag
|
|
; Case '/L'
|
|
; $iFlag = $STR_STRIPLEADING (1)
|
|
; Case '/R'
|
|
; $iFlag = $STR_STRIPLEADING (2)
|
|
; Case '/S'
|
|
; $iFlag = $STR_STRIPLEADING (4)
|
|
; Case '/A'
|
|
; $iFlag = $STR_STRIPLEADING (8)
|
|
; Case Else
|
|
; $iFlag = $STR_STRIPLEADING (8)
|
|
; EndSwitch
|
|
;#CE ----------------------------------------
|
|
#CS
|
|
Func _Usage()
|
|
Global $HelpInfo = @CRLF & "-- String Manage Utility." & @CRLF _
|
|
& "Ver 1.0 Build Jun.21 2016." & @CRLF & @CRLF _
|
|
& "Command Line: [/Command] <Parameter1> ... " & @CRLF & @CRLF _
|
|
& "Commands:" & @CRLF _
|
|
& "/CMP" & @TAB & "Compares two strings with options." & @CRLF _
|
|
& "/SIS" & @TAB & "Checks if a string contains a given substring." & @CRLF _
|
|
ConsoleWrite($HelpInfo)
|
|
Exit 0
|
|
EndFunc
|
|
#CE
|
|
|
|
|