VB读取文本文件时跳过行

Question

我在 java 中编写了一个小型文本文件解析器，我需要在 Visual Basic 中重做它，以便可以将简单的 exe 从 PC 移动到 PC。

我无法让 VB 2010 express 省略带有关键字的行。

这是运行的java

public static void main(String[] args) {
    try {
        BufferedReader bufferedReader = new BufferedReader(new FileReader(new File("/Users/leighlarue/Desktop/9-18-13.cap")));
        StringBuffer stringBuffer = new StringBuffer();
        String line;
        while ((line = bufferedReader.readLine()) != null) {
            Pattern pattern = Pattern.compile("ALL|MESSAGE|Time|PAPER_MAIN|paper_proc|IOMASTER|Options:|ERROR|Message|BAD GAUGE|Errors|GSP");
            if (pattern.matcher(line).find()) {
                continue;
            }
            stringBuffer.append(line);
            stringBuffer.append("\n");
        }

        BufferedWriter bwr = new BufferedWriter(new FileWriter(new File("/Users/leighlarue/Desktop/Stage_One.txt")));

        bwr.write(stringBuffer.toString());

        bwr.flush();

        bwr.close();
        //System.out.println(stringBuffer);

    } catch (IOException e) {

    }
}

}

有人可以帮我把它转换成 Visual Basic 吗？

我正在尝试什么...

 Dim strFile As String = TextBox1.Text

    ' open file into stream reader
    Dim sr As New StreamReader(strFile)
    Dim line As String
    ' get the first line
    While sr.Peek <> -1
        line = sr.ReadLine()
        If line.Contains("MESSAGE") Then
            Continue While
        End If
        RichTextBox1.Text += line + CtrlChars.CrLf
        '    lineRead = sr.ReadLine()
    End While

End Sub

Answer 1

您可以使用RegularExpressions 替换Pattern。

' This can be initialized outside your loop
Dim regex As New System.Text.RegularExpressions.Regex("ALL|MESSAGE|Time|PAPER_MAIN|paper_proc|IOMASTER|Options:|ERROR|Message|BAD GAUGE|Errors|GSP")

If regex.Matches(line).Count > 0 Then
    Continue While
End If

Answer 2

 Dim strFile As String = TextBox1.Text

    ' open file into stream reader
    Dim sr As New StreamReader(strFile)
    Dim line As String
    ' get the first line
    While sr.Peek <> -1
        line = sr.ReadLine()
        If not line.Contains("MESSAGE") Then
            RichTextBox1.Text += line + CtrlChars.CrLf
' Or better yet, use a StringBuilder object.
        End If
    End While

End Sub