VB.NET修改替換xml文件中的值

Dim path As String = PDA_PATH "ife.XML" ’PDA_PATH 為路徑

成都創(chuàng)新互聯(lián)公司，專注為中小企業(yè)提供官網(wǎng)建設(shè)、營銷型網(wǎng)站制作、自適應(yīng)網(wǎng)站建設(shè)、展示型網(wǎng)站制作、成都網(wǎng)站建設(shè)等服務(wù)，幫助中小企業(yè)通過網(wǎng)站體現(xiàn)價值、有效益。幫助企業(yè)快速建站、解決網(wǎng)站建設(shè)與網(wǎng)站營銷推廣問題。

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 ="確認(rèn)"Then

row.Item("Translation") =“替換”

blnY = False

Exit For

End If

Next

If blnY Then

MsgBox("輸入的XXX不存在，請重新輸入！ ")

Return

End If

ds.WriteXml(path)

MessageBox.Show("修改數(shù)據(jù)并保存成功", "提示", 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節(jié)點的所有子節(jié)點

Dim xn As XmlNode

For Each xn In nodeList '遍歷所有子節(jié)點

Dim xe As XmlElement = CType(xn, XmlElement) '將子節(jié)點類型轉(zhuǎn)換為XmlElement類型

Dim nls As XmlNodeList = xe.ChildNodes '繼續(xù)獲取xe子節(jié)點的所有子節(jié)點

Dim xn1 As XmlNode

For Each xn1 In nls '遍歷

Dim xe2 As XmlElement = CType(xn1, XmlElement) '轉(zhuǎn)換類型

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)

看能不能幫到你！

大家好，請問vb.net如何將一個txt文本文件中指定位置的內(nèi)容替換掉？？

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)一轉(zhuǎn)換則本條生效

If i = 5 Then '只轉(zhuǎn)換第六行 起始是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

VB.net 替換文件出現(xiàn) Access is denied

你先確認(rèn)你需要進行替代的內(nèi)容是否正在使用中，使用中，肯定不行了。為存取被拒了

VB.net里的查找和替換怎么寫

TextBox 有 SelectionStart 和 SelectionLength 兩個屬性，分別代表選中字符（也就是查找之后高亮的那部分）的起始位置和長度。

string 類型本身有方法 IndexOf()，可以獲取某個字符串第一次出現(xiàn)的位置，把這個值賦值給 SelectionStart，把這個字符串的 Length 賦值給 SelectionLength，這就是查找并高亮功能了。

替換的話就是 Replace() 方法。

用VB.NET快速替換DLL文件中的字符串

將dll以文件方式以UTF-8的方式讀入，然后接下來就替換字符串就可以了嘛

C#:

using System.IO;

...

string text;

text=File.ReadAllText(FilePath, Encoding.UTF8);

text.Replace("...","...");

...

-------------------------

還要謝謝你，不然我還不知道是UTF-8的編碼格式，我有一個驗證的問題可以解決了。