拆分陣列和讀取特定行

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