Récupération de données depuis un fichier texte

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Récupération de données depuis un fichier texte

vylkor

Bonsoir,

On m'a demandé de créer un fichier Excel a mon nouveau boulot, mais j'ai un doute sur comment construire mon fichier pour faire au plus simple.

Le contexte:
J'ai une machine qui me crée des rapports dans un dossier. A chaque cycle, j'ai 4 rapports crée, deux en .txt et deux en .csv. (noms sous la forme RAPP1111, REG1111, COURBE1111, PT1111).
Le dossier (sur le réseau) contient a ce jours 10 600 fichiers et fait 8go, rien que ça.

La demande:
Je dois récupérer les lignes 3 et 4 de tous les fichiers RAPPXXXX qui ont été crées sur les 7 derniers jours pour récupérer les heures de début et de fin de cycles et faire un chronographe avec

Le problème:
Pour l'instant je pensais faire une boucle pour mettre dans un tableau dynamique tous les rapports dont la date de création correspond a l'intervalle demandée et le nom commence par "RAPP", mais face au nombre juste hallucinant de fichiers dans ce dossier, j'ai peur de me retrouver avec quellque chose d'extrêment lent.
Y a t il un moyen que lorsque je commence ma boucle les fichiers soient présentés par ordre chronologique, pour pouvoir juste selectionner les 200 derniers fichiers crées?

Merci a vous, et j'espère avoir été assez clair dans l'explication.

Publicité

caps lock

Je n'ai pas le temps de faire ton code, mais une recherche rapide sur google te donnerai des pistes avec "vba sort files in folder by date"
Avec "Scripting.FileSystemObject" et la propriété "DateCreated" par exemple.

vylkor

Salut!

Merci pour la piste, j'ai eu le temps de creuser ça hier et j'ai pu sortir un petit bout de code.
Alors, le temps de calcul étant plus court que prévu (a peine 1 minute), finalement il y a pas de filtre au lancement de la macro, ce qui me donne:

Code :

Sub GetFileNames()
Dim xRow As Long
Dim xDirectory$, xFname$, xRappSearch$, xTxtRapp$, xTxtEnt$, xRappNumber$
Dim xDate As Date
Dim cell As Range, fso As Object
Dim Extract As String
'Nettoyate de la feuille
Sheets("Sheet3" ).Cells.Clear
'On défini le chemin d'accès
xDirectory$ = "\\laroute\"
'On défini le type de nom des fichers (*=chaine de caractère libre)
xRappSearch$ = "rapp*.txt"
'On crée la liste de tous les fichiers dont le nom correspond
xFname$ = Dir(xDirectory$ & xRappSearch$, 7)
Do While xFname$ <> ""
Sheets("Sheet3" ).Cells(1, 1).Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
Loop
'Lancement de la boucle de recherche
'Set fso = CreateObject("Scripting.FileSystemObject" )
On Error Resume Next
For Each cell In Range(Cells(1, 1), Cells(1, 1).Offset(xRow))
'On cherche la date de création du rapport sur windows
'cell.Offset(0, 1).Value = fso.getfile(xDirectory$ & cell.Value2).DateCreated
'On recherche les dates et heures de début et fin de cycles dans les fichiers rapp*.txt
xRapp$ = cell.Offset(0, 0)
xTxtRapp$ = xDirectory$ & xRapp$
Open xTxtRapp$ For Input Access Read As #1
If IsEmpty(cell.Offset(0, 0)) Then Extract = ""
For i = 1 To 3
Line Input #1, Extract
Next i
xDate = Format(Right(Replace(Extract, ".", "/" ), 19), "dd/mm/yyyy hh:mm:ss" )
cell.Offset(0, 1).Value = xDate
Line Input #1, Extract
xDate = Format(Right(Replace(Extract, ".", "/" ), 19), "dd/mm/yyyy hh:mm:ss" )
cell.Offset(0, 2).Value = xDate
Close #1
'On recherche les noms de programmes dans les fichiers ent*.txt correspondant au rapp*.txt
xRappNumber$ = Right(xRapp$, Len(xRapp$) - 4)
xRappNumber$ = Left(xRappNumber$, Len(xRappNumber$) - 4)
xTxtEnt$ = xDirectory$ & "ENT" & xRappNumber$ & ".txt"
If IsEmpty(cell.Offset(0, 0)) Then xTxtEnt$ = ""
Open xTxtEnt$ For Input Access Read As #1
For i = 1 To 2
Line Input #1, Extract
Next i
'On ne garde que le nom de programme (après le deuxième ":" )
Extract = Right(Extract, Len(Extract) - InStr(Extract, ":" ))
Extract = Right(Extract, Len(Extract) - InStr(Extract, ":" ))
cell.Offset(0, 3).Value = Extract
Close #1
Next cell
Set fso = Nothing
On Error GoTo 0
End Sub

Je vais chercher comment retrouver la présence des lignes "Test Conforme" ou "Test Non Conforme" au milieu des fichiers ENT0000.txt à une position aléatoire maintenant, je vais googler ça, mais si vous avez des pistes je suis preneur.

Merci!

vylkor

Je me répond a moi même, mais si qqun d'autre en a besoin un jours:

Code :

If Not IsEmpty(cell.Offset(0, 0).Value) Then
Do Until EOF(1)
Line Input #1, Extract
xTexte$ = xTexte$ & Extract
Loop
If InStr(xTexte$, "Test conforme" ) > 1 Or InStr(xTexte$, "Cycle conforme" ) > 1 Then cell.Offset(0, 4).Value = "Cycle OK" Else cell.Offset(0, 4).Value = "Cycle non ok"
End If

Rajouté au niveau de la ligne 52 du code précédent (+ la déclaration de variable).

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Récupération de données depuis un fichier texte

Sujets relatifs
Perte des données copiées lors du lancement d'une macro VBA/Excel	Lire un fichier txt ou équivalent avec vba
Exporter fichier .rtf en php et ouverture avec libreoffice writer	Trouver la plus grande clé qui ne contient pas de données communes
Récupérer et modifier les données	récupération d'une donnée dans stockage local en PHP
Ouvrir fichier .odb avec Python	Récolte de données sportive
Recuperation des données d'un fichier texte	aide recuperation donnees d'un fichier texte
Plus de sujets relatifs à : Récupération de données depuis un fichier texte

Page générée en 0.034 secondes