在vba

Question

我在。DataArr中读取了一个.txt文件的长测试报告。该报告由一组反映相同属性的测试用例组成，因此报告是一组数据部分，每个部分包含测试的相同属性，并由标题Test Case ####分隔。

我想从每个案例中提取某些属性，但是当我使用我的代码时，通过输入test case number=searchterm然后输入我正在寻找SecondaryTerm的属性，我得到所有出现的SecondaryTerm。

如何只使用searchterm指示的标题在该部分中查看？

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
intResult = Application.FileDialog(msoFileDialogOpen).Show
If intResult <> 0 Then
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
     On Error GoTo lblError:
    Open strPath For Input As #1
    i = 0
    While EOF(1) = False
         ReDim Preserve DataArr(i) 'redimension DataArray for new element
         Line Input #1, DataArr(i)
         i = i + 1
    Wend
End If
Close #1 'close file