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

VB读写XML文档

admin
2012年7月9日 0:37 本文热度 3401

   在VB中我们可以使用XML解释器来对XML文件进行各种操作.XML解释器被封装在一个名字叫做msxml.dll的动态连接库文件中,它是一个COM对象.因此所有可以兼容ActiveX的环境中都可以使用该方法操作XML文档.

我们用一个实例来说明.

首先,我们建立一个名字为test.xml的xml文件.内容如下:

<作者信息>

<网名>古铁神刀</网名>

<性别>男</性别>

<手机>13584517846</手机>

<电话>0531-82296272</电话>

<QQ>362880403</QQ>

<个人主页>http://www.xyxtl.cn</个人主页>

</作者信息>

    新建一个标准EXE工程。选择"工程" - "引用",选取"Microsoft XML V2.0"或更高版本.这样我们就可以使用xml解释器了.

    接下来在form中添加控件.

切换到代码视图,添加如下代码:

Option Explicit

Private p_AppPath As String          '当前目录路径

Private Sub Form_Load()

  '得到当前目录

  p_AppPath = App.Path

  If Right(p_AppPath, 1) <> "/" And Right(p_AppPath, 1) <> "" Then

     p_AppPath = p_AppPath & "/"

  End If

End Sub

分别双击载入、保存、退出系统,添加代码:

Private Sub cmdLoad_Click()

    '载入文件内容

    loadValues

End Sub

Private Sub cmdSave_Click()

    '保存当前内容

    saveValues

End Sub

Private Sub cmdQuit_Click()

  Unload Me

End Sub

现在我们编写过程实现文件的读入和写出:

Private Sub loadValues()

  Dim xml_document As DOMDocument

  Dim values_node As IXMLDOMNode

  '载入文件

  Set xml_document = New DOMDocument

  MsgBox p_AppPath & "test.xml"

  xml_document.Load p_AppPath & "test.xml"

  If xml_document.documentElement Is Nothing Then

    Exit Sub

  End If

  '寻找节点

  Set values_node = xml_document.selectSingleNode("作者信息")

  '读取各个节点的值

  txtName.Text = GetNodeValue(values_node, "网名", "???")

  txtSex.Text = GetNodeValue(values_node, "性别", "???")

  txtHand.Text = GetNodeValue(values_node, "手机", "???")

  txtTel.Text = GetNodeValue(values_node, "电话", "???")

  txtQQ.Text = GetNodeValue(values_node, "QQ", "???")

  txtPage.Text = GetNodeValue(values_node, "个人主页", "???")

End Sub

Private Function GetNodeValue(ByVal start_at_node As IXMLDOMNode, ByVal node_name As String, Optional ByVal default_value As String = "") As String

  Dim value_node As IXMLDOMNode

  Set value_node = start_at_node.selectSingleNode(".//" & node_name)

  If value_node Is Nothing Then

    GetNodeValue = default_value

  Else

    GetNodeValue = value_node.Text

  End If

End Function

'保存现有的值

Private Sub SaveValues()

  Dim xml_document As DOMDocument

  Dim values_node As IXMLDOMNode

  '建立XML文件

  Set xml_document = New DOMDocument

  Set values_node = xml_document.createElement("作者信息")

  xml_document.appendChild values_node

  CreateNode values_node, "网名", txtName.Text

  CreateNode values_node, "性别", txtSex.Text

  CreateNode values_node, "手机", txtHand.Text

  CreateNode values_node, "电话", txtTel.Text

  CreateNode values_node, "QQ", txtQQ.Text

  CreateNode values_node, "个人主页", txtPage.Text

  '保存XML文件

  xml_document.save p_AppPath & "test.xml"

End Sub

Private Sub CreateNode(ByVal parent As IXMLDOMNode, ByVal node_name As String, ByVal node_value As String)

  Dim new_node As IXMLDOMNode

  Set new_node = parent.ownerDocument.createElement(node_name)

  new_node.Text = node_value

  parent.appendChild new_node

End Sub

最后运行程序,看一下效果


该文章在 2012/7/9 0:43:28 编辑过

全部评论1

admin
2012年7月9日 0:40

vb 读取 XML 文件 内容

 

在form上添加button 和 text(设置multiLine=true和垂直滚动条)

Private Sub Command1_Click()
    Dim xmldoc As DOMDocument
    Dim nodes As IXMLDOMNode
    Dim cnodes As IXMLDOMNode

    Set xmldoc = New DOMDocument
    xmldoc.Load App.Path + "\test.xml"
    If xmldoc.documentElement Is Nothing Then
        Exit Sub
    End If
   
  
    Set nodes = xmldoc.documentElement.childNodes(0) '第一个节点
   
    Text1.Text = ""
    For i = 0 To nodes.childNodes.length - 1  ''第一个节点的下一层节点 (2层)
        Set cnodes = nodes.childNodes.Item(i)
        For Each pp In cnodes.childNodes  '3层
            If LCase(pp.Attributes.getNamedItem("name").nodeValue) = "name" Then  '节点名为name
                Text1.Text = Text1.Text + CStr(pp.Text) + ","
            End If
           
            If LCase(pp.Attributes.getNamedItem("name").nodeValue) = "fullname" Then
                Text1.Text = Text1.Text + CStr(pp.Text) + ","
            End If
           
            If LCase(pp.Attributes.getNamedItem("name").nodeValue) = "description" Then
                Text1.Text = Text1.Text + CStr(pp.Text) + vbCrLf
            End If
            Text1.Refresh
        Next
 
    Next

End Sub


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