pb d'affichage ligne par ligne a partir d'un fichier en unicodeRésolu

Question

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

ShareVB · Accepted Answer

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

nasrino · Answer

nasrino

karimvb120576 · Answer

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

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

3 réponses

Votre réponse