文字のバイト数をカウントする
文字数を数えるには Len 関数を使用します。
lngCnt = Len("あいうえお") 'lngCnt には 5 が入ります。
文字のバイト数を数えるには LenB 関数を使用します。
lngCnt = LenB("あいうえお") 'lngCnt には 10 が入ります。
しかし VBS では LenB 関数は使用できません。
以下は VBS で文字のバイト数をカウントする例です。
- Function lngCnLen(strVal)
- Dim i, strChr
- lngCnLen = 0
- If Trim(strVal) <> "" Then
- For i = 1 To Len(strVal)
- strChr = Mid(strVal, i, 1)
- '2バイト文字は+2
- If (Asc(strChr) And &HFF00) <> 0 Then
- lngCnLen = lngCnLen + 2
- Else
- lngCnLen = lngCnLen + 1
- End If
- Next
- End If
- End Function
VBScript とは
Visual Basic (VB) のサブセット(簡易版)で、 マイクロソフト社製のスクリプト言語である。 Microsoft Windows上やInternet Information Server(IIS)上で動作する。
VBScript (Microsoft Visual Basic Scripting Edition) は VisualBasicの構文を真似てつくられた、 Microsoft Windowsのネイティブ スクリプト言語である。ランタイムとして、ASP や WSH があり、 主な用途として、
- Active Server Pages (ASP) などを使用したサーバサイドスクリプティング処理
- Windows Script Host (WSH) を利用したWindows上でのネイティブ・スクリプト
- Internet Explorerを使用したクライアントサイドスクリプティング処理
- HTML Applications(HTA)アプリケーション
が挙げられる。 ただし、WWWクライアントスクリプトとしては、対応するブラウザが Windows版のInternet Explorerだけであり、2005年現在ではほとんど使われていない。
HTAやASP、HTML中に組み込まれることが多いが 単体のスクリプトファイルとしておかれる場合、 拡張子は通常.vbsを使用する。