的Visual Basic 2008+刪除所有文字之前，在一個文本框

這是我的第一篇.. 我有一個文本框，列表這樣一行：的Visual Basic 2008+刪除所有文字之前，在一個文本框

apple 
orange 
banana 
carrot 
dog 
cat 
horse 
cow

我需要尋找「狗」擦除之前的「狗」一切，「狗」

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

後把一切都在上面的代碼中發現了線，我不知道如何刪除所有內容，它上面並保持休息。任何幫助將不勝感激，並感謝你。

來源

2016-03-04 Erik Von Weishaar

該列表是垂直不水平......不知道爲什麼它發佈的方式。 –

爲什麼不能使用'.SubString（）'文本框只是一個可以有多行的長字符串。我會檢查，看它是否有'「狗」，如果它不然後得到它的位置'暗淡dogIndex爲INT = TextBox3.Text.IndexOf（「狗」）。然後'TextBox7.Text = TextBox3.Text.SubString（dogIndex，TextBox3.Text.Length - dogIndex）' – jagler

而不是使用一個循環來查找單詞狗，使用.Contains()功能，看看如果文本框包含單詞狗。

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()。這已經是一個數字。

來源

2016-03-04 20:56:00 jagler

這誰幹的，我已經費盡我的腦子整天。我正在比較一個網頁與自己，看看它是否已經改變。不幸的是，該網站發佈了一個嵌入其中的獨特價值代碼 –

的Visual Basic 2008+刪除所有文字之前，在一個文本框

回答

相關問題