VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/01/28(Wed) 10:46 |
| 投稿者 | ： いちゆ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 文字列中の数値の取り出しについて |
ほかに原始的な方法としては、
function getNumber(byval inString as string) as string
dim i as long
dim s as String
getNumber=""
for i=1 to len(inString)
s=Mid$(inString,i,1)
select case s
case "0","1","2","3","4", _
"5","6","7","8","9"
getNumber=getNumber+s
end select
'if "0"<=s and s<="9" then getNumber=getNumber+s
next
end function
とか。
でも、数値じゃなくて数字の列を返すよ。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）