Probleme bizzard

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
- 20 mars 2005 à 12:24
bonjour voila mon probleme jai un ficher texte et je prend tout les
ligne 9 alor dans la tehorie sa marche mais dans la partique sa merde
au bou d'un moment sans prendre nimporte kelle ligne et jai vefir le
ficher texte tout les ligne sont bonne donc si vous connaiser une idee
pour reprendre sa



127.0.0.1 ' il fo reprendre les ip

-----------

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 'et celle la aussi et toute celle qui suive

-------------

DIR: /

DELETE STATS: deletable

RUNNING OS: Windows_NT

RESUMABLE: Yes

FXP STATS: non-FXPable

SEND SPEED: 5119,20 bytes/s





alor voila le code ke moi javai fait



Private Sub Image1_Click()

CommonDialog1.DialogTitle = "Ouvrire"

CommonDialog1.Flags = cdlOFNFileMustExist + cdlOFNHelpButton

CommonDialog1.Filter = "Fichier log (*.log)|*.log"

CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then 'annuler

Dim host As String

fin = nb_Ligne(CommonDialog1.FileName)



For n = 1 To fin

Open CommonDialog1.FileName For Input As #1

For i = 1 To n

Input #1, host

Next i

Close

Dim Valide As Boolean

Valide = True

session = InternetOpen("Compagnion", INTERNET_OPEN_TYPE_DIRECT, "", "", INTERNET_FLAG_NO_CACHE_WRITE)

If session <> 0 Then

server = InternetConnect(session, host, "21",
"anonymous", "user@server.com", INTERNET_SERVICE_FTP,
INTERNET_FLAG_EXISTING_CONNECT, &H0)

If server = 0 Then

Set itmx = ListView1.ListItems.Add(, , "bad")

itmx.SubItems(1) = host

InternetCloseHandle session



Else

Set itmx = ListView1.ListItems.Add(, , "Done")

itmx.SubItems(1) = host

End If

End If

n = n + 9

DoEvents

Next n

End If

End Sub




--==Papi Psycho==--
Afficher la suite 

2 réponses

Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
1
0
Merci
un conseil utilise
open fichier for input as #1
while not eof(1)
line input #1,Host
numligne=numligne+1 'pour calaculer le nombre de ligne
wend
close
line input lit le fichier ligne par ligne
cette syntax veut dire :tant que la fin de fichier n'est atteinte lire ligne par ligne
voila je pense que c'est ce qu'il faut
merci
Life is short...Learn more
Copy Rights <> Rights to Copy
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
21
0
Merci
- à cause de la boucle For, si tu dois lire toutes les 9 lignes, il faudrait faire
n + 8

- ouvrir le fichier à chaque fois n'est pas très bon ce qui t'oblige à mettre le nombre de Lignes en table

Open CommonDialog1.FileName For Input As #1
While Not Eof(1)
Input #1, host

' ton traitement
For i = 1 To 8
Input #1, host
Next i
Wend
Close #1

Daniel