lecture de fichier

Version imprimable

lecture de fichier

Bonjour
j'ai un probleme de lecture de fichier.j'essai de lire le fichier ligne par ligne
mettre la ligne dans une variable que j'affiche dans un textbox
le probleme que j'ai c'est que juste la derniere ligne qui s'affiche et pourtant j'ai fais une boucle pour tous lire voilà mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim File As TextStream Dim Path_File As String Dim ligne As String Dim i As Integer i = 0 ligne = 0 Path_File = "c:\test.txt " Set File = SystemeFichier.OpenTextFile(Path_File, ForReading) While Not File.AtEndOfStream line = File.ReadLine i = i + 1 Text1.Text = ligne Wend File.Close
merci de m'aider de voir ou ça bloque

[Edit] Balises Code powered by Xo, merci d'y penser ;) [/Edit]

A propos de fichier texte, j'ai ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub LireFichierTxT() Dim Ligne As String Dim i As Long i = 0 Open Me.TxtFile.Text For Input As #1 While Not EOF(1) Input #1, Ligne i = i + 1 Wend MsgBox Ligne Close #1 End Sub
Si ça peut t'aider, tu remplaces MsgBox Ligne par un affichage dans ta textbox et un bouton suivant... ou aut'chose...

A+

09/11/2005, 11h19
pc75

Bonjour,

Citation:

le probleme que j'ai c'est que juste la derniere ligne qui s'affiche et pourtant j'ai fais une boucle pour tous lire voilà mon code

Dim File As TextStream
Dim Path_File As String
Dim ligne As String
Dim i As Integer

i = 0
ligne = 0
Path_File = "c:\test.txt "
Set File = SystemeFichier.OpenTextFile(Path_File, ForReading)
While Not File.AtEndOfStream
line = File.ReadLine
i = i + 1
Text1.Text = ligne

Wend

Je dirais qu'il est normal que ça n'affiche que la dernière ligne lue.
Quand tu fais Text1.Text = ligne dans la boucle, tu écrases à chaque fois la valeur.
Si tu veux tout afficher, il faut que tu concatènes tes lignes dans la boucle et que tu alimentes Text1.Text = ligne après ta boucle.
09/11/2005, 11h27
leroissejp

Bonjour,
Tu programmes en quoi ??, VB.Net ??

jpleroisse
09/11/2005, 11h36
koseta

vb6

je pogramme avec vb6

voila vous avez trouver ou clarifier mon probleme
comment faire pour defiler mes lignes dans un textbox ou autre le plus important pour moi c'est quelles defilent
09/11/2005, 11h46
Megaxel
Hello !
Juste après ton
Code:

1 2 Text1.Text = ligne
mets une boucle vide qui compte jusqu'à 50000 (par exemple), pour avoir le temps de lire le contenu de ta ligne.

Je reprends ta boucle

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public ok as boolean
Sub TaSub()
Dim File As TextStream 
Dim Path_File As String 
Dim ligne As String 
Dim i As Integer 
i = 0 
ligne = 0 
Path_File = "c:\test.txt " 
Set File = SystemeFichier.OpenTextFile(Path_File, ForReading) While Not File.AtEndOfStream 
    line = File.ReadLine 
    i = i + 1 
    Text1.Text = ligne
    do While not ok         
    loop
    ok = false  
Wend
End sub

Code:

1
2
3
Private sub Text1_Click
ok = true
End sub

C'était ça que je voulais dire

A+

09/11/2005, 12h01
koseta

une boucle vide ? ok mais avec quel outil on fais ça
09/11/2005, 12h05
ouskel'n'or

Pas besoin de compter avec ce que je t'ai passé.
Je sais que tu répondais à Megaxel mais le résultat est similaire, sauf que dans "mon cas", c'est le lecteur qui a la maitrise du temps.

A+
09/11/2005, 12h15
koseta

merci ouskel'n'or pour tous
j'ai fais comme tu as dis
ça a planté mon systeme aucun mesage d'erreur
09/11/2005, 12h23
Megaxel
Si tu ne veux pas absolument avoir la maîtrise du temps (un peu mégalo, Ousk ? :D ), voici ma boucle vide qui compte jusqu'à 50000:
Code:

1 2 3 For Tempo = 0 To 50000 Next Tempo
Et voilà! Simple, non?
09/11/2005, 12h32
koseta

j'ai erreur d'exection '6'
depacement de capacité pour la boucle
For Tempo = 0 To 50000
Next Tempo
09/11/2005, 12h35
Megaxel
Bon, j'ai été trop gourmand: compte jusqu'à 10000.
Ou alors, déclare "Tempo" comme un Long:
Code:

1 2 Dim Tempo As Long
09/11/2005, 12h49
ouskel'n'or

Citation:

