以下是引用taohua300在2012-9-3 09:49:37的发言:
Clear
lcString = "战2.1上23.03海2"
lcTemp = Chrtranc(lcString, '0123456789.', '')
lcString = Chrtranc(lcString, lcTemp, Replicate('|', Lenc(lcTemp)))
m.s = 0
For i = 1 To Getwordcount(lcString, '|')
m.s = m.s + Val(Getwordnum(lcString, i, '|'))
Next
? m.s
思路:
将字符串中非数字和“.”的字符全部替换成 '|'
然后使用Getwordnum 和 取出字符转化成数值型相加
不能头痛医头,脚痛医脚,要有一个合理的方法