VB 6.0文本分割问题，怎样让金额部分分离然后相加得出和。 10
2个回答
展开全部
假定你说的文本是储存在变量s中的：
Dim ss() As String, i As Long, m As Double
ss = Split(s, vbCrLf)
For i = 0 To UBound(ss)
If InStr(ss(i), "$") Then m = m + Val(Split(ss(i), "$")(1))
Next
MsgBox "和为" & m
更多追问追答
追问
储存在txt文本中
你这个不可行，后边还有/呢
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
