OOobbs2/153

OOobbs2/153

• サマリ: 数字の入った文字データから数字のみ取り出す。
• 環境: Basic
• 状態: 未解決
• 投稿者: yaminokakera?
• 投稿日: 2008-11-07 (金) 20:14:09

質問

数字の入った文字データから数字のみ取り出したい。

具体的のには　2009年11月7日から2009117の部分だけ取り出したい。

回答

• 文字を抜きたければこれでもOK

Sub extract_1
sTxt = "2009年11月7日"
sNum = ""

sLen=Len(sTxt)

for i=1 to sLen
	If isNumeric(Mid(sTxt,i,1)) then
		sNum=sNum & Mid(sTxt,i,1)
	end if
next
End Sub

• ふうま

感想，コメント，メモ