merci ouskel'n'or pour tous
j'ai fais comme tu as dis
ça a planté mon systeme aucun mesage d'erreur

Est-ce que je dois :lol: ou dois-je :cry: ?

Pour tout dire, je ne comprends vraiment pas, ou alors, ta boucle de lecture du fichier se trouve dans "un endroit" imprévu... par moi.

Désolé tout de même.

Bonne chance avec Megaxel

Salut,

J'ai encore plus simple :lol: :

Code:

1
2
3
4
5
6
7
8
9
    Dim fs, f
    Dim Content
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("C:\test.txt", 1, False, 0)
    Content = f.Readall
    f.Close
    Text1.MultiLine = True 'Forçage au multiligne
    Text1.ScrollBars = 2 'Scrollbar verticale
    Text1.Text = Content

Testé et fonctionne très bien

@+

Théo

09/11/2005, 14h23
Megaxel

Ha ouais, là, ça me plait!
Je ne connaissais pas le "ReadAll", c'est drôlement pratique!
Bien joué, Théo!
09/11/2005, 14h27
leroissejp

Bonjour,
J'ai voulu essayer ton code mais celà ne marche pas chez moi (TexStream), connait pas.
Enfin si tu dis que celà fonctionne chez toi, puisque tu récupères la dernière ligne, tu mets la valeur de la propriété Multiligne du TextBox à True et celà devrait aller.

jpleroisse
09/11/2005, 14h44
Theocourant

Citation:

Envoyé par Megaxel

Ha ouais, là, ça me plait!
Je ne connaissais pas le "ReadAll", c'est drôlement pratique!
Bien joué, Théo!

En plus, tu y gagne en mémoire puisque ton fichier n'est ouvert que peut de temps en comparaison avec une boucle de lecture ...

C'est ici sur le forum que j'ai trouvé ça... :lol:

@+

Théo
09/11/2005, 14h50
Xo

Si tu as besoin d'attendre entre chaque ligne, je te suggère soit l'utilisation d'un Timer, soit (le plus simple) de la fonction Sleep :

Tu as juste besoin de la déclaration ci-dessous :

Code:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

La solution d'une boucle vide me paraît ford hasardeuse : aucune maîtrise du délai (dépend de la config), et consommatrice de mémoire :wink:

Revue et corrigée
J'ai utilisé un bouton sur le form pour lancer la lecture du fichier,
Code:

1 2 3 Private Sub CommandButton1_Click() LireLeFichier End Sub
Ensuite, j'ai utilisé mon code pour lire le txt
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub LireLeFichier() Dim Ligne As String Dim i As Long i = 0 Open "p:\InserComplété.txt" For Input As #1 While Not EOF(1) Input #1, Ligne i = i + 1 UserForm1.Text1.Text = "N° ligne " & i & " - " & Ligne Temporisation (5) Wend Close #1 End Sub
Enfin, j'ai utilisé un sub temporisation que j'avais
Code:

1 2 3 4 5 Sub Temporisation(durée) Dim Tempo Tempo = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + durée) Application.Wait Tempo End Sub
Testé, ça ne plante pas le système :wink: (les lignes testées font plus de 200 caractères)

Si t'en veux pas... ch'ten voudrai pas :lol:

09/11/2005, 15h58
koseta

ca serait beau mais dans mon application j'ai besoin d'un defilement et non d'un affichage
et dire que je pensais que c'etais la chose la plus simple au monde et de lire un fichier text
09/11/2005, 16h00
Theocourant

Citation:

Envoyé par koseta

ca serait beau mais dans mon application j'ai besoin d'un defilement et non d'un affichage
et dire que je pensais que c'etais la chose la plus simple au monde et de lire un fichier text

Je comprends pas ce que tu veux faire :koi:

Explique-nous plus clairement sinon on y arrivera pas

@+

Théo
09/11/2005, 16h26
koseta

Merci à tous pour vos reponses

pour les api ;le kernel je ne le maitrise pas vraiment pour la solution d'avec le tempo je viens de l'executer j'ai l'erreur un objet est requis l'reeur apparais au niveau de l'istruction
Application.Wait Tempo
comment declarer cet objet?

Re,

Si tu as besoin d'avoir toutes les lignes séparée, tu peux faire comme cela alors :

Code:

1
2
3
4
5
6
7
8
Dim fs, f 
Dim Content 
Dim monTableau()
    Set fs = CreateObject("Scripting.FileSystemObject") 
    Set f = fs.OpenTextFile("C:\test.txt", 1, False, 0) 
    Content = f.Readall 
    f.Close
    monTableau = Split(Content, vbCrLf)

Pour l'écriture, tu passes soit par :

Code:

1
2
3
    Text1.MultiLine = True 'Forçage au multiligne 
    Text1.ScrollBars = 2             'Scrollbar verticale 
    Text1.Text = Content

