fichier text

Question

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.

f0xi · Answer

t'as écris avec ton pied en tournant le dos à l'écran ou quoi ?

________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?

cloudlouda · Answer

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;

cloudlouda · Answer

salut
j'attend vos reponse s'il vous plait.

cleecky · Answer

Bonjour!

Fichier text

4 réponses

Votre réponse

Discussions similaires