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
