查找和替換多個文本

Question

大家好，我需要一個提示，如何使用許多 txt 查找和替換代碼，我使用了許多代碼，但只使用了最后一個代碼

    Dim filename As String = "C:\2\1.txt"
    Dim line As String
    Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding(932)
    line = My.Computer.FileSystem.ReadAllText("C:\2\1.txt", encoding)
        File.WriteAllText(filename, line.Replace("へ。", "C"), encoding)
        File.WriteAllText(filename, line.Replace("ら", "i"), encoding)
        File.WriteAllText(filename, line.Replace("だ", "G"), encoding)

依此類推...只替換最后一行代碼

提前致謝

Answer 1

使用替換時，您需要更新實際變量。 例如

line = line.Replace("へ。", "C")

否則，您只是指單個實例。 對所有 3 個替換語句執行此操作，然后調用一次：

File.WriteAllText(filename, line, encoding)