Problèmes de caractères avec un fichier XML
Publié : mer. 14/nov./2007 20:44
Bonjour,
Je n'arrive pas à lire correctement mon fichier XML. Lorsque je veux extraire des Strings, les caractères accentués sont déformés. J'ai mis en en-tête dans mon fichier XML que j'utilise un encodage en ISO pourtant, et je force la lecture du fichier XML en utilisant la directive #PB_ASCII.
Voilà mon fichier XML :
Le programme que j'utilise pour lire le fichier est le suivant :
Merci de votre aide
Lio
Je n'arrive pas à lire correctement mon fichier XML. Lorsque je veux extraire des Strings, les caractères accentués sont déformés. J'ai mis en en-tête dans mon fichier XML que j'utilise un encodage en ISO pourtant, et je force la lecture du fichier XML en utilisant la directive #PB_ASCII.
Voilà mon fichier XML :
Code : Tout sélectionner
<?xml version="1.0" encoding="ISO-8859-1" standalone="yes"?>
<parameters version="1.11 beta">
<configuration>
<groups>
<group name="Games" url="E:\Mes documents\Mes Images\Arrières plan\Autres\">
<ban>E:\Mes documents\Mes Images\Arrières plan\Autres\Wallpaper Gold.JPG</ban>
</group>
<group name="Sweden" url="E:\Mes documents\Mes Images\Photos\2007\12 - Göteborg\wallpapers.txt">
</group>
<group name="Copenhague" url="E:\Mes documents\Mes Images\Photos\2007\12 - Göteborg\28 - Copenhague\">
</group>
</groups>
</configuration>
</parameters>
Code : Tout sélectionner
File$ = "fichier.xml"
Procedure XMLNodeFromPathSafe(*NodeXML, Path$, Exit=#True)
Protected *NewNode
*NewNode = XMLNodeFromPath(*NodeXML, Path$)
If *NewNode = #Null And Exit
MessageRequester("This node doesn't exist : '"+Path$+"'", "", #MB_ICONWARNING)
End
EndIf
ProcedureReturn *NewNode
EndProcedure
hXML = LoadXML(#PB_Any, File$, #PB_Ascii)
If hXML
*mainNode = MainXMLNode(hXML)
If *mainNode
*confNode = XMLNodeFromPathSafe(*mainNode, "configuration/")
If *confNode
*groupsNode = XMLNodeFromPathSafe(*confNode, "groups/")
*groupNode = XMLNodeFromPath(*groupsNode, "group/")
If *groupNode
While *groupNode And GetXMLNodeName(*groupNode) = "group"
a$ =GetXMLAttribute(*groupNode, "url")
Debug a$
*groupNode = NextXMLNode(*groupNode)
Wend
EndIf
EndIf
EndIf
EndIf
Lio