|
▼ぱっせんじゃー さん:
こんばんは。
文字列のマッチングは色んな方法がありますよねえ。
やっちん や だるまさんの方法で良いとおもいます。
>単純に考えれば、
>前に"="を付けて、数値が返ってきたら正しい、とすればいいと思うのですが、
>"="を付けたらエラーになる場合の処理がわかりません。
>たとえば、
>
>(03)1234-5678
>のように()を使ってる場合や、
>03 1234 5678
>のようにスペースを使っている場合は
>前に"="を付けたらエラーになります。
>このエラーになる、というのを利用できると思うのですが。
これもすごい発想ですねえ!!
気が付きませんでした・・。
おっしゃっているのは、
'===================================
Sub test()
MsgBox chknum("(20)121-21")
End Sub
'============================================
Function chknum(mystr As String) As Boolean
chknum = True
If IsError(Evaluate("=" & mystr)) Then
chknum = False
End If
End Function
こんな方法ですね?
でもね・・・。
sub test2()
msgbox chknum("d23")
msgbox chknum("222e33")
end sub
これが通っちゃうんだよね!!
でも、すごくおもしろいですけどね!!
|
|