仅保留多行文本框的某些部分

Question

net 2.0程序，其中有一个多行文本框。 对于我的一个操作，我只需要检索txt框的某些部分 例如

我需要检索以下内容

• 01-11-2013 15-18-12 -
• 电脑：740TMP
• 01-11-2013 15-18-13 -
• 电脑：740TMP

文本框只能有1个条目或30个条目。我知道我可以截断这些线但是在最终结果中我仍然会有额外的线条。任何想法？

Answer 1

使用List(Of String)将结果存储在所需的行中。然后使用循环迭代TextBox中的所有行并获取所需的内容。

例如：

Dim desiredLines As New List(Of String)()
Dim allLInes As String() = textBox1.Lines
Dim datePattern As String = "dd-MM-yyyy HH-mm-ss"

For i As Integer = 0 To allLInes.Length - 1
    Dim line As String = allLInes(i).Trim()
    Dim dt As Date 
    If line.Length >= datePattern.Length AndAlso _
        Date.TryParseExact(line.Substring(0, datePattern.Length), datePattern, Nothing, Globalization.DateTimeStyles.None, dt) Then
        desiredLines.Add(dt.ToString(datePattern))
    ElseIf line.StartsWith("Computer:") Then
        desiredLines.Add(line.Split("-"c)(0).TrimEnd())
    End If
Next