<?xml version="1.0" encoding="UTF-8" ?> 
- <task guid="00000123460E9E684DF1EC79F8E7683B" title="基础数据" description="采集基础数据" version="2" instanceGuid="9C7FDC8A500E4C668A4E505285153F69" mode="1" stage="1" status="2" defineOrgCode="103" defineOrgName="人民检察院" canAllOrgLoad="true" taskType="0" defineOrgGuid="000001261CB23C6276340034E765AB65" taskMakerCode="admin" taskMakerGuid="97979797000000000000000000000000">
  <allowLoadOrgs /> 
- <businessTasks>
- <baseDataTask name="baseDataTask" title="基础数据任务">
- <tables>
- <table name="JC_AssetPlace" title="存放地点" tableType="0" tailSql="">
  <dataFilePath /> 
  <dataFilePath1 /> 
+ <columns>
  <column name="OverDueTime" title="截止时间" scale="0" size="0" dataType="4" /> 
  <column name="OrgID" title="组织ID" scale="0" size="0" dataType="4" /> 
  <column name="RwVrsn" title="行版本" scale="0" size="0" dataType="4" /> 
  <column name="Creater" title="创建人" scale="0" size="30" dataType="10" /> 
  <column name="Description" title="说明" scale="0" size="255" dataType="10" /> 
  <column name="CreateDate" title="创建日期" scale="0" size="0" dataType="6" /> 
  <column name="ObjID" title="ObjID" scale="0" size="0" dataType="4" /> 
  <column name="ZTYear" title="帐套年度标识" scale="0" size="0" dataType="4" /> 
  <column name="OrgGuid" title="组织ID" scale="0" size="38" dataType="10" /> 
  </columns>
  </table>
+ <table name="JC_BM" title="部门" tableType="0" tailSql="">
  <dataFilePath /> 
  <dataFilePath1 /> 
- <columns>
  <column name="PrntCode" title="父码" scale="0" size="60" dataType="10" /> 
  <column name="ObjID" title="ObjID" scale="0" size="0" dataType="4" /> 
  <column name="OrgFax" title="传真" scale="0" size="30" dataType="10" /> 
  <column name="IndustryTypeId" title="行业类别Id" scale="0" size="15" dataType="4" /> 
  <column name="StdCode" title="部门代码" scale="0" size="50" dataType="10" /> 
  <column name="RwID" title="行ID" scale="0" size="0" dataType="4" /> 
  <column name="EcoTypeId" title="经济类型Id" scale="0" size="15" dataType="4" /> 
  <column name="ZtYear" title="年度标识" scale="0" size="0" dataType="4" /> 
  <column name="StartFlag" title="是否启用" scale="0" size="0" dataType="0" /> 
  <column name="ModifyDate" title="上次修改日期" scale="0" size="0" dataType="6" /> 
  </columns>
  </table>
- <table name="JC_ZY" title="人员" tableType="0" tailSql="">
  <dataFilePath /> 
  <dataFilePath1 /> 
+ <columns>
  <column name="Attribute" title="职员属性" scale="0" size="255" dataType="10" /> 
  <column name="StartFlag" title="是否启用" scale="0" size="0" dataType="0" /> 
  <column name="ZTYear" title="帐套年度标识" scale="0" size="0" dataType="4" />   </columns>
  </table>
  </tables>
  </baseDataTask>1。怎么修改<dataFilePath /> 的内容啊?
 <table name="JC_AssetPlace" title="存放地点" tableType="0" tailSql="">
  <dataFilePath /> 
  <dataFilePath1 /> 
2.修改根节点的属性值怎么修改?
 <task guid="00000123460E9E684DF1EC79F8E7683B" title="基础数据" description="采集基础数据" version="2" instanceGuid="9C7FDC8A500E4C668A4E505285153F69" mode="1" stage="1" status="2" defineOrgCode="103" defineOrgName="人民检察院" canAllOrgLoad="true" taskType="0" defineOrgGuid="000001261CB23C6276340034E765AB65" taskMakerCode="admin" taskMakerGuid="97979797000000000000000000000000">

