HOME       LIST

【Classic ASP】文字列から指定バイト分の文字列を取得する。

Classic ASP、文字列から指定バイト分の文字列を取得する。

自分以外の人は、すべてが顧客である。(家族、友人、同僚...) - 2017/03/18(DOJEUN)

Wouldn't that be nice?(そうだったらいいのにね?/そうだったらいいよね?)


'=====================================================================
'   処理説明        :文字列から指定バイト分の文字列を取得する。
'   引数            :ソース文字列、取得するバイト数
'   戻り値          :文字列
'=====================================================================
Function fncCutGetString(pSTR,pGetByte)
    Dim strSrcString
    Dim intTotalLength
    Dim intCurBytes
    Dim strGetString
    Dim strCheckChar
    Dim intCheckLength
    Dim i

    strSrcString   = Trim(pSTR)
    intTotalLength = Len(strSrcString)
    intCurBytes    = 0
    strGetString   = ""

    If IsNull(pSTR) OR intTotalLength = 0 OR CDbl(pGetByte) = 0 Then
        fncCutGetString = ""
        Exit Function
    End If
    For i = 1 To intTotalLength
        strCheckChar = Mid(strSrcString,i,1)
        intCheckLength = Len(Hex(Asc(strCheckChar)))
        If intCheckLength > 2 Then
            intCurBytes = intCurBytes + 2
        Else
            intCurBytes = intCurBytes + 1
        End If
        If intCurBytes <= pGetByte Then
            strGetString = strGetString & strCheckChar
        End If
    Next
    fncCutGetString = strGetString
END Function

以前コンテンツ:【Classic ASP】SUBやFUNCTIONの中で引数の値を変えると元の変数の値も変わる。
次のコンテンツ:【Classic ASP】UTF-8対応



Copyright(c) 2007-2020 dojeun.com All Rights Reserved.

Valid XHTML 1.0 Transitional