vbScript 读取xml

最新推荐文章于 2023-02-07 11:17:28 发布

markinlqx

最新推荐文章于 2023-02-07 11:17:28 发布

阅读量978

点赞数

分类专栏： QTP VBScript 文章标签： function encoding mysql xml table

本文链接：https://blog.csdn.net/markinlqx/article/details/7959502

版权

VBScript 同时被 2 个专栏收录

8 篇文章 0 订阅

订阅专栏

QTP

3 篇文章 0 订阅

订阅专栏

有 E:\Script.xml 内容如下：

<?xml version="1.0" encoding="UTF-8"?>
< Scripts xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="DBScriptConfig.xsd">
    <Script Key="MySQL">
        <![CDATA[
        SELECT    
           columna,
           columnb,
        FROM Table WITH(NOLOCK)
        ]]>
    </Script>
< /Scripts>

执行下面的Script：

msgbox(GetMySQL("E:\Script.xml", "MySQL"))


Function GetMySQL( xmlPath,  SqlName)
    Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    xmlDoc.async = False
    xmlDoc.load xmlPath
    If xmlDoc.parseError.errorCode <> 0 Then
        Set myErr = xmlDoc.parseError
        MsgBox("xml load faild. " & myErr.reason)
    Else
        Dim SqlCount
        Dim i
        
        Set rootNode = xmlDoc.documentElement
        SqlCount = rootNode.childNodes.length
        
        For i=0 To SqlCount-1
            If(rootNode.childNodes(i).attributes(0).text = SqlName) Then 
                GetMySQL = rootNode.childNodes(i).text
                Exit For
            Else
                GetMySQL=""
            End If
        Next
        
        If(GetMySQL="") Then
            MsgBox("There is no this SqlName!")
        End If
    End If
    Set xmlDoc = Nothing
End Function