| 投稿日 | ： 2005/02/17(Thu) 12:50 |
| 投稿者 | ： つとむ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 全角文字が入力されている文字列中の全角スペースのチェック |
ご指摘ありがとうございます。
実際にしたいことは、文字列の先頭と終わりに全角スペースが
ないかをチェックし、存在した場合は、終了し（返却し）、
存在しない場合は、次の処理に進むというものです。
<per>
For I = 1 To Len(Text1.Text)
mozi = Mid$(Text1.Text, I, 1)
If ((I = 1 Or I = Len(Text1.Text)) And Asc(mozi) = " ") Then
Check_subt = False
Exit Function
End If
処理
Next I
</per>I