OOobbs2/153
質問
数字の入った文字データから数字のみ取り出したい。 具体的のには 2009年11月7日から2009117の部分だけ取り出したい。 回答
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
感想,コメント,メモ
|