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

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

專注于為中小企業(yè)提供成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)嘉禾免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了1000+企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

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 按行讀取字符串

給你一個(gè)VB2010讀寫文件的例子吧

Dim?name?As?String?=?""

Dim?age?As?Integer

name?=?InputBox("請輸入姓名")

age?=?InputBox("請輸入年齡")

FileOpen(1,?"d:\信息.txt",?OpenMode.Append)

WriteLine(1,?name,?age)

FileClose(1)

FileOpen(1,?"d:\信息.txt",?OpenMode.Input)

Dim?h?As?String

Dim?j?As?String

Dim?f?As?String

f?=?""

h?=?""

j?=?""

While?EOF(1)?=?False

f?=?LineInput(1)??vbCrLf??f

End?While

FileClose(1)

MsgBox("姓名"??"??"??"年齡"??vbCrLf??f)

vb.net怎么提取字符串？

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

按你說的，用用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)

'如果想測試是不是可以計(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

有問題請追問，滿意請采納！

vb.net 提取特定字符串

在VB中是這樣的，沒學(xué)過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)

'如果想測試是不是可以計(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

Vb.net 字符串截取

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

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

名稱欄目：vb.net中取字符串,vbs 截取字符串
URL地址：http://chinadenli.net/article31/dsiogsd.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供搜索引擎優(yōu)化、企業(yè)建站、手機(jī)網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、建站公司、App設(shè)計(jì)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)