Dim path As String = PDA_PATH "ife.XML" ’PDA_PATH 为路径
成都创新互联公司，专注为中小企业提供官网建设、营销型网站制作、自适应网站建设、展示型网站制作、成都网站建设等服务，帮助中小企业通过网站体现价值、有效益。帮助企业快速建站、解决网站建设与网站营销推广问题。
Dim ds As New DataSet
ds.ReadXml(path)
Dim dt As DataTable = ds.Tables.Item(0)
Dim blnY As Boolean = True
For Each row As DataRow In dt.Rows
If row.Item("Translation").ToString.ToUpper ="确认"Then
row.Item("Translation") =“替换”
blnY = False
Exit For
End If
Next
If blnY Then
MsgBox("输入的XXX不存在，请重新输入！ ")
Return
End If
ds.WriteXml(path)
MessageBox.Show("修改数据并保存成功", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
或者
Dim xmlDoc As New XmlDocument()
'Dim nodeList As New XmlNodeList
xmlDoc.Load("life..xml") '加载
Dim nodeList As XmlNodeList = xmlDoc.SelectSingleNod.("UITranslations").ChildNodes '获取bookstore节点的所有子节点
Dim xn As XmlNode
For Each xn In nodeList '遍历所有子节点
Dim xe As XmlElement = CType(xn, XmlElement) '将子节点类型转换为XmlElement类型
Dim nls As XmlNodeList = xe.ChildNodes '继续获取xe子节点的所有子节点
Dim xn1 As XmlNode
For Each xn1 In nls '遍历
Dim xe2 As XmlElement = CType(xn1, XmlElement) '转换类型
If xe2.Name = "Translation" Then '如果找到
xe2.InnerText ="替换"则修改
'Exit For Each '找到退出来就可以了
End If
Next xn1
Next xn
xmlDoc.Save("life.xml") '保存。
MessageBox.Show("修改XML成功", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
看能不能帮到你！
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
你先确认你需要进行替代的内容是否正在使用中，使用中，肯定不行了。为存取被拒了
TextBox 有 SelectionStart 和 SelectionLength 两个属性，分别代表选中字符（也就是查找之后高亮的那部分）的起始位置和长度。
string 类型本身有方法 IndexOf()，可以获取某个字符串第一次出现的位置，把这个值赋值给 SelectionStart，把这个字符串的 Length 赋值给 SelectionLength，这就是查找并高亮功能了。
替换的话就是 Replace() 方法。
将dll以文件方式以UTF-8的方式读入，然后接下来就替换字符串就可以了嘛
C#:
using System.IO;
...
string text;
text=File.ReadAllText(FilePath, Encoding.UTF8);
text.Replace("...","...");
...
-------------------------
还要谢谢你，不然我还不知道是UTF-8的编码格式，我有一个验证的问题可以解决了。
