提取txt文件中特定内容后的数据到excel

Question

如题所述

Answer 1

Sub AAA()
    Dim Ar(1 To 10000, 1 To 1)
    Dim N   As Long
    Dim L   As Long
    Dim S   As String
    Open "D:\123.TXT" For Binary As #1
        S = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    S = Replace(S, Chr(9), "")
    S = Replace(S, Chr(0), "")
    L = InStr(1, S, "energy=", vbTextCompare)
    Do Until L = 0
        N = N + 1
        L = L + 8
        Ar(N, 1) = "'" & Trim(Mid(S, L, InStr(L + 2, S, " ") - L))
        L = InStr(L, S, "energy=", vbTextCompare)
    Loop
    [A1].Resize(N) = Ar
End Sub

本回答被提问者采纳