解决方案 »

  1.   

    学习UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
      

  2.   

    用msxml库。
    xpath获得结点。
      

  3.   

    http://msdn.microsoft.com/en-us/library/aa468547.aspx
      

  4.   

    http://www.w3school.com.cn/xmldom/index.asp
      

  5.   

    都没说明白,不过我搞定了,不过有点麻烦,不知道有没有更好的办法了
        Dim xml_document As DOMDocument
        Dim values_node As IXMLDOMNode
        Set xml_document = New DOMDocument
        
        xml_document.Load appPath & "7za\" & XMLFileName
        If xml_document.documentElement Is Nothing Then
            frmDataExport.List1.AddItem "未找到任务文件", 0
            Exit Sub
        End If    Set values_node = xml_document.selectSingleNode("task") '根节点
        '//XML文件头属性信息
        values_node.Attributes.getNamedItem("guid").text = Replace$(Replace$(Replace$(OrgGuid, "-", ""), "{", ""), "}", "")
        
        For I = 0 To values_node.childNodes.Length - 1
            For J = 0 To values_node.childNodes.Item(I).childNodes.Length - 25  '循环二级子节点 获取单据任务
                If values_node.childNodes.Item(I).childNodes(J).Attributes.getNamedItem("title").text = "基础数据任务" Or values_node.childNodes.Item(I).childNodes(J).Attributes.getNamedItem("title").text = "组织机构任务" Or values_node.childNodes.Item(I).childNodes(J).Attributes.getNamedItem("title").text = "单据任务" Then
                    For K = 0 To values_node.childNodes.Item(I).childNodes(J).childNodes.Length - 1
                        
                        For L = 0 To values_node.childNodes.Item(I).childNodes(J).childNodes(K).childNodes.Length - 1
                            'Debug.Print values_node.childNodes.Item(I).childNodes(J).childNodes(K).nodeName
                            For m = 0 To values_node.childNodes.Item(I).childNodes(J).childNodes(K).childNodes(L).childNodes.Length - 3
                                'Debug.Print values_node.childNodes.Item(I).childNodes(J).childNodes(K).childNodes(L).childNodes(m).nodeName
                                If values_node.childNodes.Item(I).childNodes(J).childNodes(K).childNodes(L).Attributes.getNamedItem("name").text = "GD_AssetCard_I" Then Exit For
                                'Debug.Print values_node.childNodes.Item(I).childNodes(J).childNodes(K).childNodes(L).Attributes.getNamedItem("name").text
                                Select Case values_node.childNodes.Item(I).childNodes(J).childNodes(K).childNodes(L).Attributes.getNamedItem("title").text
                                
                                    Case "部门"
                                        values_node.childNodes.Item(I).childNodes(J).childNodes(K).childNodes(L).childNodes.Item(m).text = "JC_BM" & Format(Date, "yyyymmdd") & ".DATA"
                                    Case "人员"
                                        values_node.childNodes.Item(I).childNodes(J).childNodes(K).childNodes(L).childNodes.Item(m).text = "JC_ZY" & Format(Date, "yyyymmdd") & ".DATA"
                                    Case "组织机构"
                                        values_node.childNodes.Item(I).childNodes(J).childNodes(K).childNodes(L).childNodes.Item(m).text = "Sys_OrgUnit" & Format(Date, "yyyymmdd") & ".DATA"
                                    Case "固定资产卡片表头表"
                                        values_node.childNodes.Item(I).childNodes(J).childNodes(K).childNodes(L).childNodes.Item(m).text = "GD_AssetCard_H" & Format(Date, "yyyymmdd") & ".DATA"
                                        values_node.childNodes.Item(I).childNodes(J).childNodes(K).childNodes(L).childNodes.Item(m + 1).text = "GD_AssetCard_H_Update" & Format(Date, "yyyymmdd") & ".DATA"
                                End Select
                            Next
                        Next
                    Next
                End If
            Next
        Next
        xml_document.Save appPath & "JQdataPack\" & Format(Date, "yyyymmdd") & ".xml"