VB6.0如何逐字读取.TXT中的数据，TXT中的内容是数字中间用空格分开，把里边的每个数字读取并求和怎么写代码

我也是初学者     也请教

我觉得可以用遍历来做，设好条件，然后逐一执行，测试阶段，可以把文本用剪切的形式逐一完成，并将成功的数字存入另外文件中，达到已完成数字的效果

一次性读到一个字符串中，然后使用的 split 分解成各段，再求和。

怎么读取啊？

若是这样:TXT中的内容是数字中间用空格分开
直接把TXT改成CSV，再编写宏代码透过EXCEL内建函式功能求和可能更快~

Dim strA as string
Dim H as single
Dim B
StrA=text1.text
B=split(strA,,-1,1)
For I=0 to UBound(B)
H=H+Val(B(I))
Next
大概如此吧，因无VB环境，未能测试。