改成试试看:
Set file= fso.OpenTextFile("C:\Users\lss\Desktop\test.txt",ForReading)
用写模式就不要汪春去读,ForWriting可能会把哪逗原来文件清空,产生一个空文件,困缓耐不能读原来内容
ForReading不会破坏文件,不能加内容
Forappend是追加模式,不能读,可以在文件最后增加内容
希望采纳
Set doc = XMLUtil.CreateXML()doc.Load"<Bookstore><Book><ISBN>1234</ISBN></Book><Book><ISBN>4321</ISBN></Book><Book><ISBN>6584</ISBN></Book></Bookstore>"
Set children = doc.ChildElementsByPath("/Bookstore/Book/ISBN")
Set child = doc.GetRootElement().ChildElements().Item(1)
Set relatives = child.ChildElementsByPath("察者../Book/ISBN"斗没培)
if children.Count() = relatives.Count() then
msgbox "XML 结构不存在问题,子节点的数空唯量是"&children.Count()
end if
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)