| 投稿日 | ： 2005/02/17(Thu) 15:41 |
| 投稿者 | ： 黒影 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: 全角文字が入力されている文字列中の全角スペースのチェック |
>実際にしたいことは、文字列の先頭と終わりに全角スペースが
>ないかをチェックし、存在した場合は、終了し（返却し）、
>存在しない場合は、次の処理に進むというものです。
何で最初からこう質問しないのでしょう？
↓こういう事で良いのだろうか？
Private Sub Command1_Click()
If chkSpace(Text1.Text) = False Then
Exit Sub
End If
'何らかの処理
・
・
End Sub
Private Function chkSpace(inText As String) As Variant
chkSpace = True
If InStr(inText, " ") = 1 And _
InStrRev(inText, " ") = Len(inText) Then
chkSpace = False
End If
End Function