Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Fichier texte
Message
From
16/11/1997 07:47:30
 
 
To
All
General information
Forum:
Visual Basic
Category:
Other
Title:
Fichier texte
Miscellaneous
Thread ID:
00060541
Message ID:
00060541
Views:
53
Bonjour à tous
==============
Afin de donner à l'utisateur un choix d'options
je charge un comboBox avec des enregistrements d'un fichier texte
mais les lignes de ces enregistrements ne sont pas mise à la suite de l'une l'autre mais comme ceci dans Combo1
ex:Première ligneŽŽDeuxième ligneŽŽTroisième ligneŽŽ ect..
Voici les lignes de code

'lecture du fichier afin de remvoyer le texte dans combo2
'ce texte sert pour imprimer un texte fixe au bas du document de commande
Dim Texte_Fixe As Integer
Dim sContenu_Texte, MotClé As String
Texte_Fixe = FreeFile
'lis fichier séquentiel
Open "c:\Travail\Wingold\Texte Fixe.Ini" For Input As Texte_Fixe
Do Until EOF(Texte_Fixe)
Line Input #Texte_Fixe, sContenu_Texte
MotClé = MotClé + sContenu_Texte + Chr(13) + Chr(10)
Combo2.Clear
Combo2.AddItem MotClé

Loop

Close #Texte_Fixe 'ferme le fichier

Comment faire?
Merci
Simon
Next
Reply
Map
View

Click here to load this message in the networking platform