vba中 检索一个txt文件中的字符串如何实现？

来源：百度知道 编辑：UC知道 时间：2024/05/24 04:40:18
如题!
能否简单说一下语法啊 不太明白
#1
eof(1)
chr(13)
都是什么意思啊
另外，我要是想只检索文件的某一行，如何设置参数？
谢谢

dim strall,str as string
open "c:\text.txt" for input as #1
do until eof(1)
line input #1,str
strall = strall & str & chr(13)
loop
close #1

strall 就是您想要的（在本文中检出所有的内容）

提供思路
用QueryTables.Add 加载 具体txt到excel
再遍历检索

#1
这个是一个有效的文件号，范围在1到511之间。一般的用法是给一个变量
fnum=FreeFile
open "c:\text.txt" for input as #fnum

EOF(1)
是End Of File的意思，表示到达文件的结尾处。一般使用Do...Loop循环加上EOF函数来循环获得文本文件的每一行数据

Chr(13)已经有解释了

input as #1
是说打打开的1号文件，这里就是指c:\text.txt

eof(1)
文件行数

chr(13)
表示回车