Question

vb.net提取textbox1的最后一行字符串

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = TextBox1.Text
Dim p As Integer = InStrRev(s, vbCrLf)'从右侧开始查找出现回车符的位置（但位置仍从左算起）
Dim s1 As String'用于保存最后一行字符串
If p = 0 Then'若未找到回车符，则直接将整个字符串赋给S1
s1 = s
Else
s1 = Mid(s, p + 2)'若找到回车符，则截取回车符右边的部分
End If
MsgBox(s1)'显示你要找的最后一行字符串
End Sub