Question

好的，我有一个文本框，其中包含一个IP地址，texbox由一个未存储的远程文件填充 - 它被下载到内存中然后放在texbox中，所以它没有实际的文件在系统目录中，让我无法使用FileStream方法。

所以，我想从textbox1中获取文字，然后查找单词＆＃39; IP＆＃39;一旦找到，我希望它能抓住＆＃39;该特定行并将其放入另一个文本框（texbox2）。我怎样才能做到这一点？

- 请注意，只有一行包含“＆＃39; IP＆＃39;在它里面，它将永远是第一个字。

Answer 1

单程......

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    TextBox2.Text = TextBox1.Lines.Where(Function(x) x.ToUpper.StartsWith("IP")).FirstOrDefault
End Sub

Answer 2

另一种方法是使用indexof查找IP文本的开始位置

Dim sresult = TextBox1.Text.IndexOf("IP")
Dim linebreak = TextBox1.Text.IndexOf(vbCrLf, sresult)
TextBox2.Text = TextBox1.Text.Substring(sresult, linebreak - sresult)

阅读文本盒＆amp; ＆＃39;攫取＆＃39; Line into String Variable vb

2 个答案: