标题:[求助]如何读取txt文件内容
只看楼主
huazh
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-5-16
 问题点数:0 回复次数:2 
[求助]如何读取txt文件内容
在20070516.txt中,内容如下:
"8655844",#FALSE#,.4,#2007-05-17 00:04:53#,#2007-05-17 00:06:05#,72,.8,53,4
"5087777",#FALSE#,.4,#2007-05-17 00:05:28#,#2007-05-17 00:06:32#,64,.8,1,4
"6345862",#FALSE#,.4,#2007-05-17 00:06:05#,#2007-05-17 00:07:09#,64,.8,54,4
"5421733",#FALSE#,.4,#2007-05-17 00:09:48#,#2007-05-17 00:12:06#,138,1.2,2,4
如何读取此txt文件中每行的具体值,以逗号隔开的,例如要读取每行中的8655844,6345862,5421733...代码怎么写?谢谢,烦请帮帮忙!
搜索更多相关主题的帖子: txt 文件 
2007-05-17 09:30
xuehuaimin
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-4-24
得分:0 
我读取过数据,你这个数据用open打开数据,用input进行数据传递,注意数组变量如为1维应用变体型的.我也是初学,不过我的已读入成功
2007-05-17 17:17
xuehuaimin
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-4-24
得分:0 
给个例子
Private Sub Command1_Click()
Open "c:\20070516.txt" For Input As #1
Dim a(1 To 10000) As Variant
For i = 1 To 10000
If EOF(1) = True Then GoTo 10 "测试是否到文件尾
Input #1, a(i)
Form1.Print a(i)"测试数值是否传递
Next i
10
Close
End Sub
2007-05-17 17:22



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-140062-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.701013 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved