VB.net里的查找和替換怎么寫(xiě)

TextBox 有 SelectionStart 和 SelectionLength 兩個(gè)屬性，分別代表選中字符（也就是查找之后高亮的那部分）的起始位置和長(zhǎng)度。

創(chuàng)新互聯(lián)專注于企業(yè)全網(wǎng)整合營(yíng)銷推廣、網(wǎng)站重做改版、西秀網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、HTML5、商城網(wǎng)站建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為西秀等各大城市提供網(wǎng)站開(kāi)發(fā)制作服務(wù)。

string 類型本身有方法 IndexOf()，可以獲取某個(gè)字符串第一次出現(xiàn)的位置，把這個(gè)值賦值給 SelectionStart，把這個(gè)字符串的 Length 賦值給 SelectionLength，這就是查找并高亮功能了。

替換的話就是 Replace() 方法。

大家好，請(qǐng)問(wèn)vb.net如何將一個(gè)txt文本文件中指定位置的內(nèi)容替換掉？？

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

Dim txt As String = My.Computer.FileSystem.ReadAllText("c:\新建 文本文檔.txt", System.Text.Encoding.Default) '先讀取文本中所有內(nèi)容

My.Computer.FileSystem.WriteAllText("c:\新建 文本文檔.txt", "", False, System.Text.Encoding.Default) '清空原文本內(nèi)容

Dim AllLine() = Split(txt, vbCrLf) '按回車符號(hào)切割成數(shù)組

For i As Integer = 0 To UBound(AllLine) '循環(huán)數(shù)組

' AllLine(i) = Replace(AllLine(i), "000", "111") '如果所有行都是統(tǒng)一轉(zhuǎn)換則本條生效

If i = 5 Then '只轉(zhuǎn)換第六行 起始是0，所以5實(shí)際為第6行

AllLine(i) = Replace(AllLine(i), "000", "111")

End If

My.Computer.FileSystem.WriteAllText("c:\新建 文本文檔.txt", AllLine(i) vbCrLf, True, System.Text.Encoding.Default) '按行重新寫(xiě)入

Next

End Sub

vb.net 替換word文本框中的字符 點(diǎn)擊替換按鈕時(shí)內(nèi)容中的a替換為b，c替換為d 怎么操作？ 需要代碼。

直接用Replace語(yǔ)句把：

Dim oldstr,newstr as string

oldstr="abcdeftgd"

newstr=replace(oldstr,"a","b")

newstr=replace(newstr,"c","d")

望采納。

網(wǎng)頁(yè)名稱：vb.net文本替換,vb 替換
標(biāo)題網(wǎng)址：http://chinadenli.net/article25/dsesiji.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供小程序開(kāi)發(fā)、標(biāo)簽優(yōu)化、企業(yè)建站、品牌網(wǎng)站建設(shè)、移動(dòng)網(wǎng)站建設(shè)、Google

廣告

聲明：本網(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)