vb.net 提取特定字符串

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

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

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

比如

doiicfur utiyo:('')bur;

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

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

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

這種情況不建議使用正則做匹配，而且從你貼出來的這一小部分代碼里也看不出什么規(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