visual basic 2008+删除文本框中一行之前的所有文本

Question

这是我的第一篇帖子.. 我有一个像这样的文本框列表：

apple
orange
banana
carrot
dog
cat
horse
cow

我需要搜索＆＃34; dog＆＃34; 擦掉之前的一切＆＃34; dog＆＃34; 并且在＆＃34; dog＆＃34;

之后保留所有内容

For i = 0 To Val(TextBox3.Lines.Count)
        If TextBox3.Lines(i).ToString.StartsWith("dog") Then
            TextBox7.Text = TextBox3.Lines(i).ToString
Exit Sub
        End If
    Next

虽然上面的代码找到了该行，但我不知道如何删除它上面的所有内容并保留其余部分。任何帮助将不胜感激，谢谢。

Answer 1

使用.Contains()函数查看文本框中是否包含单词dog，而不是使用循环来查找单词dog。

If TextBox3.Text.Contains("dog") Then
 dim dogIndex as int = TextBox3.Text.IndexOf("dog")
TextBox7.Text = TextBox3.Text.SubString(dogIndex, TextBox3.Text.Length - dogIndex)
End If

这应该让你只有狗和它之后的一切。

旁注： 无需使用TextBox3.Lines.Count投射Val()。它已经是一个数字。