测试脚本在双语言产品之间的共享

Beyond_great

在做自动化测试时，往往会涉及到双语言或多语言产品的测试内容。假如，被测产品支持中文版和英文版，为了在这两个版本中都能做自动化，可能会写两套用例，但这即浪费时间，又增加维护成本。为了实现一套脚本在多语言版本下使用，可以把资源文件写入xml文件里，然后通过代码实现从xml文件里读取不同语言下的测试数据。下面是关键的实现代码，仅供参考：

解析资源
Function ParseResource(resFileName)
  
  set dictEn=CreateObject("Scripting.Dictionary")
  set dictZh=CreateObject("Scripting.Dictionary")
  Dim xmlDoc,root,dataList, dataLength, en, zh, key(), arrayKeyLength

  Set xmlDoc = CreateObject("Microsoft.XMLDOM")
  xmlDoc.async = false
  xmlDoc.load resFileName
  Set root = xmlDoc.documentElement
  Set dataList = root.getElementsByTagName("data")
  dataLength = dataList.length
  arrayKeyLength = dataLength*2-1
  redim key(arrayKeyLength)
  for i = 0 to dataLength - 1
    key(i) = dataList.Item(i).getAttribute("key")
    en = dataList.Item(i).ChildNodes(0).Text
    zh = dataList.Item(i).ChildNodes(1).Text
    dictEn.Add key(i), en
    dictZh.Add key(i), zh
  Next
End Function

读取数据
Function GetString(key)
  dim language
  language=GetLanguage()
  if language = "cn" then   
    GetString=dictZh.Item(key)
  elseif language = "en" then
    GetString=dictEn.Item(key)
  else
     MsgBox "Error"
  end if
End Function

资源文件示例


代码示例
Call Aliases.object.click(GetString("Browse"))







上一篇：不错的log管理函数
下一篇：十个免费的Web压力测试工具

天线宝宝

看了LZ的帖子，我只想说一句很好很强大！

Beyond_great

天线宝宝 发表于 2013-4-21 15:58
看了LZ的帖子，我只想说一句很好很强大！

呵呵，没你想的那么好，再接再厉吧。

天线宝宝

Beyond_great 发表于 2013-4-22 09:00
呵呵，没你想的那么好，再接再厉吧。

加油哦。

荷叶小露

有空一起交流一下。

虹之间i

不错 支持一个了

大男子主义ヾ

没人回帖。。。我来个吧！

非农跑批。

路过的帮顶

世染尘光

很有借鉴意义，先收藏了，谢谢楼主。

萤火之森

没人回帖。。。我来个吧！

漫长的青春。

向楼主学习

春江水

以我的经验来看，楼主的想法是可以执行的~

太子

有空一起交流一下。

姑娘要坚强i

路过 帮顶 嘿嘿

岁月如歌、

有空一起交流一下。