Ouverture d'un gros fichier .txt et l'afficher rapidement sur une 'form'

Question

Bonjour &#224; tous,
je souhaite ouvrir un fichier .txt (qui fait environ 18Mo) et afficher son contenu &#224; l'&#233;cran (avec une scrollbar verticale !), le tout sur ma 'form' principale et en un temps record !!!!!!
J'ai essay&#233; le TextBox avec un truc du style:

open fichier for input as #1
text1.text=""
do while not eof(1)
   doevents
   line input #1,data
   text1.text=text1.text+data+chr$(13)+chr$(10)
loop
close #1

Mais c'est vraiment trop long, d'autant plus que visiblement, le TextBox a un nombre limit&#233; de ligne.

Ensuite, j'ai ouvert un fichier WORD:

Dim wordApp As Word.Application
Set wordApp = CreateObject("Word.application")
wordApp.Visible = True


wordApp.Documents.Open ("c:\fichier.txt")

Ca me convient, c'est assez rapide, mais le fichier s'ouvre sur une autre 'form'.

Comment faire pour qu'il apparaisse sur ma 'form' principale ?
Existe-t-il un composant WORD (ou equivalent) que je pourrais mattre sur ma 'form' ?

Merci de votre aide.

S&#233;bastien

olixelle · Answer

un premier indice est que ta boucle lit ligne à ligne, ce qui peut etre un peu long... esssaye de le lire en binaire en précisant une taille assez importante sur les paquets... t'auras moins de répétition et ca devrait etre plius rapide

cs_rt15 · Answer

Le problème peut aussi venir de l'affichage.

Il ne faut pas que la form soit redessinée à chaque ajout de ligne.

Utilise la propriété autoredraw de la form (Je suis pas sûr que ça marche).

Supprime aussi le DoEvents si tu peux, pour voir si c'est plus rapide...

Ou fait ta chaîne avant de l'afficher.

open fichier for input as #1
chaîne=""
do while not eof(1)
   doevents
   line input #1,data
   chaîne=chaîne+data+chr$(13)+chr$(10)
loop
close #1
text1.text=chaîne

Attention, les chaînes ont une taille maximale.

crenaud76 · Answer

essaye cela ...

open fichier for input as #1
text1.text=input(lof(1),1)
close #1

cs_CanisLupus · Answer

Salut, la m&#233;thode de crenaurd76 est de loin la plus rapide.
J'ajouterai simplement qu'il faut que tu la propri&#233;t&#233; multiline de la textbox soit tru et que la propri&#233;t&#233; scrollbar soit &#224; both.
Ou alors tu utilises le composant "Microsoft Rich textbox" avec la propri&#233;t&#233; scrollbars = rtfboth.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_rt15 · Answer

Pas à dire, z'en save des choses les admins !

cs_Warning · Answer

As tu essay&#233;s avec un richtextbox ?


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

crenaud76 · Answer

Avec un tichtextbox on ferait juste RichTextBox1.LoadFile("Fichier.txt"), mais suis pas sûr que cela soit plus rapide qu'avec la textbox toute simple. Autre truc pour accélérer le code ... masquer la textbox avant le remplissage et l'afficher juste après.

With Text1
  .Visible = False
  Open "fichier.text For Input As #1
  .Text=Input(Lof(1),1)
  .Visible = True
  Close #1
End With

Pas sûr que cela fasse gagner bcp, mais dans l'absolu, on y gagne sur un très gros fichier.

Christophe

Ouverture d'un gros fichier .txt et l'afficher rapidement sur une 'form'

7 réponses

Discussions similaires