扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
直接用Replace语句把:
汪清网站建设公司创新互联,汪清网站设计制作,有大型网站制作公司丰富经验。已为汪清成百上千提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱,请找那个售后服务好的汪清做网站的公司定做!
Dim oldstr,newstr as string
oldstr="abcdeftgd"
newstr=replace(oldstr,"a","b")
newstr=replace(newstr,"c","d")
望采纳。
这不是控件的问题,这是控件处于插入模式,按一下键盘的Delete键就可以了
如果处于Delete模式,按一下键盘的Insert键就回到插入模式.
用替换函数直接把03-24^32替换为03-24^xx(想替换的值)。
比如,你的文本放在TextBox1文本框的话,用下面的指令替换就可以了。
Dim txt As String = TextBox1.Text
TextBox1.Text = Replace(txt, "03-24^32", "03-24^xx")
执行上面替换指令后,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) '先读取文本中所有内容
My.Computer.FileSystem.WriteAllText("c:\新建 文本文档.txt", "", False, System.Text.Encoding.Default) '清空原文本内容
Dim AllLine() = Split(txt, vbCrLf) '按回车符号切割成数组
For i As Integer = 0 To UBound(AllLine) '循环数组
' AllLine(i) = Replace(AllLine(i), "000", "111") '如果所有行都是统一转换则本条生效
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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流