以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]请问数组获取数字之后如何相加求和  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66086)

--  作者：vvfree --  发布时间：2015/3/30 0:45:00 --  [求助]请问数组获取数字之后如何相加求和 请问数组获取数字之后如何相加求和，到这里不知道从哪里入手了，求解，谢谢 bw 为  421|ewe|5654|ewedd|5455  这样的字符串，现在只要取出数字相加总和 Dim bw As String = Tables("ckfl").GetColVisibleWidth() Dim rs() As String = bw.Split("|") Dim s As String For ir As Integer =0 To rs.Length - 1     Dim ii As String  = rs(ir).Trim     ii = rs(ir)     If Char.IsDigit(ii) Then         s = rs(ir)           MessageBox .show(s)     End If Next [此贴子已经被作者于2015/3/30 1:02:41编辑过]

--  作者：程兴刚 --  发布时间：2015/3/30 0:50:00 --   要告知：bw是什么，人家才好答复！

--  作者：vvfree --  发布时间：2015/3/30 0:54:00 --   Dim bw As String = Tables("ckfl").GetColVisibleWidth() 谢谢

--  作者：998168 --  发布时间：2015/3/30 2:03:00 --   \'bw 为  421|ewe|5654|ewedd|5455  这样的字符串,现在只要取出数字相加总和 Dim bw As String = Tables("ckfl").GetColVisibleWidth() Dim rs() As String rs = bw.Split("|") Dim s As Integer For ir As Integer = 0 To rs.Length - 1     Dim ii As String  = rs(ir).Trim()     If Char.IsDigit(ii) Then         s = s + ii     End If Next 楼主代码逻辑、代码书写规范有待加强哦！

--  作者：vvfree --  发布时间：2015/3/30 15:36:00 --   谢谢 刚接触不久，确实的加强