Extraction d'un fichier log

[GBR]

Bonjour à tous

Je dois extraire par macros d'un fichier avec extension log les dates heure d'ouverture d'un programme en réseau. Ceci pour comptabiliser le nombre d'ouverture du programme réseau inscrit dans ce fichier .log

Qu'elle type de macros doit je utiliser pour faire simple

Merci pour vos réponses...🙂

 

[Kobaya]

Re : Extraction d'un fichier log

salut GBR,

un fichier log, donc de fortes chances qu'il puisse fair eplus de 65536 lignes, donc impossible à charger dans une feuille excel.
il faut ouvrir le fichier avec l'instruction Open, commme ceci :

Sub ImportFichierTexte()
    Dim intL        As Integer
    Dim lngLigne    As Long
    Dim strLog      As String
    
    lngLigne = 1
    
    ' ouvrir un canal de lecture
    lngl = FreeFile()
    
    ' ouvrir le fichier en lecture
    Open "C:\Documents\monfichier.log" For Input As l
    Do Until EOF(l)
        ' importation des lignes du log
        Input #lngl, strLog
        Cells(lngLigne, 1) = strLog
    Loop
    
    ' fermer le canal
    Close #lngl
    
    ' à toi de traiter les données importer
End Sub

 

[GBR]

Re : Extraction d'un fichier log

Bravo !!! et un merci infini.............🙂

 

[Hystic]

Re : Extraction d'un fichier log

Merci pour ce bout de code ;-)
Est il possible d'ouvrir les fichiers logs dans une plage de dates données ?
Car j'ai beaucoup de logs à annalyser et je ne veux pas tous les ouvrir
Merci d'avance

salut GBR,

un fichier log, donc de fortes chances qu'il puisse fair eplus de 65536 lignes, donc impossible à charger dans une feuille excel.
il faut ouvrir le fichier avec l'instruction Open, commme ceci :

Sub ImportFichierTexte()
    Dim intL        As Integer
    Dim lngLigne    As Long
    Dim strLog      As String
    
    lngLigne = 1
    
    ' ouvrir un canal de lecture
    lngl = FreeFile()
    
    ' ouvrir le fichier en lecture
    Open "C:\Documents\monfichier.log" For Input As l
    Do Until EOF(l)
        ' importation des lignes du log
        Input #lngl, strLog
        Cells(lngLigne, 1) = strLog
    Loop
    
    ' fermer le canal
    Close #lngl
    
    ' à toi de traiter les données importer
End Sub