TXT DOSYASINDAKİ VERİLERİ ANALİZ ETMEK

[TURGUT]

212.252.122.134:110 (TCP)POP3
195.175.37.14 inquire _ldap._tcp.dc._msdcs.DOMAIN.1
195.175.37.14 inquire _ldap._tcp.dc._msdcs.DOMAIN.1
CMV->STAT.status=80208100
212.252.122.134:110 (TCP) close connection
207.68.177.125:80 (TCP) close connection
SNR Margin: 41.0 dB, Loop attn.: 16.5 dB. Uncorr_blocks=69.
BU SATIRLARDAN SADECE İP NUMARALARINI OKUTMAK İSTİYORUM BUNUN İÇİN

b,i,ip1:string;
.
.
.


if inttostr(1)=(copy(b,1,1)) then
begin
i:=inttostr(pos(' ',b) or pos(':',b));
ip1:=copy (b,1,strtoint(i));
end;
if inttostr(2)=copy (b,1,1) then
begin
i:=inttostr(pos(' ',b) or pos(':',b));
ip1:=copy (b,1,strtoint(i));
end;
.
.
.
.
.bu kodları kullandım ancak istediğim sonucu alamadım.
195.175.37.14
207.68.177.125:80 (TCP) close c bu şekil sonuç üretiyo acaba nerde yanlış yapıyorum yada başka bi yoldan nasıl yapabilirim

[ertug]

Yeni bir uygulama oluşturunuz. Formun içerisine iki adet TMemo ve bir adet TButton koyunuz. Button1'e çift tıklayarak aşağıdaki kodu yapıştırınız.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  d, ix: Integer;
  strTemp: String;
begin
  d := 0;
  while d < Memo1.Lines.Count do
  begin
    if (Length(Memo1.Lines[d]) > 0) and (Memo1.Lines[d][1] in ['0'..'9']) then
    begin
      strTemp := Copy(Memo1.Lines[d], 1, 15); //IPv4 en fazla 15 karakter olabilir
      ix := LastDelimiter(' :', strTemp); //sonuncu ' ' veya ':' karakter indeksi
      while ix > 0 do //' ' veya ':' kalmayana kadar sil
      begin
        Delete(strTemp, ix, 15);
        ix := LastDelimiter(' :', strTemp)
      end;
      Memo2.Lines.Add(strTemp);
    end;
    Inc(d);
  end;
end;

"Object Inspector" kullanarak Memo1'in "Lines" özelliğine aşağıdaki satırları yapıştırınız.

212.252.122.134:110 (TCP)POP3
195.175.37.14 inquire _ldap._tcp.dc._msdcs.DOMAIN.1
195.175.37.14 inquire _ldap._tcp.dc._msdcs.DOMAIN.1
CMV->STAT.status=80208100
212.252.122.134:110 (TCP) close connection
207.68.177.125:80 (TCP) close connection
SNR Margin: 41.0 dB, Loop attn.: 16.5 dB. Uncorr_blocks=69.

Yazılımı çalıştırınız. Düğmeye basınca Memo2'de IPler filtelenecektir.

Eğer IPler sadece 1 kez eklensin istiyorsanız:

Kod: Tümünü seç

      if Memo2.Lines.IndexOf(strTemp) < 0 then
        Memo2.Lines.Add(strTemp);

olarak değiştiriniz. Yalnız bu işlem IP sayısı çoksa yavaş olabilir.

Son olarak genel bir hatırlatma: IntToStr(1) yerine '1' kullanınız.

Kolay gelsin.

[husonet]

Merhaba öncelikle aramıza hoşgeldiniz.

Forum kurallarını okuyalım ve uyalım Başlığı büyük harflerle yazmak kurallarımıza aykırıdır.


Kolay Gelsin...