recupere des info dans une ficher logRésolu

Question

bon jour voila mon probleme





je veux recuperer des info dans un ficher log mais les ligne de se fichier peu changer plus ou moin de ligne 





voila un bou du ficher





127.0.0.1


-----------


DIR:           /_vti_pvt/


DELETE STATS:  deletable


RUNNING OS:    Windows_NT


RESUMABLE:     Yes


FXP STATS:     non-FXPable


SEND SPEED:    5138,47 bytes/s





127.0.0.2


-------------


DIR:           /


DELETE STATS:  deletable


RUNNING OS:    Windows_NT


RESUMABLE:     Yes


FXP STATS:     non-FXPable


SEND SPEED:    5119,20 bytes/s





voila ma question: Comment recuperer les ip





meci des reponse

--==Papi Psycho==--

Gobillot · Accepted Answer

Dim Host() As String
Dim temp   As String
Dim i          As Integer
Dim n         As Integer

Open FileName For Input As #1
While Not Eof(1)
    ' r&#233;cup&#232;re la Ligne avec ip
    n = n + 1
    Redim Preserve Host(n)
    Line Input #1, Host(n)

    ' ignore les huit suivantes
    For i = 1 To 8: Line Input #1, temp: Next
Wend
Close #1

Daniel

Recupere des info dans une ficher log

1 réponse

Discussions similaires