Optimisation lecture txtRésolu

Question

Salut tlm, 



Je dois bosser sur des fichiers txt de + de 5 Mo (c'est une database en txt, je la passe dans un autre format)



Malheureusement je ne connais pas d'autres methodes que la lecture ligne par ligne, comme cet exemple 



Private Function lire(fichier As String)



On Error Resume Next



Dim ligne As String



Dim text as string



Open fichier For Input As #1



While Not EOF(1)



    Input #1, ligne



    text = text & vbCrLf & ligne



Wend



Close #1



lire = text



End Function



Mon probleme est que ce code met plusieurs secondes a lire un fichier
txt de pres de 200 Ko. Alors pour les fichier de 5 Mo je ne vous en
parle pas.



Quelqu'un connait un moyen de stocker le contenu d'un fichier txt dans
une variable en un seul jet ? Et travailler sur de telle variables (5
Mo) n'est-il pas trop lourd  ?

 
Merci :)


ZeGuizmo

Gobillot · Accepted Answer

Open fichier For Input As #1

        text = Input(LOF(1), #1)

        Close #1


Daniel

cs_zeguizmo · Answer

Nickel, comme d'hab, c'etait con mais il fallait le savoir, heureusement qu'il y a toujours une bonne ame.



merci bcp.



++

ZeGuizmo

Optimisation lecture txt

2 réponses

Discussions similaires