拆分阵列和读取特定行

Question

我有一个自己编写的一个同事的通讯送入用工具发送电子邮件这样的后写入一个文本日志：

Count of emails to send: 10 
Count of sent emails: 10 
<German> Sender: infotest@test.de Header: New Newsletter 01/2017, file: C:\temp\raw_newsletter_htm_german.htm 
1. (30.01.2017 10:28:45) ------ testadress1@test.de 
4. (30.01.2017 10:28:46) ------ testadress2@test.de 
5. (30.01.2017 10:28:47) ------ testadress3@test.de 
9. (30.01.2017 10:28:47) ------ testadress4@test.de 
10. (30.01.2017 10:28:47) ------ testadress5@test.de 
<English> Sender: infotest@test.de Header: New Newsletter 01/2017, file: C:\temp\raw_newsletter_htm_english.htm 
2. (30.01.2017 10:28:46) ------ testadress6@test.de 
3. (30.01.2017 10:28:46) ------ testadress7@test.de 
6. (30.01.2017 10:28:47) ------ testadress8@test.de 
7. (30.01.2017 10:28:47) ------ testadress9@test.de 
8. (30.01.2017 10:28:47) ------ testadress10@test.de 

现在我的问题：如何我可以按语言拆分日志并将它们写入2个不同的文本框？我尝试了以下内容，它只检查行是否包含“------”，因为这些是我需要的唯一行。但我不知道，我怎么能用语言来分裂他们。

Private Sub readlog_Click(sender As Object, e As EventArgs) Handles readlog.Click 
    Dim text As String() = File.ReadAllLines("C:\temp\log_01_2017.txt") 
    TextBox1.Text = "" 

    Dim entries As String = "" 
    For Each line In text 
     If line.Contains("------") Then 
      entries += vbNewLine & line 
     End If 
    Next 
    TextBox1.Text = entries 
End Sub 

我想过像line.contains("<German>")，则忽略第一行，因为它是发件人/头/文件中的行，并一直读到line.contains("<English>")，然后用英文重新开始。但我没有真正的想法如何写这个代码。

在此先感谢

Answer 1

在这段代码中，我用RichTextBoxes这样的结果更容易看到。基本上它遍历文件的每一行。

如果它找到包含“Sender：”的行，则它将RichTextBox对象设置为目标，具体取决于<和>符号之间的哪个国家/地区。

如果找到包含“------”的行，则该行会添加到上次选择的目标。

这应该指向你在正确的方向

Dim txt As String() = File.ReadAllLines("C:\temp\log_01_2017.txt") 
    RichTextBox1.Clear() 
    RichTextBox2.Clear() 
    For Each ln As String In txt 
     Dim country As String 
     Dim entries As String = "" 
     Dim destinationTextbox As RichTextBox 
     Select Case True 
      Case ln.Contains("Sender:") 
       country = Split(ln, ">")(0).TrimStart("<") 
       If country = "German" Then 
        destinationTextbox = RichTextBox1 
       ElseIf country = "English" Then 
        destinationTextbox = RichTextBox2 
       End If 
      Case ln.Contains("------") 
       destinationTextbox.Text = destinationTextbox.Text & ln & vbCrLf 
     End Select