Question

我正在尝试搜索文本文档，而且我处于静止状态。

文件示例：

11/24 05:05:21.781 T0EA8  [PinRegister Version: PINREG 1.2.0]
11/24 05:05:21.875 T0EA8  [RequestPinPadParamEvent: PR_RegDevice = 0.Exit]
11/25 05:04:38.906 T0FB0  [*************************:  ]
11/25 05:04:38.906 T0FB0  [PinRegister Version: PINREG 1.3.0]

现在，在该示例文档中，我想从25日向文本框'VersionTextBox'显示'PinPegister Version'。

所以我试图搜索日期，然后从日期搜索短语（'[PinRegister Version：]'）并最终将结果显示到文本框中（' PINREG 1.3.0'）。

我尝试了很多选项，没有任何工作我想要它。

这是我当前的代码，我觉得很接近......但是我收到错误'对象引用没有设置为对象的实例。'

Dim strm As IO.Stream = IO.File.OpenRead(fpath)
    Dim sr As New IO.StreamReader(strm)
    Dim line As String
    Dim trimchars() As Char = {" "c}
    Dim datelist As ArrayList

    Do While sr.Peek <> -1
        line = sr.ReadLine()
        'If line.TrimStart(trimchars).Contains("[PinRegister Pin Pad Model") Then
        If line.TrimStart(trimchars).StartsWith(TDate.Text) Then
            ' found pattern 
            datelist.Add(line)
        End If
    Loop

    If datelist.Contains("PinRegister Version:") Then
        MsgBox("Found 1")
    End If

提前感谢您提供任何帮助

Answer 1

难道你不能这样做吗？

javaaddpath('mainproj\bin')

Answer 2

你没有说你的输入文件有多大，但如果它不是太大我会建议全部读入一个字符串

My.Computer.FileSystem.ReadAllText

然后使用

yourstring.indexof（...

找到您要查找的文本并从那里开始工作。

我过去做过这个，大多数情况下都很快。

搜索文本文档

2 个答案: