VB6.0读取TXT文本内容的问题

zhangjujiang 发布于 2013-03-09 17:35， 701 次点击

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

6 回复

yf9921519152013-03-10 13:49

我也是初学者也请教

evil0122013-03-10 20:21

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

风吹过b2013-03-11 08:17

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

lhms80232013-03-18 10:09

怎么读取啊？

yz10252013-03-18 15:30

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

zhengang10262013-03-19 01:29

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环境，未能测试。