PB操作XML文件

     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)