2010年01月19日

文字のバイト数取得の関数

VBScriptでは、LenBを使用すると半角全角に関係なく1文字を
2バイトでカウントしてしまうので、半角文字は1バイト/全角
文字は2バイトでカウントする関数を作成しました。

-----------------------------------------------------------------------------
Option Explicit

Dim strRecord

strRecord = "123456789テスト 東京都大田区"

WScript.Echo GetLen(strRecord)

Function GetLen(sObj)
Dim i
Dim iCode

GetLen = 0
For i = 1 To Len(sObj)
iCode = Asc(Mid(sObj, i, 1))
If (( iCode >= 0) And (iCode <= 255)) Then
GetLen = GetLen + 1
Else
GetLen = GetLen + 2
End If
Next

End Function
posted by rururu at 00:16| Comment(0) | TrackBack(0) | VBScript
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。
この記事へのトラックバックURL
http://blog.sakura.ne.jp/tb/34822449
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック