半角数字かどうかの判定

質問

いつもお世話になっております。

VB6を使っているのですが、文字列が半角数字かどうかの
判定をしたいのですが、何かいい方法はないでしょうか？

どうかよろしくお願いいたします。

回答No.2

WizardZero · ベストアンサー

#1さんの方法は半角“文字”の判定方法で、半角“数字”ではないかと・・・

最も単純に考えて、１文字ずつ文字コードを調べる方法です。関数にしてみました。

' 文字列が半角数字であるかを判定
' [引数]
' strValue ... 検証する文字列
' [戻り値]
' True .... 全て半角数字
' False ... 半角数字以外が含まれている
Private Function CheckNarrowNum(strValue As String) As Boolean
Dim strChr() As Byte, i As Long

'文字列をバイト配列に変換
strChr = strValue

'バイト配列を１つ置きに調べる(Unicodeのため)
For i = 0 To UBound(strChr) Step 2
'文字コードが 0 ～ 9 の場合
If strChr(i) >= 48 And strChr(i) <= 57 And strChr(i + 1) = 0 Then

'それ以外の場合
Else
'半角数字以外の文字なのでFalseを返す
CheckNarrowNum = False
Exit Function

End If
Next

'全て半角数字なのでTrueを返す
CheckNarrowNum = True
End Function

もっと効率のいい方法があるような気もしますが・・・。
Replace関数で0～9を全部空白に置き換えて、文字列がなくなるかどうかを調べる、という方法も考えましたけど、配列を１回だけループさせる方が速いと思ったのでコーディングしてません。

お礼

ご教示ありがとうございました。

参考にさせていただきます。

回答No.3

naganaga_001

お世話になります。

参考 URL が参考になると思います。
個人的には RegExp をオススメしたいです。

参考URL：

http://homepage1.nifty.com/rucio/main/technique/InputChk2.htm

お礼

ご回答ありがとうございました。

今回はしたの方に教えていただいたコードを
使いたいと思います。
でも、RegExpは全く知らなかったので興味深く
見させていただきました。

回答No.1

chibita_papa

参考にしてください

Sub aaa(ByVal str As String)

' Dim str As String
' str = "アイウエオ"

If LenB(StrConv(str, vbFromUnicode)) = Len(str) Then

MsgBox ("全て半角文字です")

Else

MsgBox ("全角文字が含まれています")

End If

End Sub

お礼

わざわざご回答ありがとうございました。

大変参考になりました。