0

net 2.0プログラムとその中に、複数行のテキストボックスがあります。私の操作の1つでは、たとえばtxtボックスの特定の部分を取得するだけで済みます。 サンプルコード

以下を取得する必要があります

  • 2013年1月11日15-18-12-
  • コンピューター:740TMP
  • 2013年1月11日15-18-13-
  • コンピューター:740TMP

テキストボックスには、1つのエントリまたは30のエントリを含めることができます。行を切り捨てることができることはわかっていますが、最終結果にはまだ余分な行があります。何かアイデアはありますか?

4

1 に答える 1

1

a を使用し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
于 2013-01-11T21:29:53.493 に答える