投稿日 | : 2004/05/19(Wed) 19:11 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 文字列のアルファベットをチェック |
> テキストの中にアルファベットが含まれているかどうかを
大文字・小文字・全角・半角 等がありますが?
> Instr関数を使ってどのようになるのでしょうか?
では、大変でしょう。
大文字・小文字・全角・半角 等の条件や使用状況や後の処理等細かい条件で
色々やり方が変ってくるかと思うのですが、一般的には1文字づつ調べるかと
思います。
一番単純な方法
Private Sub Command1_Click()
Dim s As String
Dim i As Integer
s = "123aあいうA花A456z"
For i = 1 To Len(s)
If fAlphabetCheck(Mid$(s, i, 1)) = True Then
MsgBox i & "番目の[" & Mid$(s, i, 1) & "]は、英字です"
End If
Next i
End Sub
Private Function fAlphabetCheck(ByVal MyText As String) As Boolean
Dim s1 As String
s1 = UCase(MyText)
s1 = StrConv(s1, vbNarrow)
If s1 >= "A" And s1 <= "Z" Then
fAlphabetCheck = True
End If
End Function