Pb d'affichage ligne par ligne a partir d'un fichier en unicode

[Résolu]
Signaler
Messages postés
13
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
11 janvier 2007
-
Messages postés
13
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
11 janvier 2007
-
Salut :
Voila un code  avec les controles de forms2 dans le bute d'afficher des text en unicode(lettres en arabe) a partir d'un fichier text.

l'affichage est effectuer ligne par ligne dans la zone de text a chaque foi que j'apuis sur un boutton

le problème c'est que ça marche que pour la première ligne
a partir de la deusième ligne je me retrouve avec des caractère autre que ceux enregistrés ..

voila le code complet

-----------------------------------------------
Dim fso As New FileSystemObject
Dim strm As TextStream
Dim phrase1 As String
Dim phrase2 As String
Dim nouvellePhrase As String


Private Sub cmdBoutton_Click()
If strm.AtEndOfLine = False Then
phrase1 = strm.ReadLine
nouvellePhrase = StrConv(phrase1, vbFromUnicode)
txtAffichage.Text = nouvellePhrase
Else
strm.Close
Unload Me
End If
End Sub


Private Sub Form_Load()
Set strm = fso.OpenTextFile("c:\arabe.txt")
End Sub
---------------------------------------------------------------------

merci de me venir en aide

3 réponses

Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
20
salut,

peut être que tu devrais mettre, pour forcer en unicode :
Set strm = fso.OpenTextFile("c:\arabe.txt",1,false,-1)

sinon :
http://msdn2.microsoft.com/en-us/library/314cz14s.aspx
http://www.microsoft.com/france/msdn/scripting/fso.mspx
http://support.microsoft.com/kb/186118/fr

ShareVB
Messages postés
1
Date d'inscription
lundi 27 juin 2005
Statut
Membre
Dernière intervention
7 janvier 2007

nasrino
Messages postés
13
Date d'inscription
jeudi 30 novembre 2006
Statut
Membre
Dernière intervention
11 janvier 2007

Salut  a vous
je m'excuse pour ce retard , j'était absent pendant une semain.
voila j'ai suivi ton conseil SharVB et ça a bien marché .
On utilisant les paramères de la fonction OpenTextFile j'ai parvenu a litre un fichier écris en Unicode(lettres en arabe) .

Voila le nouveau code apré réctification :
'----------------------------------------------------------
Dim fso As New FileSystemObject
Dim strm As TextStream
Dim phrase1 As String
Dim nouvellePhrase As String


Private Sub cmdBoutton_Click()
If strm.AtEndOfLine = False Then
phrase1 = strm.ReadLine
txtAffichage.Text = phrase1
Else
strm.Close
Unload Me
End If
End Sub


Private Sub Form_Load()
Set strm = fso.OpenTextFile("c:\arabe.txt", ForReading, False, TristateTrue)
End Sub

Merci Shar