2012-09-02 13:03
2012-09-02 13:26
2012-09-02 19:27
2012-09-02 19:37
2012-09-02 19:53
2012-09-02 21:00
2012-09-02 21:23
2012-09-02 21:51
2012-09-03 08:06
程序代码：
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
2012-09-03 09:49