VBScript substr 関数

文字列の一部分を返す


Function substr(ByVal str,ByVal start,ByVal intLength)

	intStart = start
    If len(intStart) = 0 Then intStart = 0
    if intStart = 0 And Len(intLength) < 1 Then
    	substr = str
    	Exit Function
    End If
    
    If len(intLength) = 0 Then intLength = abs(start)
    
    If intStart < 0 Then
        intStart = len(str)+1 + intStart
    Else
    	intStart = intStart + 1
    End If

    Dim tmp
    If intStart <> 0 Then
	    tmp = Mid(str,intStart)
	Else 
		tmp = str
	End If

    Dim intLen
    intLen = len(tmp)


    If len(intLength) > 0 Then

        If intLen >= abs(intLength) Then
            If intLength > 0 Then

        		tmp = Left(tmp,intLength)

            Else
                tmp = Left(tmp,len(tmp) + intLength)
            End If
        Else
            tmp = False
        End If
    End If

    substr = tmp

End Function

GitHubで見る

引数

str = string 入力文字列。
start = string start が正の場合、返される文字列は、 string の 0 から数えて start 番目から始まる文字列となります。例えば、文字列’abcdef’において位置 0にある文字は、’a’であり、位置2には’c’があります。start が負の場合、返される文字列は、 string の後ろから数えて start 番目から始まる文字列となります。
intLength = string 入力文字列。