如果文本框包含特定单词，则将文本框中的行拆分为2个其他文本框

Question

您好我试图将数据从文本框拆分为2个不同的文本框，

但是使用这种方法，苹果也会被添加到梨篮中，

我做错了什么？

（fruitbasket.lines.tolist包含单词“apples”和pears“）

Dim split As New List(Of String)
        split = fruitbasket.Lines.ToList
        For i As Integer = split.Count - 1 To 0 Step -1
            If split(i).Contains("apples") And apples.Text = "" Then
                applesbasket.Text = applesbasket.Text + split(i).ToString.Trim


            ElseIf applesbasket.Text <> "" Then
                applesbasket.Text = applesbasket.Text & System.Environment.NewLine + split(i).ToString.Trim

            End If


            If split(i).Contains("pears") And pearsbasket.Text = "" Then
                pearsbasket.Text = pearsbasket.Text + split(i).ToString.Trim

            ElseIf pearsbasket.Text <> "" Then
                pearsbasket.Text = pearsbasket.Text & System.Environment.NewLine + split(i).ToString.Trim
            End If

        Next

Answer 1

我会把你推向正确的方向。

你的if陈述都包括一个条件，以确保你只获得苹果只需要苹果，而梨只需要梨。 （例如：If split(i).Contains("apples")...）

但您的ElseIf语句都不受水果类型的限制。你能看出这会导致你的问题吗？

我相信你会明白的。