vb.net 截取字符串

Private Sub Test_Load()Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


Dim str As String = _


"中abc中国"


' 1 2345 6 string count of vb6


' 0 1234 5 string count of .net


Label1.Text = ""


'left


Dim leftStrVB As String = Microsoft.VisualBasic.Left(str, 5)


Dim leftStr As String = str.Substring(0, 5)


Label1.Text &= "leftStrVB is " & leftStrVB & vbCrLf 'leftStrVB is 中abc中


Label1.Text &= "leftStr is " & leftStr & vbCrLf 'leftStr is 中abc中


'center


Dim centerStrVB As String = Microsoft.VisualBasic.Mid(str, 2, 4)


Dim centerStr As String = str.Substring(1, 4)


Label1.Text &= "centerStrVB is " & centerStrVB & vbCrLf 'centerStrVB is abc中


Label1.Text &= "centerStr is " & centerStr & vbCrLf 'centerStr is abc中


'right


Dim rightStrVB As String = Microsoft.VisualBasic.Right(str, 5)


Dim rightStr As String = str.Substring(1)


Label1.Text &= "rightStrVB is " & rightStrVB & vbCrLf 'rightStrVB is abc中国


Label1.Text &= "rightStr is " & rightStr & vbCrLf 'rightStr is abc中国




End Sub