Discussion :

[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

[Theocourant]

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

Explique-nous plus clairement sinon on y arrivera pas

@+

Théo

[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?

[Theocourant]

Re,

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

Code :

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

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 :

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

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

soit par :

Code :

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

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

[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...

[Theocourant]

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 ...

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 :

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
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 :

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

   Text1.Text = ligne

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

Il faut pour corriger cela faire comme ceci :

Code :

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

Text1.Text = Text1.Text & vbCrLf & ligne

Et il faut penser à initialiser la TextBox avant la boucle

Code :

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

Text1.Text=""

Voilà

@+

Théo

[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

[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... ) ne te convient pas?
Ca fait bien ce que tu veux, ça, non?

[koseta]

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

[Megaxel]

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

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
 
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 :

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

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 ?!!??

[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à?

[koseta]

runtime

[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?

[Xo]

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 ...

[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.