LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

VB远程读取XML分支程序

admin
2012年7月9日 1:28 本文热度 3405

以下保存为xml.xml文档,入在站点根目录下


<?xml version="1.0" encoding="gb2312"   ?>  
<newdataset>
<allnum>3</allnum>
    
<workflow>  
<title1>测试流程1</title1>  
<Content1>allnum</Content1>  
</workflow>
   
<workflow>  
<title2>测试流程2</title2>  
<Content2>如何用VB.NET编写XML文档[05-20] 浅析.NET下XML数据访问新机制</Content2>  
</workflow>  

<workflow>  
<title3>测试流程3</title3>  
<Content3>在本文的程序中使用到了一些"XmlNodeReader"的属性,譬如"NodeType"属性,用来判断读取得节点是什么类型。</Content3>  
</workflow>  

</newdataset>  


以下新建一个VB工程,在对象窗体中加入三个Label,在代码窗体中加入以下代码:


Private Sub Form_Load()
XMLObject
End Sub
Private Sub XMLObject()
Dim WebURL As String, username As String, password As String


WebURL = "http://127.0.0.1/xml.xml"


Label1.Caption = "正在查询..."


Dim SendStr As String, XMLrandom As String, XMLObject, ReadFileText As String


Set XMLObject = CreateObject("Microsoft.XMLHTTP")
Randomize
XMLrandom = Rnd * Int((300 - 11 + 1) * Rnd + 11)
XMLObject.Open "GET", WebURL + "?&num=" + XMLrandom, False
XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XMLObject.setRequestHeader "content-length", Len(SendStr)
XMLObject.send


ReadFileText = StrConv(XMLObject.ResponseBody, vbUnicode)


Label1.Caption = ReadFileText


Set XMLMorntekDocument = CreateObject("Microsoft.XMLDOM")
XMLMorntekDocument.Async = False
XMLMorntekDocument.ValidateOnParse = False
XMLMorntekDocument.Load (XMLObject.ResponseXML)


Label1.Caption = XMLMorntekDocument.selectSingleNode("//allnum").Text


Label2.Caption = XMLMorntekDocument.selectSingleNode("//title2").Text


Label3.Caption = XMLMorntekDocument.selectSingleNode("//Content2").Text


Set XMLMorntekDocument = Nothing


Set XMLObject = Nothing


End Sub



Private Sub Label2_Click()


End Sub


该文章在 2012/7/9 1:28:56 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved