
如何使用vbs 修改电脑本机上保存的一个abc.xml文件?
例如先打开这个xml文件的编辑模式,然后找到文件中所有的“NewTag”字符,并将其替代为“NewTag_1”,然后保存。最好加上注释,非常感谢!用C语言实现也可以。...
例如先打开这个xml文件的编辑模式,然后找到文件中所有的“NewTag”字符,并将其替代为“NewTag_1”,然后保存。最好加上注释,非常感谢!
用C语言实现也可以。 展开
用C语言实现也可以。 展开
展开全部
Dim fso,openFile,a
Set fso=CreateObject("Scripting.FileSystemObject")
Set openFile=fso.OpenTextFile("D:\abc.xml",1,True) '以只读模式打开文件
a = openFile.ReadAll '读取文件
a = replace(a,"NewTag","NewTag_1") '替换
Set openFil=fso.OpenTextFile("D:\abc.xml",2,True)'以读写模式打开文件
openFil.Write a '保存文件
openFil.Close
Set fso=CreateObject("Scripting.FileSystemObject")
Set openFile=fso.OpenTextFile("D:\abc.xml",1,True) '以只读模式打开文件
a = openFile.ReadAll '读取文件
a = replace(a,"NewTag","NewTag_1") '替换
Set openFil=fso.OpenTextFile("D:\abc.xml",2,True)'以读写模式打开文件
openFil.Write a '保存文件
openFil.Close
追问
感谢您的答复!
第4行有错:
Error:Input past end of file
Code:800A003E
追答
这是因为你的那个abc.xml文件为空。不为空就没问题了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询