VBA 读取/搜索文本文件

Question

我正在尝试读取一个有 1147 行的文本文件。下面的代码仅读取第 1050-1147 行。我的目标是读取整个文件并提取位于不同行的特定值以在脚本中使用。例如，包含“BlockList: 2”的行中的值 2。我已经包含了文本文件格式的 sn-p，因为它的格式不同于我遇到的任何示例（第 1116-1128 行）；我尝试访问的值的缩进与显示的第一行相同（不确定是否重要）。

    fixation.OffsetTime: 426611
    *** LogFrame End ***
Level: 2
*** LogFrame Start ***
Procedure: TestProc
BlockList: 2
BlockList.Cycle: 1
BlockList.Sample: 2
Running: BlockList
*** LogFrame End ***

等级：1 * LogFrame 开始 * 实验：ChoiceofLotteries_fMRI_I

到目前为止的代码：

Sub OpenTextFileTest()
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f, contents, var1
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("C:\NameOfFile.txt", 1)
    contents = f.ReadAll
    f.Close
    Debug.Print contents
End Sub

有没有人有任何建议如何做到这一点？

Answer 1

试试这个（一个如何提取BlockList:值的例子）

Sub Sample()
    Dim MyData As String, strData() As String
    Dim i As Long

    '~~> Replace this with the relevant file
    Open "C:\NameOfFile.txt" For Binary As #1
    MyData = Space$(LOF(1))
    Get #1, , MyData
    Close #1
    strData() = Split(MyData, vbCrLf)

    For i = LBound(strData) To UBound(strData)
        If InStr(1, strData(i), "BlockList:", vbTextCompare) Then
            Debug.Print Split(strData(i), ":")(1)
            Exit For
        End If
    Next i
End Sub

跟进

您拥有的文本文件是Unicode 文本文件，因此您遇到了这个问题。如果你做一个SaveAs，然后在编码中选择ANSI，然后运行上面的代码，能行吗？

点击here查看reading txt files using VBA的替代方式