vb.net 截取字符串 - 军军小站|张军博客

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

Dim str As String = _

" 中abc中国 "

' 123456stringcountofvb6

' 012345stringcountof.net

Label1.Text = ""

' left

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

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

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

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

' center

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

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

Label1.Text &= " centerStrVBis " & centerStrVB & vbCrLf ' centerStrVBisabc中

Label1.Text &= " centerStris " & centerStr & vbCrLf ' centerStrisabc中

' right

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

Dim rightStr As String = str .Substring( 1 )

Label1.Text &= " rightStrVBis " & rightStrVB & vbCrLf ' rightStrVBisabc中国

Label1.Text &= " rightStris " & rightStr & vbCrLf ' rightStrisabc中国

EndSub

vb.net 截取字符串

更多文章、技术交流、商务合作、联系博主

微信扫码或搜索：z360901061

微信扫一扫加我为好友

QQ号联系： 360901061

您的支持是博主写作最大的动力，如果您喜欢我的文章，感觉我的文章对您有帮助，请用微信扫描下面二维码支持博主2元、5元、10元、20元等您想捐的金额吧，狠狠点击下面给点支持吧，站长非常感激您！手机微信长按不能支付解决办法：请将微信支付二维码保存到相册，切换到微信，然后点击微信右上角扫一扫功能，选择支付二维码完成支付。

【本文对您有帮助就好】元

2元

5元

10元

20元

自定义