vb.net 提取特定字符串

VB.net里有Split函數(shù)嗎？

成都創(chuàng)新互聯(lián)自2013年起，是專業(yè)互聯(lián)網(wǎng)技術服務公司，擁有項目成都做網(wǎng)站、網(wǎng)站建設、外貿(mào)營銷網(wǎng)站建設網(wǎng)站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元來賓做網(wǎng)站,已為上家服務,為來賓各地企業(yè)和個人服務,聯(lián)系電話:18980820575

我的思路是，先尋找http://字符，然后向后尋找第一個在鏈接中肯定不會出現(xiàn)的字符，比如 ' " ; , 等等，截取中間這段就行啦

比如

doiicfur utiyo:('')bur;

先查找"http://",發(fā)現(xiàn)在第19個字符處（一定要注意，VB.net第一個字符的索引值下標為0，所以h是第20個字母，搜索所得到的結果就是19）

然后從19向后搜索異常字符（ " ' ; , ）之類，得到第二個搜索結果，將這兩個結果中間的部分截取就是鏈接啦

vb.Net對文件指定字符串的修改

文本框 TextBox1

上一條 Button1

下一條 Button2

修改 Button3

Imports?System.IO

Public?Class?Form1

Dim?currIndex?As?Integer?=?0

Dim?s2?As?List(Of?String)?=?New?List(Of?String)

Dim?s?As?String

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

s?=?File.ReadAllText(Application.StartupPath??"\txt.txt")

Dim?s1?As?String()?=?s.Split("@")

For?i?As?Integer?=?0?To?s1.Length?-?1

If?s1(i).Trim()??""?Then

s2.Add("@"??s1(i))

End?If

Next

TextBox1.Text?=?s2(0)

End?Sub

Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click

currIndex?=?currIndex?+?1

If?currIndex??s2.Count?-?1?Then

MsgBox("已經(jīng)是最后條了")

Return

End?If

TextBox1.Text?=?s2(currIndex)

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

currIndex?=?currIndex?-?1

If?currIndex??0?Then

MsgBox("已經(jīng)是第一條了")

Return

End?If

TextBox1.Text?=?s2(currIndex)

End?Sub

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

s2(currIndex)?=?TextBox1.Text

s?=?""

For?i?As?Integer?=?0?To?s2.Count?-?1

s?=?s2(i)

Next

File.WriteAllText(Application.StartupPath??"\txt.txt",?s)

End?Sub

End?Class

VB.NET怎么輸出指定字符串文本文件

Dim strFilePath As String =SaveFileDialog1.FileName

Dim sw As StreamWriter = New StreamWriter（strFilePath， True） 'true是指以追加的方式打開指定文件

For i = 0 To j

temp = i.ToString

sw.WriteLine（temp）

sw.Flush（）

Next

sw.Close（）

sw = Nothing

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

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

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 正則表達式讀取指定字符

這種情況不建議使用正則做匹配，而且從你貼出來的這一小部分代碼里也看不出什么規(guī)律。

建議使用 HtmlAgilityPack 或者 NSoup 一類的庫，就可以把 HTML 文檔變成類似于 jQuery 選擇的方式來處理了，容錯性和便捷度都更高。

VB.NET textbox里所有指定字符串后面的數(shù)字相乘？

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim s() As String

s = Split(TextBox1.Text, vbCrLf)

For i = 0 To UBound(s)

If s(i) Like "time_0=*" Then s(i) = "time_0=" Val(Split(s(i), "=")（1） * 2)

Next

TextBox1.Text = Join(s, vbCrLf)

End Sub

網(wǎng)站題目：vb.net指定字符,vb包含字符
文章源于：http://jinyejixie.com/article26/hsidjg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供移動網(wǎng)站建設、網(wǎng)站制作、網(wǎng)站建設、電子商務、做網(wǎng)站、Google

廣告

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