常用字符串函数

;取子串,$start开始位置 $end结束位置
func subString($str, $start, $end)
        return J_String($str, "取子串", $start & "," & ($end - $start + 1))
EndFunc   ;==>subString

;取左子串
func leftString($str, $count)
        return J_String($str, "取左子串", $count)
EndFunc   ;==>leftString

;取右子串
func rightString($str, $count)
        return J_String($str, "取右子串", $count)
EndFunc   ;==>rightString

;字符长度
Func lengthString($str)
        return J_String($str, "长度", "")
EndFunc   ;==>lengthString

;查找指定字符所在位置
Func indexOf($str, $findStr)
        return J_String($str, "是否包含", $findStr)
EndFunc   ;==>indexOf

;删除头尾部的空格
Func trimString($str)
        $length = lengthString($str)
        ;删除尾部的空白
        for $i = $length to 1 step -1
                $curString = subString($str, $i, $i)
                ;J_LOG($curString & "," & J_EXP($curString, "\s"))
                if lengthString(J_EXP($curString, "\s")) > 0 Then
                        $str = subString($str, 1, $i - 1)
                Else
                        ExitLoop
                EndIf
        Next
        ;删除头部的空白
        while True
                $length = lengthString($str)
                $curString = subString($str, 1, 1)
                if lengthString(J_EXP($curString, "\s")) > 0 Then
                        $str = subString($str, 2, $length)
                Else
                        ExitLoop
                EndIf
        WEnd
        Return $str
EndFunc   ;==>trimString

Func Mbox($msg)
        J_MsgBox($msg)

EndFunc   ;==>Mbox
;反转给定的字符串
Func StrReverse($str)
        ;获取字符串长度
        $length = J_String($str, "长度", "")
        ;定义用来盛放新字符串的变量
        $nstr = ""
        ;反转字符串
        for $i = $length to 1 step -1
                $nstr = $nstr & J_String($str, "取子串", $i & "," & 1)
        next
        ;返回结果
        return $nstr
EndFunc   ;==>StrReverse

Func lastIndexOf($str, $findStr)
        ;反转字符串
        $nstr = StrReverse($str)
        ;获取字符串总长度
        $length = J_String($str, "长度", "")
        ;获取指定字符串在反转后的字符串中的位置
        $loc = J_String($nstr, "是否包含", $findStr)
        ;根据情况处理返回值
        if $loc = 0 Then
                Return 0
        Else
                return $length - $loc + 1
        EndIf
EndFunc   ;==>lastIndexOf