直接用Replace語句把:
汪清網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),汪清網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為汪清成百上千提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢,請(qǐng)找那個(gè)售后服務(wù)好的汪清做網(wǎng)站的公司定做!
Dim oldstr,newstr as string
oldstr="abcdeftgd"
newstr=replace(oldstr,"a","b")
newstr=replace(newstr,"c","d")
望采納。
這不是控件的問題,這是控件處于插入模式,按一下鍵盤的Delete鍵就可以了
如果處于Delete模式,按一下鍵盤的Insert鍵就回到插入模式.
用替換函數(shù)直接把03-24^32替換為03-24^xx(想替換的值)。
比如,你的文本放在TextBox1文本框的話,用下面的指令替換就可以了。
Dim txt As String = TextBox1.Text
TextBox1.Text = Replace(txt, "03-24^32", "03-24^xx")
執(zhí)行上面替換指令后,TextBox1的文本替換為:
【例如:03-23^23
03-24^xx
我要指定修改第二行的32.該怎么辦?】
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) '按行重新寫入
Next
End Sub
網(wǎng)頁題目:vb.net替換選擇文本 vb替換word
轉(zhuǎn)載注明:http://muchs.cn/article48/ddciiep.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站制作、品牌網(wǎng)站設(shè)計(jì)、面包屑導(dǎo)航、、品牌網(wǎng)站建設(shè)、網(wǎng)站內(nèi)鏈
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)