- 日時： 2009/12/27 12:49
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[文字列処理][応用コード][] *
* キーワード：英字,検索,正規表現,カタカナ,ひらがな,英数,半角カタカナ *
***********************************************************************************
元質問：文字列のアルファベットをチェック - たかし 2004/05/19-18:08 No.9010
テキストの中にアルファベットが含まれているかどうかを調べるにはどうしたらいいのでしょうか？
コマンドボタンを押したときにメッセージがでて警告を促す形です。
Instr関数を使ってどのようになるのでしょうか？
-------------------------------------------------------------------------
Re: 文字列のアルファベットをチェック - 花ちゃん 2004/05/19-19:11 No.9013
-------------------------------------------------------------------------
> テキストの中にアルファベットが含まれているかどうかを
大文字・小文字・全角・半角 等がありますが？
> Instr関数を使ってどのようになるのでしょうか？
では、大変でしょう。
大文字・小文字・全角・半角 等の条件や使用状況や後の処理等細かい条件で
色々やり方が変ってくるかと思うのですが、一般的には1文字づつ調べるかと
思います。(最近では正規表現を使った方法も見かけます）
一番単純な方法
Private Sub Command1_Click()
Dim s As String
Dim i As Integer
s = "123aあいうA花Ａ456ｚ"
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
|
文字列のアルファベットをチェック(VB6.0)