vb6.0如何批量提取多个TXT文件中指定数据
[问题点数：100分，结帖人goosen]
vb6.0如何批量提取多个TXT文件中指定数据
[问题点数：100分，结帖人goosen]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2008年2月 VB大版内专家分月排行榜第一2003年4月 VC/MFC大版内专家分月排行榜第一2002年11月 VC/MFC大版内专家分月排行榜第一
2011年11月 VC/MFC大版内专家分月排行榜第二2008年3月 VB大版内专家分月排行榜第二2008年3月 硬件/嵌入开发大版内专家分月排行榜第二2003年4月 其他开发语言大版内专家分月排行榜第二2003年4月 VB大版内专家分月排行榜第二2003年3月 VB大版内专家分月排行榜第二
2008年5月 VB大版内专家分月排行榜第二
2008年1月 VB大版内专家分月排行榜第三2007年11月 VB大版内专家分月排行榜第三
2008年2月 VB大版内专家分月排行榜第一2003年4月 VC/MFC大版内专家分月排行榜第一2002年11月 VC/MFC大版内专家分月排行榜第一
2011年11月 VC/MFC大版内专家分月排行榜第二2008年3月 VB大版内专家分月排行榜第二2008年3月 硬件/嵌入开发大版内专家分月排行榜第二2003年4月 其他开发语言大版内专家分月排行榜第二2003年4月 VB大版内专家分月排行榜第二2003年3月 VB大版内专家分月排行榜第二
2008年5月 VB大版内专家分月排行榜第二
2008年1月 VB大版内专家分月排行榜第三2007年11月 VB大版内专家分月排行榜第三
2008年5月 VB大版内专家分月排行榜第二
2008年1月 VB大版内专家分月排行榜第三2007年11月 VB大版内专家分月排行榜第三
2007年9月 VB大版内专家分月排行榜第二
2008年3月 VB大版内专家分月排行榜第三2007年8月 VB大版内专家分月排行榜第三
2008年5月 VB大版内专家分月排行榜第二
2008年1月 VB大版内专家分月排行榜第三2007年11月 VB大版内专家分月排行榜第三
2009年4月 VB大版内专家分月排行榜第三2007年10月 VB大版内专家分月排行榜第三
2013年12月 VB大版内专家分月排行榜第二2013年3月 VB大版内专家分月排行榜第二2013年1月 VB大版内专家分月排行榜第二2012年9月 VB大版内专家分月排行榜第二2012年8月 VB大版内专家分月排行榜第二2012年7月 VB大版内专家分月排行榜第二2006年7月 VB大版内专家分月排行榜第二2006年5月 VB大版内专家分月排行榜第二
2014年9月 VB大版内专家分月排行榜第三2013年7月 VB大版内专家分月排行榜第三2013年6月 VB大版内专家分月排行榜第三2013年4月 VB大版内专家分月排行榜第三2012年11月 VB大版内专家分月排行榜第三2006年6月 VB大版内专家分月排行榜第三2006年4月 VB大版内专家分月排行榜第三2002年12月 VB大版内专家分月排行榜第三2002年11月 VB大版内专家分月排行榜第三
2008年5月 VB大版内专家分月排行榜第二
2008年1月 VB大版内专家分月排行榜第三2007年11月 VB大版内专家分月排行榜第三
2007年9月 VB大版内专家分月排行榜第二
2008年3月 VB大版内专家分月排行榜第三2007年8月 VB大版内专家分月排行榜第三
2007年9月 VB大版内专家分月排行榜第二
2008年3月 VB大版内专家分月排行榜第三2007年8月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。请问VB中如何读取txt文件的数据_百度知道
请问VB中如何读取txt文件的数据
问如何用VB读取某个文本文件的某一行的数据 并将该行的值赋予某个变量 我不会用SQL之类的啊;&#92.所以希望大家能帮帮忙啊 比如说一个文本文件的路径为D.，然后查找某一个字符并读取该行的下一行的数据.;date:&#92.txt
for input表示以输入方式（即读取文件）打开, S;S用来保存整个文件
If A满足某个条件 And Not Eof(FreeNum) Then
Line Input #FreeNum。Eof函数用来判断文件是否读完
Line Input #FreeNum:&#92.txt&quot, A
S = S + vbNewLine + A'&#92.txt”;这步是打开“date, A
S1 = S1 + vbNewLine + A&#39Dim A，则可以 Dim A; for input as #FreeNum &#39, S Print #FreeN For Output As FreeNum ' for input as #FreeNum 'D;&#92, S As String
Dim FreeNum As Integer FreeNum = FreeFile 'D.txt&quot，for input表示以输入方式（即读取文件）打开;关闭文件之后重新以Output的模式打开;date:&#92, A &#39.txt”;循环;Freenum表示一个空闲的文件号 open &S用来保存1到n-1行的内容, S1 As String
Dim FreeNum As Integer FreeNum = FreeFile '&#92。如果要写入文件则应该用output或D;date。 Print #FreeN退出循环
End if Loop Close FreeNum
至于将一个新值写进第N行。
Do Until eof(FreeNum)&#39，S1用来表示n行以后的内容
If A满足新写一行的条件 Then
S1 = &quot。
Do Until eof(FreeNum)&#39，直到文件结尾;这步是打开“date。如果要写入文件则应该用output或Freenum表示一个空闲的文件号 open &读取下一行的内容
Exit do '&quot:&#92.txt&quot，直到文件结尾。Eof函数用来判断文件是否读完
Line Input #FreeNum, 新插入一行的内容 Print #FreeN循环;
End if Loop
Close FreeNum Open &quot
其他类似问题
6人觉得有用
为您推荐：
txt文件的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB操作TXT_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
上传于||暂无简介
大小：14.56KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢&& 查看话题
【求助】请教VB txt文件输出如何让每个数据占用固定长度的字节~~~
vb输出txt数据文件，我想像fortran那样输出的txt文件每个数据占6个字节，请问该如何实现啊？
我的方法：用cstr将integer转换为string型，然后将string型的长度设为6，但输出后空格是补在数据后面的，我们数据格式要求是空格在前面~~~
图1为我直接生成的数据~~~
图2为我想得到的形式~~~
图3为我转成string，将长度设为8后得到的形式~~~~
谢谢各位大虾了~~~~~
自己解决了~~~
c0(k) = Trim(CStr(b0(k)))
& & If Len(c0(k)) = 1 Then c0(k) = "& &&&" + c0(k)
& & If Len(c0(k)) = 2 Then c0(k) = "& & " + c0(k)
& & If Len(c0(k)) = 3 Then c0(k) = "& &" + c0(k)
& & If Len(c0(k)) = 4 Then c0(k) = "&&" + c0(k)
& & If Len(c0(k)) = 5 Then c0(k) = " " + c0(k)
不知道有没有更好的方法~~~:D 那5个if可以改成c0(k) = Space(6-Len(c0(k)) & c0(k) Originally posted by magic7004 at
那5个if可以改成c0(k) = Space(6-Len(c0(k)) & c0(k) 恩，谢谢咯~~~
偶还得努力咯:) 请教如何将采集到的数据保存到txt文件中？我用NI的卡vb中如何读取TXT文件中数据_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
vb中如何读取TXT文件中数据
上传于||文档简介
&&T​X​T​文​档​里​面​有列​数​,​行​数​很​多​的​数​据​。​用​V​B​每​一​千​行​的​第​一​个​数​,​或​者​是​每​一​千​行​的​第​二​个​数​,​提​取0​次​,​并​将​这​些​数​放​入​一​个​数​组​中​。
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢}