文字数 と バイト数

VBScript

文字数 と バイト数

lesson011.vbs



WScript.Echo "文字数"

For Each arg In WScript.Arguments

    WScript.Echo arg & " => " & Len(arg)

Next
WScript.Echo "バイト数"

For Each arg In WScript.Arguments

    WScript.Echo arg & " => " & LenA(arg)

Next
Function LenA(s)

    Dim iLen: iLen = 0
    ' １文字ずつ処理する

    Dim i

    For i = 1 To Len(s)

        If (Asc(Mid(s, i, 1)) And &HFF00) = 0 Then

            iLen = iLen + 1

        Else

            iLen = iLen + 2

        End If

    Next
    LenA = iLen

End Function
実行結果


C:\>cscript c:\study\vbscript\chapter001\lesson011.vbs 12 １２ 1２ //nologo

文字数

12 => 2

１２ => 2

1２ => 2

バイト数

12 => 2

１２ => 4

1２ => 3