x="a[11dsfsf]b"
創(chuàng)新互聯(lián)公司堅(jiān)持“要么做到,要么別承諾”的工作理念,服務(wù)領(lǐng)域包括:做網(wǎng)站、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù),滿足客戶于互聯(lián)網(wǎng)時(shí)代的平羅網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴!
b=x.lastindexof("]")
a=x.indexof("[")
x=x.substring(0,a) "0" x.substring(b)
語(yǔ)法錯(cuò)誤,沒(méi)有存儲(chǔ)函數(shù)的返回值。
temp.Replace("111", "22")
這個(gè)函數(shù)方法返回修改后的結(jié)果,并不修改參數(shù)變量本身,也就是按值傳遞,而不是按地址傳遞,正確用法:
temp=temp.Replace("111", "22")
VB使用Replace函數(shù)實(shí)現(xiàn)字符串替換。
Replace函數(shù),返回一個(gè)字符串,該字符串中指定的子字符串已被替換成另一子字符串,并且替換發(fā)生的次數(shù)也是指定的。
說(shuō)明
Replace函數(shù)的返回值是一個(gè)字符串,但是,其中從start所指定的位置開(kāi)始,到expression字符串的結(jié)尾處的一段子字符串已經(jīng)發(fā)生過(guò)替換動(dòng)作。并不是原字符串從頭到尾的一個(gè)復(fù)制。
文本框 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
讀500萬(wàn)行的txt文件190m左右,提取每行中特定字符,寫入7個(gè)文件,單個(gè)文件130萬(wàn)行,13m左右。一共用時(shí)20秒左右。
用system.io.streamreader
system.io.streamwriter。
當(dāng)前題目:vb.net替換制定字符 vb replace字符串替換
標(biāo)題URL:http://vcdvsql.cn/article44/hpgoee.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供云服務(wù)器、營(yíng)銷型網(wǎng)站建設(shè)、網(wǎng)站改版、做網(wǎng)站、、用戶體驗(yàn)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容