| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 580 人关注过本帖
标题:[求助]如何读取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
快速回复:[求助]如何读取txt文件内容
数据加载中...
 
   



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

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