VB怎么读取txt文件

例如这样的txt文件,我想能用VB读取每一行的四个数据,存在一个二维数组里。就像a[0][0]=6,a[0][1]=489,a[1][0]=1,a[1][1]=511等等...
例如这样的txt文件,我想能用VB读取每一行的四个数据,存在一个二维数组里。就像a[0][0]=6,a[0][1]=489,a[1][0]=1,a[1][1]=511等等
展开
 我来答

答题抽奖

首次认真答题后

即可获得3次抽奖机会,100%中奖。

更多问题
最佳答案
hushan211
2013-12-24
hushan211
采纳数:14 获赞数:11 LV4
擅长:暂未定制
向TA提问 私信TA
展开全部
Dim st1$
Open App.Path + "\TestTxt1.txt" For Input As #1
Line Input #1, st1
Do While Not EOF(1)
Line Input #1, st1
st1 = Trim(st1)
....
Loop
Close #1
ricky43
2013-12-24
ricky43
采纳数:743 获赞数:1923 LV11
擅长:电脑/网络
向TA提问 私信TA
展开全部
Private Sub Command1_Click()

Dim s As String
Dim a(100, 3)
Dim sp() As String
p = 0
Open "d:\abc.txt" For Input As #1
While Not EOF(1)
Line Input #1, s
sp = Split(s, ",")
For i = 0 To 3
a(p, i) = sp(i)
Next i
p = p + 1
Wend
Close #1

MsgBox a(0, 0)
MsgBox a(0, 1)
MsgBox a(0, 2)
MsgBox a(0, 3)
End Sub
追问
非常感谢,但是我之前没有接触过VB,我复制过去运行不了,你可以告诉我怎么调用能够运行成功吗
追答

丫的,怎么这么快就采纳了。。。算了吧好人做到底。。。请下载附件。。。

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zbs_8
2013-12-24
zbs_8
采纳数:507 获赞数:2008 LV10
擅长:暂未定制
向TA提问 私信TA
展开全部
用OPEN读,读一行字符串,然后用逗号隔开,分别读取,再存到数组里。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起

为你推荐:

×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消