投稿日 | : 2005/02/17(Thu) 12:50 |
投稿者 | : つとむ |
Eメール | : |
URL | : |
タイトル | : 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