Question

我在拆分多行时遇到问题，因为它仅拆分第一行。我想把所有的行分开。

ImageDataBunch

Answer 1

您必须迭代文本框中的所有行

    For Each Ln As String In TextBox1.Lines
        If Not String.IsNullOrEmpty(Ln) Then
            Dim Lines() As String = Ln.Split(":"c)
            If Lines.Length = 2 Then
                TextBox2.Text &= Lines(0) & Environment.NewLine
                TextBox3.Text &= Lines(1) & Environment.NewLine
            End If
        End If
    Next

编辑-更新为包括条件检查以防止索引异常。

Edi2-应该提到的是，将字符串绘制到这些文本框控件中可能要花费一些时间，这不是我判断您的要求的地方，但是您可以通过使用基于集合的对象或stringbuilder来优化例程。 IE：

    Dim StrBldrA As New Text.StringBuilder
    Dim StrBldrb As New Text.StringBuilder
    For Each Ln As String In TextBox1.Lines
        If Not String.IsNullOrEmpty(Ln) Then
            Dim Lines() As String = Ln.Split(":"c)
            If Lines.Length = 2 Then
                StrBldrA.Append(Lines(0) & Environment.NewLine)
                StrBldrb.Append(Lines(1) & Environment.NewLine)
            End If
        End If
    Next
    TextBox2.Text = StrBldrA.ToString
    TextBox3.Text = StrBldrb.ToString

在VB中分割多行

1 个答案: