如何用带InStr的VBA循环提取TXT文件中所有NODO（母线）数据

嘿，这个问题我太懂了！之前帮人解决过类似的批量提取问题，用InStr配合循环就能轻松搞定，再也不用只提取第一个NODO啦～

核心思路 #

咱们的目标是遍历整个TXT文件，每次找到NODO=的标记，然后提取对应的名称，再从这个位置往后找它对应的Vnom=参数，直到把所有NODO都找完。最高效的方式是先把整个文件内容读到字符串里，再用循环+InStr反复定位标记位置。

完整VBA代码 #

直接上可运行的代码，你只需要替换文件路径就行：

Sub ExtractAllNODOs()
    Dim filePath As String
    Dim fileContent As String
    Dim startPos As Long, nodoPos As Long, vnomPos As Long
    Dim nextLinePos As Long
    Dim nodoName As String, vnomValue As String
    Dim outputRow As Integer
    
    ' 替换成你的TXT文件路径
    filePath = "C:\YourDataFolder\power_data.txt"
    outputRow = 2 ' Excel从第2行开始写数据（第1行放表头）
    
    ' 先写入表头
    Cells(1, 1).Value = "NODO名称"
    Cells(1, 2).Value = "Vnom(MW)"
    
    ' 一次性读取整个文件内容到字符串（比逐行读高效）
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    startPos = 1 ' 初始查找位置
    
    Do
        ' 找当前位置之后的第一个"NODO="
        nodoPos = InStr(startPos, fileContent, "NODO=")
        If nodoPos = 0 Then Exit Do ' 找不到就退出循环
        
        ' 提取NODO名称：从"NODO="后面开始，到下一个换行符结束
        nextLinePos = InStr(nodoPos, fileContent, vbCrLf)
        ' 处理文件最后一行没有换行符的情况
        If nextLinePos = 0 Then nextLinePos = Len(fileContent) + 1
        nodoName = Mid(fileContent, nodoPos + 5, nextLinePos - nodoPos - 5)
        
        ' 从当前NODO位置往后找对应的Vnom参数
        vnomPos = InStr(nodoPos, fileContent, "Vnom=")
        If vnomPos > 0 Then
            Dim vnomNextLine As Long
            vnomNextLine = InStr(vnomPos, fileContent, vbCrLf)
            If vnomNextLine = 0 Then vnomNextLine = Len(fileContent) + 1
            vnomValue = Mid(fileContent, vnomPos + 5, vnomNextLine - vnomPos - 5)
        Else
            vnomValue = "无数据" ' 防止某些NODO没有Vnom的情况
        End If
        
        ' 把提取到的数据写入Excel单元格，Trim去掉多余空格
        Cells(outputRow, 1).Value = Trim(nodoName)
        Cells(outputRow, 2).Value = Trim(vnomValue)
        outputRow = outputRow + 1
        
        ' 更新查找起始位置，跳到当前NODO的下一行，避免重复查找
        startPos = nextLinePos
    Loop
    
    MsgBox "搞定啦！一共提取了" & outputRow - 2 & "条NODO数据"
End Sub

关键细节说明 #

1. 一次性读文件：用Input$(LOF(1), 1)把整个文件读到字符串里，比逐行读取快很多，尤其是大文件。
2. 循环定位：Do...Loop循环里，每次找到NODO=后，更新startPos到下一行，确保下次找的是下一个NODO，不会重复。
3. 字符串提取：用Mid函数精准截取参数值，NODO=和Vnom=都是5个字符，所以从nodoPos+5开始截取，到换行符结束。
4. 兼容特殊情况：处理了文件最后一行没有换行符、某些NODO没有Vnom的情况，避免代码报错。

如果你的TXT文件是Unix格式（换行符是vbLf而不是Windows的vbCrLf），记得把代码里的vbCrLf改成vbLf哦～

内容的提问来源于stack exchange，提问作者Tomás Velis