Discussion :

[ricil78]

Bonjour,

je récupère un texte depuis un fichier XML
Le texte comporte des retours à la ligne
Le texte doit s'afficher dans une textbox (Multiline=true)
Mais les retours à la ligne sont représentés par des carrés

Voici un exemple de ce que j'aimerai avoir.

Code :

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

1
2
3
4
5
coucou
 
début courrier
 
coucou

et voici ce que j'ai actuellement

Code :

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

coucou||début courrier||coucou

Merci pour votre aide

[BCmDev]

Utilises-tu bien le bon Encoding pour charger ton fichier ?

[ricil78]

En fait c'est une classe que je sérialise et désérialize via un fichier XML
En résumé les valeurs de ma class sont stocké dans un fichier XML
Dans le fichier XML j'ai bine les Accent et les retour chariots

j'utilise l'encoding suivant lors de l'écriture et de la lecture

Code :

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

System.Text.Encoding.Default

voici un bout de code de mon écriture et de la lecture

Ecriture

Code :

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

 file = New StreamWriter(MyAdresseFichier, False, System.Text.Encoding.Default)

lecture

Code :

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

file = New StreamReader(MyAdresseFichier, System.Text.Encoding.Default)

Ai-je bon ?
Sinon avez vous des idées ?

[Aspic]

Es tu sur que ce sont des retours à la ligne ?

Sinon tu splits ton texte :

Code :

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

Dim Texte as string() = split(MonTaxteXML, VbCrLf)

Et puis tu récupères les morceaux dans Texte(0), Texte(1) ...

Ensuite tu en fais ce que tu veux

[ricil78]

Merci aspic je me suis inspiré de ton idée

Par contre je sais pas si c'est normal mais si je fait split(vbCrLf) ou split(vbCrLf.ToString)
cela ne marche pas, il ne le trouve pas.

par contre si je fais un split avec vbCrLf.ToString.Substring(1, 1) là il me trouve le caractère et le split fonctionne.

Du coup je m'en suis sortie avec le code suivant

Merci pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim RetourChariot As String = vbCrLf.ToString.Substring(1, 1)
Dim RetourChaine As String = ""
Dim Texte As String() = Conf._Texte_De_Debut.Split(RetourChariot)
 
For Each Chaine As String In Texte
      RetourChaine += Chaine & vbCrLf
Next
 
'Enleve le dernier retour chariot qui sert à rien
MaTextBox.Text = RetourChaine.Remove(0, 2)

[Aspic]

Sans doute parce que ce ne devait pas etre un retour à la ligne

En tout cas tans mieux si tu as trouvé