文字の判断

文字又は数字の判断をしたいのですが？

テキストボックスに一つでも文字が入っているかどうかの判断とかはできないですかね？

テキストボックスに数字以外の物が入っているかどうかの判断とかはできないですかね？

No.2 ベストアンサー 回答者： kj_ 回答日時： 2002/02/05 13:10

文字の入力チェックの幾つかの例をあげます

(1)TRIM を使用した場合（前後のスペースはカットします）
if trim(txt.text) = "" then
msgbox"入力無し(但しスペースを除く)"
end if

(2)文字列関数を使用した場合
if len(txt.text) = 0 then
msgbox"入力無し"
end if

(3)数値かどうかの判断
if IsNumeric(txt.text) = true then
msgbox"数値"
else
msgbox"文字"
end if

また　TRIM LEN IsNumeric 関数はVBのヘルプで調べてください。

No.3 回答者： -boya- 回答日時： 2002/02/05 13:18

付加情報として、、、

スペースを取るTrim()というものを使うと、両端にスペースがある場合も
引っかかります。

文字の有無だけならLen()/LenB()を使って長さが0だったらとかも。
一文字一文字判断したいなら、端っこから一文字一文字Asc()で
アスキーコードを調べるって方法も、、、

No.1 回答者： josyo_m 回答日時： 2002/02/05 12:05

お疲れ様です。

テキストボックスに１つでも文字が入っているかの判断は

If Text1.Text <> "" Then
　　'// １文字でも文字が入っている
Else
　　'// １文字も文字が入っていない
End If

で良いと思います。

数字の判断は

If IsNumeric(Text1.Text) Then
　　'// 数値が入っている
Else
　　'// 数値以外が入っている
End If

で良いと思います。

間違っていたらごめんなさい。