网页按键精灵:替换文本内多个词汇到对应值
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 "替换成功!"