[VB6]Lire le contenu d'un fichier dans une listbox

**gizmorambo** · 10/04/2006, 16h34

Bonjour,

J'aimera savoir comment afficher le contenu d'un fichier dans une listbox.

Merci!

**bidou** · 10/04/2006, 17h52

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    Dim ts As TextStream
 
    Set ts = fso.OpenTextFile("d:\svg\developpez\br.txt", ForReading)
    While Not ts.AtEndOfStream
        Me.List1.AddItem ts.ReadLine
    Wend
End Sub

**gizmorambo** · 10/04/2006, 18h06

Ca marche pas avec mon fichier texte

**Megaxel** · 10/04/2006, 18h07

Comme d'hab':
-environnement de travail?
-erreur?
...

**gizmorambo** · 10/04/2006, 18h10

VB 6.0

voici mon code pour l'entrée des données dans le fichier texte. J'aimerai ensuite les récupérer dans une listbox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub CmdSauvegarder_Click()
Dim intFicNum As Integer
intFicNum = FreeFile
Open "C:\Devis.txt" For Append As #intFicNum
If LstCategorie = "" Then
    MsgBox ("Veuillez choisir une catégorie!")
Else
    Print #intFicNum, LstCategorie
End If
If TxtNumero = "" Then
    MsgBox ("Veuillez entrer un numéro!")
Else
    Print #intFicNum, TxtNumero
End If
If TxtEntreprise = "" Then
    MsgBox ("Veuillez entrer une entreprise!")
Else
    Print #intFicNum, TxtEntreprise
End If
If TxtMontant = "" Then
    MsgBox ("Veuillez entrer un montant!")
Else
    Print #intFicNum, "+*", TxtMontant, "+*"
End If
If ChkAccepte.Value = 1 Then
    Print #intFicNum, "Accepté"
Else
    Print #intFicNum, "En attente"
End If
Print #intFicNum, "-----"
Close #intFicNum
MsgBox ("Nouvelle entrée enregistrée!")
End Sub

**jmfmarques** · 10/04/2006, 18h13

ton 1er message disait

J'aimera savoir comment afficher le contenu d'un fichier dans une listbox.

et le code que tu nous sers là, ma foi, tend à écrire à la queue d'un fichier !!!

C'est quoi, que tu veux faire exactement, au bout du compte

:

**ouskel'n'or** · 10/04/2006, 18h16

Tu as ça partout : Dans la FAQ, dans la "Recherche avancée sur le forum" Visual Basic.

Un peu de recherche et la recherche t'aidera

Courage ! Nom de gu !

**gizmorambo** · 10/04/2006, 18h17

Récupérer ce que j'ai ecri dans le fichier texte (avec le code que j'ai mi + haut) dans une listbox

**jmfmarques** · 10/04/2006, 18h22

Question 1: as-tu vérifié que ton fichier .txt contenait ce que tu voulais après ton Append ?

**ouskel'n'or** · 10/04/2006, 18h44

Comme je suis gentil, regarde la réponse d'Amandine62 à cette adresse
http://www.developpez.net/forums/vie...ght=lire+texte

Tu pourras toujours nous demander si tu as un pb mais il y a 41 réponses avec "Lire and Texte" en recherche avancée sur le forum. Tu devrais t'en sortir...

A+

**ouskel'n'or** · 10/04/2006, 18h50

Aujourd'hui encore, tu as un réponse donnée par jmfmarques à cette adresse http://www.developpez.net/forums/viewtopic.php?t=485677
Si tu peux lire la dernière ligne d'un fichier texte, tu dois pouvoir toutes les lire au passage.

Zut quoi !

**gizmorambo** · 10/04/2006, 19h20

Merci, restons zen 8)

En fait j'arrive à lire le fichier mais quand je le met dans ma listbox, les différentes lignes de texte du fichier ne sont pas structurées comme je voudrais (les enregistrements sont les uns a la suite des autres). C'est pour ca que je demandais un peu d'aide. Bon je vais continuer à chercher

**jmfmarques** · 10/04/2006, 19h26

Les divers articles d'une listBox sont en effet séparés les un des autres (un article par index)! Et... tu as une meilleure idée de contrôle plus efficace ????
Nous sommes zen.... et... curieux

Attends !
Tu ne voudrais pas dire, par hasard, que tu n'obtiens qu'un seul article, dans ta listbox, qui serait la concaténation de toutes les lignes du Fichier ????

J'espère que non !

**ouskel'n'or** · 10/04/2006, 19h52

Mets-nous ton code pour lire le txt, pas pour l'écrire

A+

**gizmorambo** · 10/04/2006, 20h01

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
 Dim fs, f
    Dim Import
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("C:\Devis.txt", 1, False, 0)
    Import = f.Readall
    f.Close
    TxtCat.Text = Import
    LstModifier.AddItem (Import)
    End Sub

La totalité de mes enregistrements s'affichent sur la premiere ligne de la listbox et j'aimerai qu'il y affiche un enregistrement par ligne.

Merci pour votre aide 8)

**jmfmarques** · 10/04/2006, 20h03

Fais une lecture séquentielle de ton fichier (open for input etc...) et montre-nous le code utilisant cette lecture. Je te l'ai déjà dit, en réponse à ton MP !

**ouskel'n'or** · 10/04/2006, 20h19

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
open "C:\Devis.txt" for input as #1 
while not EOF(1) 
  line input #1, LaLigne
  ListBox.additem LaLigne
wend

J'ai modifié le code fourni par jlmmarques lui-même. Tu essaies ça sans complication... et tu dis

A+

**gizmorambo** · 10/04/2006, 20h28

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
Dim IntFicNum As Integer
IntFicNum = FreeFile
Open "C:\Devis.txt" For Input As #IntFicNum
Do Until (EOF(IntFicNum))
LstModifier.AddItem (IntFicNum)
Loop
Close #IntFicNum
End Sub

**gizmorambo** · 10/04/2006, 20h32

Ton code marche merci mais j'aimerai comprendre pq le mien ne marche pas... ma boucle plante apparemment

**jmfmarques** · 10/04/2006, 21h02

ma boucle plante apparemment

Quelle boucle ? je n'en vois pas dans ton code antérieur...
Si tu te réfères à ton dernier code, par contre, il faut d'abord, grâce au Line Input, relever la "valeur" de la ligne... et envoyer ensuite cette valeur dans ta ListBox par un AddItem. C'est ce que fait le code dont tu trouves, à fort juste titre, qu'il marche bien !

[VB6]Lire le contenu d'un fichier dans une listbox

VB 6 et antérieur

Discussions similaires

Partager

Partager