Recupere des info dans une ficher log [Résolu]

Messages postés
45
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
1 janvier 2008
- - Dernière réponse : Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
- 22 mars 2005 à 21:42
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==--
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
21
3
Merci
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écupè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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 202 internautes nous ont dit merci ce mois-ci