以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何求得和？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60953)
--  作者：linshengqi
--  发布时间：2014/12/4 12:35:00
--  [求助]如何求得和？

有一string="操作编号|98|储物信息_商品名称|108|货架编码|98|拣货数量|98|总体积|107|总毛重kg|98|状态|30"

我想求得其中的数字合计数（和），如何写代码？

求专家指导。

 
--  作者：y2287958
--  发布时间：2014/12/4 12:46:00
--  
Dim ss As String="操作编号|98|储物信息_商品名称|108|货架编码|98|拣货数量|98|总体积|107|总毛重kg|98|状态|30"
Dim ii As Integer
For i As Integer = 1 To ss.Split("|").length-1 Step 2
    ii += ss.Split("|")(i)
Next
Output.Show(ii)
--  作者：czy
--  发布时间：2014/12/4 12:53:00
--  
Dim i As Integer
For Each Name As String In "操作编号|98|储物信息_商品名称|108|货架编码|98|拣货数量|98|总体积|107|总毛重kg|98|状态|30".Split("|")
    i = i + Val(Name)
Next
Output.Show(i)
--  作者：linshengqi
--  发布时间：2014/12/4 13:21:00
--  

谢谢