FORUM WINDEV

Bonjour,

Quelqu'un pourrait me dire pourquoi les boucle sont lentes ?

si je fait :

Code: Tout sélectionner

nIdFic est un entier
sMaChaîne est une chaîne

nIdFic = fOuvre("fichier de plusieurs méga", FOLectureEcriture)
SI nIdFic=-1 ALORS
    Erreur("L'ouverture du fichier a échoué", ErreurInfo())
SINON
    // Première ligne
    sMaChaîne = fLitLigne(nIdFic)
    TANTQUE sMaChaîne<>EOT
        // Ligne suivante
        sMaChaîne = fLitLigne(nIdFic)
    FIN

    // Fermeture du fichier
    fFerme(nIdFic)
FIN



La boucle est lente comme toutes les autres boucles dans mes programmes.


Merci pour vos sugestions


Vincent

Donne plus de précision.
Quelle est la taille de ton fichier que tu lis et combien de temps cela prends ?
Ton fichier est bien constitué de ligne qui se finissent pas des Retour Chariot ? sinon si ton fichier n'est pas énorme, tu peux utiliser :

Code: Tout sélectionner

i_IdFic      est un entier
c_Buffer   est une chaîne
i_Indice   est un entier

i_HeureDebut   = HeureVersEntier(HeureSys())
i_IdFic = fOuvre("Test.txt", foLectureEcriture)
SI i_IdFic=-1 ALORS
    Erreur("L'ouverture du fichier a échoué", ErreurInfo())
SINON
    i_Indice   = 0
    c_Buffer    = fLit(i_IdFic,fTaille("Test.txt"))
    fFerme(i_IdFic)
FIN