VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/02/03(Tue) 14:28 |
| 投稿者 | ： いちゆ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 入力データの判別 |
過去ログにありそうだけど。
'数字だけを使っているか？を返す関数。
function isNumeric_ex(byval inString as string) as boolean
dim i as long
for i=1 to len(inString)
select case mid$(inString,i,1)
case "0","1","2","3","4","5","6","7","8","9"
case else
exit function
end select
next
isNumeric_ex=true
end function
ちなみに、数字と数値は違うのでこういう仕様になりました。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）