Top > OOobbs2 > 153

OOobbs2/153 Edit

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

質問 Edit

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

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

回答 Edit

  • 文字を抜きたければこれでも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
  • ふうま

感想,コメント,メモ Edit



Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes