目测纯批的话,循环次数较多,试试vbs- Set FSO = CreateObject("Scripting.FileSystemObject")
- Text = FSO.OpenTextFile("a.xml").ReadAll
- For i = 14 to 0 step - 1
- a = hex(i) : b = hex(i+1)
- a = "<BYTE NAME=""Bay Slot Number"">" & a
- b = "<BYTE NAME=""Bay Slot Number"">" & b
- Text = Replace(Text,a,b)
- Next
- FSO.CreateTextFile("b.xml",True).Write Text
- MsgBox "OK"
复制代码
|