亚洲免费在线-亚洲免费在线播放-亚洲免费在线观看-亚洲免费在线观看视频-亚洲免费在线看-亚洲免费在线视频

vb.net 截取字符串

系統 3167 0
Private SubTest_Load() 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元、自定義金額等您想捐的金額吧,站長會非常 感謝您的哦?。?!

發表我的評論
最新評論 總共0條評論
主站蜘蛛池模板: 久久乱码精品区中文字幕 | 国产成人毛片视频不卡在线 | 久久免费视频精品 | 国内精品久久久久久久久蜜桃 | 澳门四虎影院 | 久久精品2 | 最近免费中文字幕大全免费版视频 | 亚洲一区视频在线播放 | 久久99亚洲综合精品首页 | 久久免费国产视频 | 亚洲精品毛片久久久久久久 | 91精品国产欧美一区二区 | 国内精品久久久久影院不卡 | 国产精品久久久久桃色tv | 国产一区二区三区在线免费 | 国产一区二区三区视频在线观看 | 国产护士一级毛片高清 | 日本一道一区 | 欧美久久天天综合香蕉伊 | 一区二区高清视频 | 国产精品日本一区二区在线播放 | 天色噜噜噜噜 | 亚洲精品在线免费看 | www.黄色免费 | 奇米第四色888 | 老子影院午夜 | 国产伦乱 | 超激情碰碰碰啪在线视频 | 亚洲精品不卡 | 韩国一大片a毛片 | 国产免费精彩视频 | 亚洲v欧美 | 日日日日干 | 五月婷婷在线免费观看 | 国内精品免费久久久久妲己 | 日本精品1在线区 | 亚洲视频中文字幕在线 | 一区二区国产在线观看 | 涩涩在线观看 | 日韩欧美一级毛片在线 | 亚洲欧美另类在线观看 |