Discussion :

[dyolet]

Bonjour
J'ai besoin de retrouver les valeurs d1 tableau (environ 1000-2000 rows, 3-4 col) à partir d1 fichier txt.
Le souci est qu'il s'agit d1 appel frequent à ce fichier , pour en extraire que les x dernieres lignes, donc rebatir à chaque fois un tableau complet avec un split de chaque ligne , y a peut être plus rapide ?
La recherche est du meme gout , plutot que de balayer il faudrait que j'arrive à element N du tableau .
Vos avis ?

[paidge]

Bonjour,
Dans ta fonction d'extraction, tu peux peut-être passer en paramètre le nombre de lignes que tu souhaites récupérer en partant de la fin.
Je pense que tu l'as déjà lu, mais voici un cours qui devrait t'aider.

[paidge]

Par exemple :

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
18
19
20
21
22
23
24
25
Private Sub LireFichier(ligneDepart As Long)
    Dim oFSO As Scripting.FileSystemObject
    Dim oTxt As Scripting.TextStream
    Dim cpt As Long
 
    'Instanciation du FSO et ouverture du fichier
    Set oFSO = New Scripting.FileSystemObject
    Set oTxt = oFSO.OpenTextFile("D:\Texte\monfichier.txt", ForReading)
    cpt = 1
 
    ' Lecture du fichier
    With oTxt
        While Not .AtEndOfStream
            If cpt >= ligneDepart Then
                Debug.Print .ReadLine
            Else
                .SkipLine
            End If
            cpt = cpt + 1
        Wend
    End With
 
    ' Fermeture du fichier
    oTxt.Close
End Sub

[dyolet]

Par exemple :

While Not .AtEndOfStream
If cpt >= ligneDepart Then
Debug.Print .ReadLine
Else
....
End Sub[/code]

Ok , c'est bien ou j'en suis (FSO+ split pour decouper en champs)... mais on passe par un while donc si j'en suis au 1498eme pour ne récupérer que les 2 derniers je suis obligé de balayer tout depuis le debut .
Ce que je cherche un moyen "rapide" pour formater le fichier csv en qqchose de lisible à partir Xeme enregistrement

EDIT : je viens de trouver : .SkipLine // pour le lecture, ca va le faire je pense . // Bah non ! on ne peut pas faire un : .SkipLine 1400 ... donc toujours une boucle

[paidge]

A ma connaissance, ce que tu veux faire n'est pas possible. Je viens de chercher et je n'ai rien trouvé malheureusement. Si j'ai bien lu, si tu connais le nombre de caractères à sauter oui c'est possible...Mais là on pparle de lignes (A moins que chaque ligne ait un nombre de caractères fixes)

[dyolet]

oui c'est ca , et bien sur la taille varie sur chaque ligne (trop simple sinon )
Merci qd meme

[Invité]

Bonjour

Lorsque tu parles d'appel fréquent c'est plusieurs fois par jour ?

Si oui pourquoi ne pas charger ce fichier une fois par jour dans une table et ensuite interroger la table ?

Si c'est un fichier évolutif, tu peux le charger dans une table (un import), avec une table correctement indéxé pour éviter les doublons, donc seulement les dernières données seront ajoutées.

La lecture dans cette table sera beaucoup plus rapide.

Voilà une piste de réflexion.

Philippe

[dyolet]

merci Philippe pour ton idée, mais dans la cas précis cela ne convenait pas car c'est toutes les 2 secondes... sur timer donc
Le fichier n'est pas enorme 64Ko , et ca à l'air de tenir la route , avec un split dès que la bonne ligne est trouvée ...