遍历整个文件，同时为每个实例打印输出

Question

1. 标题几乎涵盖了所有内容，我正在搜索一个数组，并希望为找到的每个实例打印输出。 我当前的代码找到指定的值并返回其位置，但是在找到第一个实例之后停止，我希望它们全部消失。

2. 还有一种使用文本框作为搜索值的方法吗？ 或者，如果我使用文本框，它将始终搜索为字符串吗？ 公元前不会做:(

3. 输出现在转到txtbox。 这是长输出的最佳选择吗？ 我知道的，不仅仅是最初的问题。 但是＃1是头等大事。 任何帮助都值得欢迎和赞赏。

我当前的代码=

 Private Function findOffset()
    Using reader As New BinaryReader(File.Open("FilePath", FileMode.Open, FileAccess.Read))
        Dim pos As Integer = 0
        Dim length As Integer = reader.BaseStream.Length
        Do While pos < length
            Dim value As Byte = reader.ReadByte()
            If value = CByte(&H13) Then
                Return pos
                Exit Do
            End If
            pos += 1
        Loop

    End Using
End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox1.Text = (Hex(findOffset()).ToString.PadLeft(6, "0"c))

End Sub

准备将其命名为“夜晚”，但会在AM中检查第一件事

Answer 1

您的第一个问题在这里：

If value = CByte(&H13) Then
  Return pos
  Exit Do
End If

如果找到第一个实例，则退出函数并丢弃BinaryReader 。 如果再次调用函数，则会在位置0处创建一个新的阅读器。

尝试将代码更改为此：

Dim positions As New List(Of Integer)()

[...]

If value = CByte(&H13) Then
  positions.Add(pos)
End If

这样，您就可以得到所有发生的事件。

要显示所有找到的值，必须将它们合并为一个String ：

TextBox1.Text = String.Join("|", findOffset())

如果要以某种方式转换整数值，则可以遍历findOffset()或使用LINQ的Select方法：

findOffset().Select(Function(i) Hex(i).ToString.PadLeft(6, "0"c))

对于第二个问题：只需将TextBox的转换后的text属性作为函数参数传递给findOffSet方法。

Private Function findOffset(ByVal search as Byte)
  [...]
  If value = search Then
  [...]
End Function

并这样称呼它：

findOffset(Convert.ToByte(Convert.ToInt16(mySearchTextBox.Text)))

您必须事先检查有效的文本输入，否则此行会出现异常。

并回答您的第三个问题：我认为TextBox可以处理少量结果，但是如果您的搜索结果有些复杂，则应该考虑使用ListBox如果有更多结果，甚至应该使用DataGridView （在这种情况下不适用）据我所知）。