Discussion :

[tigrou2405]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<?xml version="1.0" encoding="iso-8859-11"?>

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 ?.

Pour récupérer le texte de ma balise j'ai fais cette fonction

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

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
 
monLabel.caption = chargeTextesXML("monNoeud", "maBalise")

Merci d'avance pour toute aide

[tigrou2405]

La recherche ca paye....

Voilà un Mini Tutorial qui peut dépanner pour l'utilisation des caractères étrangers.

1- création du fichier Thai.xml via le bloc note sans l'en tête d'encoding (cf code ci-dessous). Enregistrement en unicode.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
<Noeud>
  <LaBalise>ฟหกด</LaBalise> 
</Noeud>

2- ajout sur le panneau d'un label de type forms 2.0 [cette précision est très importante car les labels du type 1.0 ne prennent pas le thai]

3- fonction de lecture du fichier xml

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
17
 
Function chargeTextesXML(groupe As String, balise As String) As String
    Dim xmlDoc As New MSXML2.DOMDocument
    Dim xmlLog As MSXML2.IXMLDOMElement
    Dim xml As MSXML2.IXMLDOMCharacterData
    Dim retour As String
    '
    'charge le fichier xml à ouvrir
    If xmlDoc.Load(App.Path & "\thai.xml") = True Then
        'on récupère la valeur de la balise 
        Set xmlLog = xmlDoc.getElementsByTagName(groupe)(0)
        retour = xmlLog.selectSingleNode(balise).Text
    Else
        retour = ""
    End If
    chargeTextesXML = retour
End Function

4- alimentation de mon label [font=tahoma charset=222]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Label2.Caption = chargeTextesXML("Noeud", "LaBalise")

[tigrou2405]

Pour le même prix je vous donne aussi la solution pour afficher les caractères thai depuis un fichier texte.

1- création dans le bloc note du fichier texte contenant des caractères thai et enregistrement en unicode

2- lecture du fichier avec la fonction suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function donneTexte() As String
    Dim FSO As New FileSystemObject
    Dim fic As File
    Dim TS As TextStream
    Dim retour As String
    '
    Set fic = FSO.GetFile(App.Path & "\thai.txt")
    Set TS = fic.OpenAsTextStream()
    retour = TS.ReadAll
    TS.Close
    donneTexte = StrConv(retour, vbFromUnicode)
End Function

3- afichage du texte dans mon label (font=tahoma charset=222)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Label2.Caption = donneTexte

[khany]

Si tu veux ajouter des exemples de codes, tu peux toujours compléter ici :

http://khany.developpez.com/tutoriel/xml/