直接用Replace語句把:
汪清網(wǎng)站建設公司創(chuàng)新互聯(lián),汪清網(wǎng)站設計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為汪清成百上千提供企業(yè)網(wǎng)站建設服務。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢,請找那個售后服務好的汪清做網(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) '按回車符號切割成數(shù)組
For i As Integer = 0 To UBound(AllLine) '循環(huán)數(shù)組
' AllLine(i) = Replace(AllLine(i), "000", "111") '如果所有行都是統(tǒng)一轉換則本條生效
If i = 5 Then '只轉換第六行 起始是0,所以5實際為第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