| 投稿日 | ： 2005/02/17(Thu) 11:48 |
| 投稿者 | ： つとむ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 全角文字が入力されている文字列中の全角スペースのチェック |
全角文字が入力されている文字列中に、全角スペースが存在するかチェック
したいのですが、方法としては、全角スペースを直接比較すればいいのでしょうか。
１）
For I = 1 To Len(Text1.Text)
mozi = Mid$(Text1.Text, I, 1)
If mozi = " " Then
Check_sub = False
Exit Function
End If
Next I
２）
zen_sp = " " & " "
For I = 1 To Len(Text1.Text)
mozi = Mid$(Text1.Text, I, 1)
If mozi = zen_sp Then
Check_sub = False
Exit Function
End If
Next I