Fichier text

cloudlouda
Messages postés
13
Date d'inscription
samedi 3 avril 2010
Statut
Membre
Dernière intervention
8 juin 2010
- 3 juin 2010 à 20:04
cleecky
Messages postés
49
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
30 mars 2011
- 16 juin 2010 à 09:49
salut
j'ai une fichier text qui contient un ensemle des adresse ip.ET 2 combobox C1 et C2.Apres faire un test de ping des @ip deja continue dans le fichier text,C1 contient les @ ip connecté et C2 contient les @ non connecté.
Mon question est comment faire pour ajouter automatiquement l'etat de chaque @ ip sur le fichier text. c'est à dire devant chaque ligne qui contient une @ connecté il s'ajoute 'ok',si l'@ est non connecté il s'ajoute 'non'.
merci.

4 réponses

f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
37
3 juin 2010 à 23:00
t'as écris avec ton pied en tournant le dos à l'écran ou quoi ?

________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?
0
cloudlouda
Messages postés
13
Date d'inscription
samedi 3 avril 2010
Statut
Membre
Dernière intervention
8 juin 2010

6 juin 2010 à 18:23
salut
je veut ajouter a ce code pour qu'il afiche l'etat de connexion de chaque @ ip dans le fichier text.merci

procedure TForm1.BitBtn7Click(Sender: TObject);
Var
F: TextFile;
Stg:String;
begin
AssignFile(F,'C:\info\TEST.txt');
Reset(F);
repeat
Readln(F,Stg);
if Ping (Stg) then
begin
if(c1.Items.IndexOf(Stg)) <0
then

c1.Items.Add(Stg)

end else
begin
if(c2.Items.IndexOf(Stg) )<0 then
c2.Items.Add(Stg);
end;
until EOF(F);
end;
0
cloudlouda
Messages postés
13
Date d'inscription
samedi 3 avril 2010
Statut
Membre
Dernière intervention
8 juin 2010

8 juin 2010 à 00:10
salut
j'attend vos reponse s'il vous plait.
0
cleecky
Messages postés
49
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
30 mars 2011

16 juin 2010 à 09:49
Bonjour!
0