Bonjour,
Depuis mon post de toute à l'heure j'ai beaucoup avancé.
OBJECTIF : afficher dans un label du texte thai contenu dans un fichier xml.
J'arrive bien à mettre du thai dans mon label depuis l'éditeur graphique avec une saisie du thai par mon clavier.(charset=222 et font=tahoma).
J'arrive à crée un xml qui contient l'en tête d'encodage en thai et à l'ouvrir dans IE.
Par contre quand j'ouvre mon xml avec DOM il me renvoie des ??? à la place des caractères et donc quand j'alimente le texte de mon label à partir du résultat de la lecture de la balise j'ai des ?.
Code : Sélectionner tout - Visualiser dans une fenêtre à part <?xml version="1.0" encoding="iso-8859-11"?>
Pour récupérer le texte de ma balise j'ai fais cette fonction
puis pour alimenter mon label via la fonction de lecture du XML je fais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Function chargeTextesXML(groupe As String, balise As String) As String Dim xmlDoc As New MSXML2.DOMDocument Dim xmlLog As MSXML2.IXMLDOMElement Dim retour As String ' 'charge le fichier xml à ouvrir If xmlDoc.Load(App.Path & "\Langue\textes.xml") = True Then 'on récupère la valeur des 2 balises bluetooth Set xmlLog = xmlDoc.getElementsByTagName(groupe)(0) retour = xmlLog.selectSingleNode(balise).Text Else retour = "" End If chargeTextesXML = retour End Function
Merci d'avance pour toute aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 monLabel.caption = chargeTextesXML("monNoeud", "maBalise")
Partager