vb 如何从TXT文件里读取出数字

显示全部楼层 · 2011-2-26 23:05:38

vb 如何从TXT文件里读取出数字,并输出到a,b,c
a,b,c均为数字型数组
比如说一个文件
1/2/123
2/3/234
3/4/543
结果为a的数组为 1,2,3

b的数组为 2,3,4

c的数组为 123,234,543
这样的怎麼通过VB实现感谢
那文件里面的数字是没有规律的....
而且我想要的输出数据是这样子的我是想数据给一个数组L(X,Y)=Z
其中的L 的X为a数组的值Y为b数组的值Z为c数组的值即
L(1,2)=123
L(2,3)=234l(3,4)=534这样子的要怎麼实现我也算新手求指教...

千问 · 2011-2-26 23:05:38

用split用2次就可以了假如数据都存在str变量里面第一次把每行分开 temp=split(str,vbcrlf)a=split(temp(0),",")b=split(temp(1),",")c=split(temp(2),",")结果为a的数组为 1,2,3
b的数组为 2,3,4
c的数组为 123,234,543

千问 · 2011-2-26 23:05:38

我觉得你应该看看InStr()函数:如果查找到字符串"/"就返回它在整个字符串中的位置。如：l=instr(6,"vb，vb，我爱你vb,"vb")那么L返回的就是10然后用mid()函数截取就行了！至于有字符串换回数字型你应该会吧？

千问 · 2011-2-26 23:05:38

Public Enum OFOpenFileOutput = 0OpenFileInput = 1OpenFileAppend = 2End EnumPublic Function OpenFile(ByVal Files, Optional ByVal Text = "", Optional ByVal Mode As OF = 1)

千问 · 2011-2-26 23:05:38

ommand1_Click()Dim A$Open "C:\1.txt" For Input As #1A = StrConv(InputB$(LOF(1), #1), vbUnicode)Close #1A = ","Open "C:\1.txt" For Output As #1Print #1, "{"Print #1,