PB中调用MICROSOFT.XMLDOM的实例

PB中调用MICROSOFT.XMLDOM的实例    
     
   
  在通信程序中,通信的格式经常使用XML格式,下面是在PB中利用MICROSOFT.XMLDOM的对象来生成XML字串及解析XML字串内的内容的例子。  
   
  新建一个窗体,在窗体中放上两个按钮两个单行编辑框,按钮1用于生成一个XML串并显示在第1个编辑框内,按钮2的作用是将生成的XML串中ASKFOR标记内的值取出并在第2个编辑框中显示出来。  
   
  按钮1的代码如下:  
   
  oleobject   ixmldom,iNewNode,inewnode1  
  long   ll_1  
  ixmldom   =   create   oleobject    
  string   ls_1  
  ll_1=ixmldom.connecttonewobject(   "microsoft.xmldom")  
  if   ll_1<>0   then  
  messagebox('error','create   object   fail')  
  else  
  iNewNode   =   iXMLDOM.createNode(1,   'EDE',   '')  
  iNewNode1   =   iXMLDOM.createNode(1,   'Askfor',   '')  
  iNewNode1.text   =   '1'  
  iNewNode.appendChild(iNewNode1)  
  iXMLDOM.appendChild(inewnode)  
  sle_1.text=ixmldom.xml  
  end   if  
   
  按钮2的代码如下:  
   
  oleobject   ixmldom,iNewNode,inewnode1  
  long   ll_1  
  ixmldom   =   create   oleobject    
  string   ls_1  
  ll_1=ixmldom.connecttonewobject(   "microsoft.xmldom")  
  if   ll_1<>0   then  
  messagebox('error','create   object   fail')  
  else  
  iXMLDOM.loadXML(sle_1.text)  
   
  inewNode   =   iXMLDOM.selectSingleNode('//Askfor')  
  ls_1=   inewNode.text  
  sle_2.text=ls_1  
   
  end   if  
   
  执行后,单击按钮1,sle_1显示<EDE><Askfor>1</Askfor></EDE>  
   
  再单击按钮2,sle_2显示   1  
  • 1
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值