入力チェックについて

質問

体重を入力するテキストボックスがあります。
整数部分と小数部分は分けないので、
入力できる種類は半角数字とドットです。

整数部分は3桁まで、小数点以下は第一位までとする
入力チェックをつけたいのですが、
整数部分と小数点部分を別々にチェックするにはどのような命令を使用すればよいでしょうか。
(60, 60.1 , 105　などのパターンが考えられると思います。)

回答No.2

nda23 · ベストアンサー

VBのバージョンがありません。
Splitで整数部と小数部に分けるか、
正規表現を使って判断します。

'Splitによる方法
Function チェック(ByVal T As String) As Boolean
Dim N

If T = "" Then
　　　　'入力無し
　　　　Exit Function
End If
If Not IsNumeric(T) Then
　　　　'数値でない
　　　　Exit Function
End If
N = Split(T, ".")
Seelct Case Len(N(0))
　　Case 0
　　　　'整数が無い
　　　　Exit Function
　　Case 1 To 3 : 'OK
　　Case Else
　　　　'整数が3桁以上ある
　　　　Exit Function
End Select
If UBound(N) = 1 Then
　　　　Select Case Len(N(1))
　　　　　　Case 0
　　　　　　　　'少数が無い
　　　　　　　　Exit Function
　　　　　　Case 1 : 'OK
　　　　　　Case Else
　　　　　　　　'少数が1桁以上ある
　　　　　　　　Exit Function
　　　　End Select
End If
チェック = True
End Function

'正規表現による方法
Function チェック(ByVal T As String) As Boolean
Dim N
Set N = CreateObject("VBScript.RegExp")
N.Pattern = "(^\d{1,3}$)|(^\d{1,3}\.\d{1}$)"
チェック = N.Test(T)
End Function

どっちが楽か一目瞭然ですね。

お礼

ありがとうございます。
わかりやすいソースでした。splitは便利ですね。
追加で質問なのですが、半角カナ文字以外の入力時エラーにするチェック方法を教えて頂けませんか。

回答No.4

imogasi

VBの質問らしいが、VB.NETかエクセルVBAか（VB6か）など標題に明記すべきあｄ。
VBAなら
入力された数の桁数の捕捉について
Private Sub TextBox1_LostFocus()
x = Val(TextBox1.Text)
MsgBox x
MsgBox Int(x)
MsgBox Len(Int(x))
'--
p = InStr(TextBox1.Text, ".")
MsgBox p
n = Len(x) - p
MsgBox n
End Sub
が参考になるだろう。
参考　http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=24247&forum=7
の「きくちゃん」
＞小数点以下数として
ｘ－Int(x)　を使うのは危ない。
ーーー
桁数でとらえず
単純に９９９．９９より小などと、事実上で、量的に表せないのかな。

お礼

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

回答No.3

nda23

半角カナにマッチする正規表現は以下の通りです。

Finction 半角カナ(ByVal T As String) As Boolean
Dim 正規表現 As Object
Set 正規表現 = CreateObject("VBScript.RegExp")
正規表現.Pattern = "^[。-゜]+$"
半角カナ = 正規表現.Test(T)
End Function

上記は空文字列は不可です。
もし、空文字列をOKにする場合は"^[。-゜]*$"とします。
正規表現は応用範囲が広いので、覚えておかれると
便利です。コテコテ1文字ずつ調べたくないですよね。

http://msdn.microsoft.com/ja-jp/library/cc392487.aspx
http://msdn.microsoft.com/ja-jp/library/ae5bf541(VS.80).aspx

お礼

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

回答No.1

yhc3594

InStr 関数を使って、小数点の位置を見つけてはどうですか？
その後、ｍｉｄ関数で、対象情報を取り出して桁数を判定する。
＊小数点が２個入力された場合などを考慮して、事前に
　ｉｓｎｕｍｅｒｉｃで数値判定をしておくと、より正確なチェックとなります。

お礼

ありがとうございます。
その３つの関数を使うとできますね。
追加で質問なのですが、半角カナ文字以外の入力時エラーにするチェック方法を教えて頂けませんか。