51Testing软件测试论坛

标题: 如何读取XML中的内容 [打印本页]

作者: 老鼠球 时间: 2008-9-28 15:54
标题: 如何读取XML中的内容
QTP代码如下：
Dim StringA
Environment.LoadFromFile("C:\EnvironmentValue.xml")
StringA=environment.Value("Username")
msgbox StringA

XML代码如下：
<?xml version="1.0" encoding="utf-8" ?>
<note>
<Username>Admin</Username>
<password>password</password>
</note>

就是取不到Username的值
哪位大虾指点下，不胜感谢~

作者: 鹭岛 时间: 2008-9-28 16:12
http://www.cnblogs.com/beagles/archive/2006/11/07/552752.html

作者: 285929602 时间: 2008-9-28 16:14
Set xmlDoc = CreateObject("Msxml2.DOMDocument")
xmlDoc.load("c:\test.xml")
Set Elem= xmlDoc.getElementsByTagName("Username")
username = Elem.item(0).Text
MsgBox username

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)