Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Fichier texte
Message
De
16/11/1997 07:47:30
 
 
À
Tous
Information générale
Forum:
Visual Basic
Catégorie:
Autre
Titre:
Fichier texte
Divers
Thread ID:
00060541
Message ID:
00060541
Vues:
48
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform