PB操作是通过msxml.ocx来实现操作XML文件的。
IE5版本的计算机都自动安装了此文件,如没有,需要下载后注册此文件。
1 声明ole对象
oleobject dom,version,root,childnode,childnextNode,headnode,datanode
2 创建ole对象
dom = create oleobject
3 生成XML对象
long ll_1=dom.connecttonewobject( "microsoft.xmldom")
version = dom.createProcessingInstruction("xml","version='1.0' encoding='GBK'")
dom.appendchild(version) //加入版本号
root = dom.CreateNode(1, "DZSBB","")
dom.appendChild(root) //加入根结点
4 保存xml文件
string ls_filename=mytest.xml'
dom.save(ls_filename)
另外一种思路:直接写文件,只能用于生成xml文件,不能解析xml文件。
string ls_filename //文件名
int li_FileNum //打开文件的句柄
ls_filename=mytest.xml'
li_FileNum = FileOpen(ls_filename, LineMode!, Write!, LockWrite!, Replace!)
if li_FileNum=-1 then
return -1
end if
FileWrite(li_FileNum,'<?xml version="1.0" encoding="GBK" ?>')
FileWrite(li_FileNum,'<DZSBB>')//第一级开始
......写入其他
FileWrite(li_FileNum,'</DZSBB>')//第一级结束
fileclose(li_filenum)