| 投稿日 | ： 2005/02/17(Thu) 12:59 |
| 投稿者 | ： いな |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 全角文字が入力されている文字列中の全角スペースのチェック |
> ご指摘ありがとうございます。
>
> 実際にしたいことは、文字列の先頭と終わりに全角スペースが
> ないかをチェックし、存在した場合は、終了し（返却し）、
> 存在しない場合は、次の処理に進むというものです。
同一関数内で書かない方が使いまわしが利くように思いますが・・・。
> <p>
> 関数名=True
> 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
> 関数名=False
> Exit For
> End If
> Next I
> </p>
呼び出し元で、処理を続けるか否かを判断されては？