再进就又加分！！！

上午我有个问题就是字符串的问题，有一批数据，全是有；在前面
如：　｜;200   |
      ｜;300   |
      ｜;400   |
      ｜;20.3  |
      ｜;5002.4|
怎么去掉前面的；而得后面的数字呢？
用网友方法 replace(str,";","")有单个数的解决，
｜200|
｜300|
｜400|
  ...
而现在有几个这样的数，因为事先并不知道有几个这样的数字，
如有可能是：;200 　一个数字
     ｜;200|
　　　这样就好了用上面的就行了
但也有可能是　　 
    ｜;200 ;500 ;23.2|
    ｜;20  ;2  ;5.5 ;8 |
这样replace(str,";","")得出的是
　　｜20050023.2｜
　　｜2025.58｜
联在一起了，
而现在是要他们的和
     ｜200|
     ｜723.2|
     ｜35.5|
怎么写呢？

     


--------------------编程问答-------------------- 是不是要先写个判断　；的个数
然后安照　；分列相加？ --------------------编程问答-------------------- 改用  SPLIT  分隔为数组  再对数组进行运算就可以了... --------------------编程问答-------------------- 不会啊，能不以能写个样子呢？ --------------------编程问答-------------------- 如果肯定有;号，可以用split吧？
比如：
dim s as string
dim arr() as string
dim i as integer

s="｜;200 ;500 ;23.2|"
arr=split(s,";")
for i=0 to ubound(arr)
    if val(arr(i))<>0 then
        print val(arr(i))
    end if
next


--------------------编程问答-------------------- 同家人 --------------------编程问答-------------------- dim s as string
dim arr() as string
dim i as integer
dim sum as integer

s="｜;200 ;500 ;23.2|"
arr=split(s,";")
for i=0 to ubound(arr)
    if val(arr(i))<>0 then
        'print val(arr(i))
              '这里依次把数组加一起就可以了
         sum=sum+val(arr(i))
    end if
next

                

--------------------编程问答-------------------- 支持使用split函数 --------------------编程问答-------------------- 同上 --------------------编程问答-------------------- split函数的用法及作用？

补充：VB ,  基础类