ある文字列が全て数字であるかどうかをチェックするには？

解決済

質問者：GBSGBS
質問日時：2002/12/24 15:55
回答数：9件

一番効率のよいと思われる方法を教えて下さい。
一つ一つ数字であるか見る方法しか思いつきません。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (9件)

ベストアンサー優先
最新から表示
回答順に表示

No.9ベストアンサー

回答者： imogasi
回答日時：2002/12/25 00:25

Sub test01()

Dim a As String
a = InputBox("数＝")
For i = 1 To Len(a)
If Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i, 1)) > 57 Then
MsgBox i & "字目でNon-Numeric"
Exit For
End If
Next i
End Sub

- 1
- 件

通報する

No.8

回答者： TAGOSAKU7
回答日時：2002/12/24 23:33

ダブル型や少数でもいいなら、#2さんのいうようにIsNumeric関数がベスト

銀行の口座番号のような、0-9ならLike演算子で判断がつきます。
(文字列を分解しないでも可能です。)
0-9以外の物を含む場合はエラーとしたらよいです。

Public Function myNumeric(inString As String) As Boolean
　　myNumeric = Not (inString Like "*[!0-9]*")
End Function

- 4
- 件

通報する

No.7

回答者： ribisi
回答日時：2002/12/24 18:43

VBScriptのRegExpオブジェクトを使い、正規表現で判断するというのはいかがでしょうか。

<html>
<script Language="VBScript">

samplestr = "1234567890"

Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "\D"
msgbox regEx.test(samplestr)
Set regEX = nothing

</script>
</html>

上はVBScriptの構文です。
regEx.Pattern = "\D"は、数字以外の一文字にマッチの意味です。
regEx.test(string)がtrueならば、数字以外が含まれています。

VBからこのオブジェクトを使う場合は、参照設定で
Microsoft Scripting Runtimeオブジェクトを追加してください。
(IEのバージョン5以降が必要です。）

参考URL：http://www.microsoft.com/japan/msdn/library/ja/s …

- 0
- 件

通報する

No.6

回答者： todo36
回答日時：2002/12/24 17:56

if String(len(s),"0") <= s And s <=String(len(s),"9") then

とか

- 1
- 件

通報する

No.5

回答者： diddyumoma
回答日時：2002/12/24 17:43

こんにちわ。

これは例えば100文字の文字列とかを調べるんですよね？

やったことはないんですが、
面白そうなので一つ提案です。

------------------------------------------------------------
Replace関数で0から9まで10回まわして(vbNullStringあたりと置換)、
最後にもとの文字列と比較して何も変わっていなかったら、全部数字。
------------------------------------------------------------

これでどうでしょう。
処理効率のほうは知りません、MSに聞いてください(笑)

- 0
- 件

通報する

No.4

回答者： nitscape
回答日時：2002/12/24 16:36

効率は悪いですが．．．

一度数値型に直して再び文字列に変換、そして比較というのはどうでしょう？

Dim strData As String
Dim strBuff As String
Dim nData As Integer

strData = "12356"

nData = Int(Val(strData))

strBuff = nData

If strBuff <> strData Then MsgBox "数字以外もあるようです"