【VBScript】文字のバイト数をカウントする

2023年2月4日VBScript

特定の文字が含まれるかを調べる

VBScriptで文字列のバイト数をカウントする方法です。

LenBがうまくカウントしてくれないので次の関数を使用しています。

'バイト数をカウントする関数
Function LenByte(strVal)
    Dim i, strChr
    LenByte = 0
    If Trim(strVal) <> "" Then
        For i = 1 To Len(strVal)
            strChr = Mid(strVal, i, 1)
            If (Asc(strChr) And &HFF00) <> 0 Then
                LenByte = LenByte + 2
            Else
                LenByte = LenByte + 1
            End If
        Next
    End If
End Function

' 上の関数の呼び出し例
msgbox LenByte("abcde")         ' 結果：5
msgbox LenByte("ABCDE")         ' 結果：5
msgbox LenByte("あいうえお")    ' 結果：10
msgbox LenByte("ＡＢＣＤ")      ' 結果：8