soit par :

Code:

1
2
3
4
5
6
    Text1.MultiLine = True 'Forçage au multiligne 
    Text1.ScrollBars = 2             'Scrollbar verticale
    Text1.Text = ""                     'Initialisation de la TextBox
    For i=LBound(monTab) to UBound(monTab)
        Text1.Text = Text1.Text & vbCrLf & monTab(i)
    Next i

Voilà

Théo

09/11/2005, 16h38
Megaxel

Pourtant, le truc de Xo avait l'air super bien-simple et tout. Une ligne à rajouter en début de module, et après, tu n'as plus qu'à faire "Sleep 1000" et tu as une pause de 1 seconde...

Re: lecture de fichier

C'est re-moi

Je viens de relire ton premier post car je me demandais si je faisais pas du hors-sujet au vu de ta réponse précédente ...
Citation:
Envoyé par koseta
Bonjour
j'ai un probleme de lecture de fichier.j'essai de lire le fichier ligne par ligne
mettre la ligne dans une variable que j'affiche dans un textbox
le probleme que j'ai c'est que juste la derniere ligne qui s'affiche et pourtant j'ai fais une boucle pour tous lire voilà mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim File As TextStream Dim Path_File As String Dim ligne As String Dim i As Integer i = 0 ligne = 0 Path_File = "c:\test.txt " Set File = SystemeFichier.OpenTextFile(Path_File, ForReading) While Not File.AtEndOfStream line = File.ReadLine i = i + 1 Text1.Text = ligne Wend File.Close
merci de m'aider de voir ou ça bloque

[Edit] Balises Code powered by Xo, merci d'y penser ;) [/Edit]
J'ai trouvé le problème de ton code ... (il serait temps tu me diras)

Cela vient de la ligne suivante :

Code:

Text1.Text = ligne

Tu écrases le contenu de ta TextBox à chaque itération ..

Il faut pour corriger cela faire comme ceci :

Code:

Text1.Text = Text1.Text & vbCrLf & ligne

Et il faut penser à initialiser la TextBox avant la boucle

Code:

Text1.Text=""

Voilà

@+

Théo

09/11/2005, 17h05
koseta

avec Text1.Text = Text1.Text & vbCrLf & ligne et Text1.Text = "" il m'a tous afficher toute les lignes mon probleme et le defilement des linges l'une apres l'autre
09/11/2005, 17h11
Megaxel

Oui, Théo, tu es revenu au début du post.
Mais alors bon, le sleep de Xo (non, y'a pas de jeu de mot, je n'oserais pas... :D ) ne te convient pas?
Ca fait bien ce que tu veux, ça, non?
09/11/2005, 17h16
koseta

je cherche encore et encore je lis ....
je viens de lire qu'avec le timer et le doevents je peux resoudre le probleme

Mais j'ai vraiment l'impression que tu as tout ce qu'il te faut:
Tu mets
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim File As TextStream Dim Path_File As String Dim ligne As String Dim i As Integer i = 0 ligne = 0 Path_File = "c:\test.txt " Set File = SystemeFichier.OpenTextFile(Path_File, ForReading) While Not File.AtEndOfStream line = File.ReadLine i = i + 1 Text1.Text = ligne Sleep 1000 Wend File.Close
C'est ton code du début, avec en plus une pause de 1 seconde (1000 millisecondes),
et au début de ton module, hors de ta procédure, tu rajoutes la ligne
Code:

1 2 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Ca doit bien faire défiler ligne par ligne, toutes les 1 secondes, ton fichier texte dans ton textbox, non ?!!??

09/11/2005, 17h34
Megaxel

Dites, je me décide enfin à tester ce code... Mais pour utiliser un textstream, il faut rajouter quelle référence dans le module, déjà?
09/11/2005, 18h26
koseta

runtime
09/11/2005, 19h16
Megaxel

Bon, je vais regarder ça plus précisemment.
Mais qu'est-ce qui ne marche pas si tu mets la version "sleep" de Xo?
09/11/2005, 22h22
Xo

Citation:

Envoyé par Megaxel

la version "sleep" de Xo?

C'est pas à moi, on peut parler de la fonction Sleep sur ce topic sans me citer ;)

surtout si c'est pour faire des calembours discutables :roll: :P ...
17/11/2005, 16h04
AdHoc

Bonjour,
une question, Pourquoi veux tu utiliser un controle textbox pour faire "defiler" tes lignes?
je ne crois pas pas que cela soit le bon controle.
Personnellement pour un defilement type fil de l'eau, j'utiliserai un controle listbox. Tu le remplis, puis à chaque ligne ajoutée, tu enleves la plus ancienne.
Avec un refresh, cela devait ressembler à un defilement.