vb.net文本替换,vb 替换

VB.net里的查找和替换怎么写

TextBox 有 SelectionStart 和 SelectionLength 两个属性，分别代表选中字符（也就是查找之后高亮的那部分）的起始位置和长度。

创新互联专注于企业全网整合营销推广、网站重做改版、西秀网站定制设计、自适应品牌网站建设、HTML5、商城网站建设、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为西秀等各大城市提供网站开发制作服务。

string 类型本身有方法 IndexOf()，可以获取某个字符串第一次出现的位置，把这个值赋值给 SelectionStart，把这个字符串的 Length 赋值给 SelectionLength，这就是查找并高亮功能了。

替换的话就是 Replace() 方法。

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) '按行重新写入

End Sub

直接用Replace语句把：

Dim oldstr,newstr as string

oldstr="abcdeftgd"

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

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

望采纳。

分享标题：vb.net文本替换,vb 替换
本文URL：http://6mz.cn/article/dsesiji.html