vb.net 截取字符串

用正則表達(dá)式啊

站在用戶(hù)的角度思考問(wèn)題，與客戶(hù)深入溝通，找到滑縣網(wǎng)站設(shè)計(jì)與滑縣網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶(hù)體驗(yàn)好的作品，建站類(lèi)型包括：成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、空間域名、雅安服務(wù)器托管、企業(yè)郵箱。業(yè)務(wù)覆蓋滑縣地區(qū)。

如果是在webbrowser中，那更簡(jiǎn)單了，直接有函數(shù)的可以提取的

但是，你那個(gè)TD沒(méi)有ID，沒(méi)有Name，所以可以用以下方法：

Dim straaa = WebBrowser1.Document.GetElementsByTagName("td")

straaa(num).InnerText 'num是所有td的序號(hào)

字符串截取 vb.net實(shí)現(xiàn)

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim result As String = ""

Dim str As String = TextBox1.Text

Dim substr As String

Dim split() As Char = { "+"}

For Each substr In str.Split(split)

result += substr + ControlChars.CrLf

Next

TextBox2.Text = result

End Sub

上面的代碼你試一下，可以根據(jù)加號(hào)來(lái)提取出每一個(gè)數(shù)字，這就是你所要求的核心代碼，其余的自己琢磨，呵呵！

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 字符串截取

｛“Xm”：“李明”，“Dh”：“123456”，“Nl”：“30”｝這是個(gè)JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer類(lèi)來(lái)完成任務(wù)。也可以利用第三方工具比如：Newtonsoft.Json.dll等，來(lái)完成任務(wù)。

如何使用System.Web.Script.Serialization.JavaScriptSerializer類(lèi)或第三方工具，網(wǎng)上有大量代碼，或參閱微軟在線幫助。這里就不貼了。

vb.net 提取特定字符串

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

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