Question

VB如何除去TextBox中每行文本“——”前的数据，要全部文本中删去哦

VB如何除去TextBox中每行文本“——”前的数据，要全部文本中删去哦

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim AllLine() As String = TextBox1.Text.Split(vbCrLf)
TextBox1.Text = ""

For i As Integer = 0 To UBound(AllLine)
Dim AllText() As String = AllLine(i).Split("——")
TextBox1.AppendText(AllText(2))
If i <> UBound(AllLine) Then TextBox1.AppendText(vbCrLf)
Next
End Sub

追问

亲，有木有VB6的代码

追答

除了按钮事件，中间部分的不是跟vb6的差不多嘛，哪句不能通过？

Answer 2

你取——位置开始后面的字符就得了