by konisi » 2007年3月19日(月) 18:05
コード: 全て選択
Dim buf As String,i As Long,num As Long,sign As Long
buf="234,100円"
If buf[0]=45 then sign=TRUE else sign=FALSE
num=0
For i=0 To Len(buf)-1
If 48<=buf And buf<=57 then
num=num*10+buf-48
End If
Next i
If sign then num=-num
[code]Dim buf As String,i As Long,num As Long,sign As Long
buf="234,100円"
If buf[0]=45 then sign=TRUE else sign=FALSE
num=0
For i=0 To Len(buf)-1
If 48<=buf[i] And buf[i]<=57 then
num=num*10+buf[i]-48
End If
Next i
If sign then num=-num[/code]適当に作ったのですが、これではだめでしょうか？