begin process at 2012 02 14 05:39:13
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Divers

 > 

Débutants

 > 

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


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

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

vendredi 5 janvier 2007 à 21:12:16 | pb d'affichage ligne par ligne a partir d'un fichier en unicode

karimvb120576

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

samedi 6 janvier 2007 à 10:10:32 | Re : pb d'affichage ligne par ligne a partir d'un fichier en unicode

ShareVB

Réponse acceptée !
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
dimanche 7 janvier 2007 à 17:13:59 | Re : pb d'affichage ligne par ligne a partir d'un fichier en unicode

nasrino



nasrino

jeudi 11 janvier 2007 à 19:26:02 | Re : pb d'affichage ligne par ligne a partir d'un fichier en unicode

karimvb120576

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



Cette discussion est classée dans : ligne, text, partir, affichage, strm


Répondre à ce message

Sujets en rapport avec ce message

affichage d'un fichier text à partir du vb6 [ par asairfanne ] <TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 UNSELECTAB Problème d'affichage en arabe [ par karimvb120576 ] Salut  voila  j'ai utilisé  la zone d'affichage des controles forms.2  ainsi que le code si dessoupour afficher des phrases en arabe a partir d'un fic listBox vers TextBox [ par poilusduboux ] Voici comment on peut transférer toutes Fichier : modification d'un enregistrement dans un fichier .dat [ par Sympa74 ] Bonsoir à tous, Voici mon problème : J'affiche le contenu d'une liste de client dans un datagrid. En fonction d'une ligne sélectionnée, j'ouvre dan Modifier un tableau à partir d'un formulaire [ par PPN83 ] Bonjourj'ai renseigné un tableau  à partir d'un formulaire  . chaque ligne de la première colonne contient  un matricule . en recherchant un  matricul Ajout de ligne dans un TextBox VB2005 [ par astvt ] Bonjour, j'ai une feuille avec une zone TextBox, définie en multiligne.Je cherche à afficher une ligne de texte par Form1.TextBox1.text= mon string de Trier par date [ par sensosofttunisiee ] Salut,j'ai un probleme d'affichage liste du fiche d'un client choisi par date d'enregistrement des fiches cad du plus nouveau au plus ancien j'ai un t supprimer une ligne dans un fichier text [ par tonitto85 ] bonjour tous le monde, j'ai un petit problème, j'ai essayé ce que j'ai trouvé par recherche mais ça marche pas.je veux chercher dans un ficher texte u vba exel [ par CAMIONMAN ] Bonjour à vous,je me suis fait un petit classeur sur exel,ou je met tout les jours ou un fois par semaine mes heures de conduites,amplitude,kilometres Remplir plusieurs labels. [ par miikado69 ] Bonjour,connaissant un peu VBA, je m'essai avec vb 2005 express.Sur un form j'ai un datagridview et lorsque je click sur un bouton, je rend visible un


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,390 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales