嘗試是這樣的:
Dim sValuesToReplace() As String = New String() {"Value1", "Value2", "Value3"}
Dim sText As String = IO.File.ReadAllText(inputFilePath)
For Each elem As String In sValuesToReplace
sText = sText.Replace(elem, sNewValue)
Next
IO.File.WriteAllText(sOutputFilePath, sText)
這取決於如果你想只有一個值來替換所有的值,或對每個不同的值。如果你需要不同的值,你可以使用一個Dictionary
:
Dim sValuesToReplace As New Dictionary(Of String, String)()
sValuesToReplace.Add("oldValue1", "newValue1")
sValuesToReplace.Add("oldValue2", "newValue2")
'etc
然後循環throgh它:
For Each oldElem As String In sValuesToReplace.Keys
sText = sText.Replace(oldElem, sValuesToReplace(oldElem))
Next
一些偉大的想法夥計 - 謝謝你! 今晚我會在機場遇難的時候嘗試這個。將在一夜之間回覆你。 – 2013-05-07 16:55:10
這工作真棒!我也能夠毫無問題地使用多個buffer.replace。 我很感激幫助,我希望我能在一天內回報它.. – 2013-05-07 19:22:43
+1他用你的解決方案,你值得你的幫助。 – SysDragon 2013-05-09 15:50:38