文字の判断

解決済

質問者：GERRARD
質問日時：2002/02/05 11:50
回答数：3件

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

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

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のヘルプで調べてください。

- 0
- 件

通報する

No.3

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

付加情報として、、、

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

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

- 0
- 件

通報する

No.1

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

お疲れ様です。

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

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

で良いと思います。

数字の判断は

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

で良いと思います。

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