如何使用VBA检索txt文件中指定关键词并获取其所在行号

核心改动：将原有固定读取前32行的逻辑调整为逐行读取至文件末尾，每行匹配目标关键词LoadTool，匹配成功后直接记录对应行号，不受关键词位置变动影响。

Dim fso As New FileSystemObject
Dim f As File
Dim fsoStream As TextStream
Dim strLine As String
Dim j As Integer
' 存储匹配到的行号，未匹配到时默认值为0方便后续逻辑判断
Dim targetLineNum As Integer: targetLineNum = 0

Set f = fso.GetFile("C:\fileToRead.txt")
Set fsoStream = f.OpenAsTextStream(ForReading)

j = 1
' 循环终止条件改为判断是否读到文件末尾
Do Until fsoStream.AtEndOfStream
    strLine = fsoStream.ReadLine
    ' 判断当前行是否包含目标关键词，可按需调整匹配规则
    If InStr(1, strLine, "LoadTool", vbTextCompare) > 0 Then
        targetLineNum = j
        ' 仅需第一个匹配结果时，匹配成功直接退出循环节省资源
        Exit Do
    End If
    j = j + 1
Loop

' 释放资源避免占用
fsoStream.Close
Set fsoStream = Nothing
Set f = Nothing
Set fso = Nothing

' 结果输出，可替换为自身业务逻辑
If targetLineNum > 0 Then
    Debug.Print "找到关键词LoadTool，所在行号为：" & targetLineNum
Else
    Debug.Print "未在文件中找到目标关键词LoadTool"
End If

注意：如果运行时报「用户定义类型未定义」错误，可在VBA编辑器顶部菜单栏点击「工具」-「引用」，勾选「Microsoft Scripting Runtime」后确认即可。

关键逻辑说明 #

• 循环终止条件替换为fsoStream.AtEndOfStream，自动遍历文件全部内容，适配关键词出现在任意行的场景
• 内置InStr函数用于判断当前行是否包含目标关键词，默认配置为不区分大小写匹配，需严格区分大小写时可将最后一个参数替换为vbBinaryCompare
• 如需严格匹配行首出现的LoadTool，可将匹配规则修改为：

  If Left(Trim(strLine), Len("LoadTool")) = "LoadTool" Then
  

  该规则会自动忽略行首的空格、制表符等空白字符
• 匹配到第一个结果后默认直接退出循环节省性能，如需匹配文件中所有出现的LoadTool，删除Exit Do语句，用数组存储所有匹配到的行号即可

内容的提问来源于stack exchange，提问作者Victor