vb.net字符串截取,vb中截取字符串函數(shù)

VB.net2010按指定字符截取字符串

Dim str0 As String, idx As Long, str1 As String, str2 As String

創(chuàng)新互聯(lián)擁有網(wǎng)站維護(hù)技術(shù)和項(xiàng)目管理團(tuán)隊(duì)，建立的售前、實(shí)施和售后服務(wù)體系，為客戶(hù)提供定制化的成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、網(wǎng)站維護(hù)、雅安服務(wù)器托管解決方案。為客戶(hù)網(wǎng)站安全和日常運(yùn)維提供整體管家式外包優(yōu)質(zhì)服務(wù)。我們的網(wǎng)站維護(hù)服務(wù)覆蓋集團(tuán)企業(yè)、上市公司、外企網(wǎng)站、商城網(wǎng)站開(kāi)發(fā)、政府網(wǎng)站等各類(lèi)型客戶(hù)群體，為全球上千多家企業(yè)提供全方位網(wǎng)站維護(hù)、服務(wù)器維護(hù)解決方案。

str0 = "122012312｝R4561_456}7894321}1234123123}"

idx = str0.IndexOf("}")

Do While idx = 0

str1 = str0.Substring(0, idx)

str2 = str0.Substring(idx + 1)

'在文本框中添加顯示str1、str2,代碼略

str0 = str2

idx = str0.IndexOf("}")

Loop

vb.net怎么提取字符串？

在VB中是這樣的，沒(méi)學(xué)過(guò)VB.net，你變換一下就可以了

按你說(shuō)的，用用Left,Right和Mid

Option?Explicit

Private?Sub?Command1_Click()

Dim?Num(2)

Num(0)?=?Val(Left(Label1.Caption,?2))

Num(1)?=?Val(Mid(Label1.Caption,?3,?1))

Num(2)?=?Val(Right(Label1.Caption,?2))

MsgBox?"Num(0)="??Num(0)??vbCrLf??"Num(1)="??Num(1)??vbCrLf??"Num(2)="??Num(2)

'如果想測(cè)試是不是可以計(jì)算，可以用這一句

'MsgBox?"Num(0)+1="??Num(0)?+?1??vbCrLf??"Num(1)+1="??Num(1)?+?1??vbCrLf??"Num(2)+1="??Num(2)?+?1

End?Sub

Private?Sub?Form_Load()

Label1.Caption?=?"12345"

End?Sub

有問(wèn)題請(qǐng)追問(wèn)，滿(mǎn)意請(qǐng)采納！

vb.net 截取字符串

很簡(jiǎn)單

Dim s As String = "1,2,3,4,5"

Dim a As String() = s.Split(",")

a就是包含所有數(shù)字的數(shù)組啦，祝你好運(yùn)。

vb.net截取字符串的問(wèn)題

可以如下截取056

Private Sub Command1_Click()

a = "123.45056"

Me.Caption = Mid(a, InStr(a, "056"), 3)

End Sub