m = Array("430422120004", "430422120007", "430422120008", "430422120009", "430422120214")
t = Array("430422123004", "430422123007", "430422123008", "430422123009", "430422123214")
text = Plugin.File.ReadFileEx("D:\F3.txt")
For i = 0 To UBound(mb)
    text = Replace(text, m(i), t(i))
Next
Call Plugin.File.DeleteFile("D:\F3.txt")
Call Plugin.File.WriteFileEx("D:\F3.txt", Replace(text, "|", vbcrlf))
MessageBox "替换成功!"