SCRIPT liest XML Attribute
In eigener Sache ...
es funktioniert auch so:
1. Schreibe ein XML Document:
<constantes>
<accueil>
<french>Bienvenue</french>
<english>Welcome</english>
</accueil>
</constantes>
2. Schreibe eine Funktion, die aus dem XML Document liest:
<HTML>
<HEAD>
<SCRIPT language="VBSCRIPT">
Dim oDom
'Cette fonction charge les constantes
sub initConst
set oDom = CreateObject("MSXML.DOMDocument")
oDom.async = false
oDom.load("constantes.xml")
end sub
'Cette fonction permet de recuperer la valeur d'une constante dans le XMl
function getConstant(constName, language)
Dim oNode
if IsEmpty(oDom) then initConst
if not IsEmpty(oDom) then
if not oDom is nothing then
'on va recuperer la constante qui correspond
set oNode = oDom.documentElement.getElementsByTagName(constName).item(0)
'on prend l'element qui correspond à la langue
getConstant = oNode.getElementsByTagName(language).item(0).text
end if
end if
end function
</SCRIPT>
</HEAD>
<BODY>
<SCRIPT language="VBSCRIPT">document.write("<P title='" & getConstant("accueil", "french") & "'>")</SCRIPT>
<SCRIPT language="VBSCRIPT">document.write getConstant("accueil", "english") </SCRIPT>
</P>
</BODY>
</HTML>
