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

Résolu
karimvb120576 Messages postés 13 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 11 janvier 2007 - 5 janv. 2007 à 21:12
karimvb120576 Messages postés 13 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 11 janvier 2007 - 11 janv. 2007 à 19:26
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

ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 25
6 janv. 2007 à 10:10
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
3
nasrino Messages postés 1 Date d'inscription lundi 27 juin 2005 Statut Membre Dernière intervention 7 janvier 2007
7 janv. 2007 à 17:13
nasrino
0
karimvb120576 Messages postés 13 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 11 janvier 2007
11 janv. 2007 à 19:26
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
0
Rejoignez-nous