51Testing软件测试论坛

标题: 外部导入环境变量问题 [打印本页]

作者: 五百螺汉 时间: 2008-8-11 10:57
标题: 外部导入环境变量问题
我在外部定义一个环境变量文件，然后导入，请问一下，下面的操作过程是否正确

环境变量文件为1.xml，存放在C盘根目录下
内容为：
<Environment>
   <Variable>
   <Name>Ad</Name>
      <Value>http://www.sina.com.cn</Value>
   </Variable>
</Environment>

然后导入的脚本为：

Environment.loadfromfile(c:\1.xml)
str1 = Envrionment("Ad")
msgbox str

结果得到的结果是空值，请问一下，是哪个环节出问题了？在线等，谢谢了

[ 本帖最后由五百螺汉于 2008-8-11 10:58 编辑 ]

作者: 285929602 时间: 2008-8-11 11:31
你这个就是VB Script解析XML文件，并取得要求的节点值，换一种写法看看。
dim xmlfile
xmlfile = "c:\1.xml"
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
xmldoc.setProperty "ServerHTTPRequest",True
xmldoc.async = False
xmldoc.resolveExternals = True
xmldoc.load xmlfile
set objfind=xmldoc.documentElement.SelectSingleNode("//Environment/Variable/Value")
Dim nodevalue
nodevalue=objfind.text
msgbox nodevalue

作者: 五百螺汉 时间: 2008-8-11 11:53

原帖由 285929602 于 2008-8-11 11:31 发表
你这个就是VB Script解析XML文件，并取得要求的节点值，换一种写法看看。
dim xmlfile
xmlfile = "c:\1.xml"
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
xmldoc.setProperty "ServerHTTPRequest",True
...

谢谢，不过还是没解决我那个脚本的问题，我想知道是哪句代码出问题了

作者: 285929602 时间: 2008-8-11 13:46
Dim str1
Environment.loadfromfile "c:\1.xml"
str1=Environment("Ad")
msgbox str1

[ 本帖最后由 285929602 于 2008-8-11 14:01 编辑 ]

作者: lingxin5013 时间: 2008-8-11 15:25
环境变量文件为1.xml，存放在C盘根目录下
内容为：
<Environment>
   <Variable>
   <Name>Ad</Name>
      <Value>http://www.sina.com.cn</Value>
   </Variable>
</Environment>

然后导入的脚本为：

Environment.loadfromfile(c:\1.xml)
str1 = Envrionment("Ad")
msgbox str
是
msgbox str1你少了个１

作者: 五百螺汉 时间: 2008-8-11 15:28
我想哭了。。。
这么低级的错误也犯。。。
str1 = ...
msgbox str
。。。。无语了。。

作者: flying-kite 时间: 2008-8-11 17:48
呵呵，做测试需要细心哦

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