basit tablolama ile ilgili...

[webaytek]

tablolama ile ilgili en basit bilgileri bulabileceğim bi kaynak war mı mesela daha önce de belirttiğim gibi
bir ip scanner yaptım (diyelim) bu sonuçları tablolara nasıl aktarabilirim (nbtstat'la ilgili konuda benzer bir soru soruluyor) (viewtopic.php?t=3907&postdays=0&postorder=asc&start=30)

nbtstat -n > c:\asd.txt yazarsan c:\asd.txt tarzı bir komutun bir tabloya nasıl aktarılacağı gibi şeyleri öğrenmek istiyorum da... (şimdilik bu kadar ileride belki metni parçalara ayırarak kolon ve sütun olarak tablolama ile ilgili bilgi de lazım olacak tabii ki )

Yardımlarınız için şimdiden teşekkür ederim

[husonet]

txt Olarak kayıt yaptığında TXT dosyasını aç ve incele kaçıncı satırda istediğin bilgiler görüntüleniyor istediğin satırdan itibaren değişkenler aracılığı ile tablolara aktar.

Kolay Gelsin...

[nilnur]

bağlanan bilgisayar olmayınca ilgili dosyaya :

Kod: Tümünü seç

There are no entries in the list.

değerini yazıyor. bu durumda .txt dosyayı parçalamak pek işe yarar görünmüyor...

başka bir yolu var mı bu değerleri öğrenmenin?

[husonet]

Parçalamaktan kastınız nedir? Elinizde standart çıktı alabileceğiniz txt dosyası var bunun içinden istediğiniz gibi verileri okuyup çekebilirsiniz. Önemli olan Algoritmanız olacaktır.

[husonet]

Kimden: webaytek
Kime: husonet
Tarih: Pts Tem 26, 2004 11:08 am
Konu: basit tablolama ile ilgili...
forumda cavap yazamıyorum da kusura bakma Database hatası veriyor admine ilettim

Önemli olan Algoritmanız olacaktır...

tabii haklısın da ben programcı değilim algoritmadan falan anlamam
keşke anlasaydım ayrı dava
biz bir txt dosyasından tabloya aktarma yapabilmemiz için ne yapmamız gerekli (parçalamayı falan unutalım) ben cahilcene sordum siz alternatif önerin ( )

Arkadaşım öncelikle probleminiz olduğu için özel mesajınıza cevap yazdım normalde özel mesaj'a cevap vermiyoruz. Çok basit bir kod örneği oluşturdum incelerseniz olayı çözersiniz

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var

  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F);
    Readln(F);
    Readln(F);
    Readln(F);
    Readln(F);
    Readln(F);
    Readln(F);
    Readln(F);
    Readln(F, S);
    while  Trim(Copy(s, 1, 19)) <> '..__MSBROWSE__.' do
    Begin
            Memo1.Lines.Add(Trim(S));
            Readln(F, S);
    End;
    CloseFile(F);
  end;

end;

Kolay Gelsin...

[webaytek]

o dediğin terbiyesizliği 2. kere yapıyorum kusura bakmayın hepinizden özür dilerim bu arada kodu çalıştırdım program kitlendi
eee siz bu kodu hangi komut sonucu için yazdınız (nbtstat) içinse demekki bende bir hata war

[husonet]

Evet NBTSTAT için yazmıştım Forum'a bir adet memo bileşeni bir adet te OpenDialog bileşeni ekleyeceksin kod'u test ettim çalışıyor.

Kolay Gelsin...

[webaytek]

ben de ettim bende de çalışıyor ama ne oluyor sırayla
düğmeye basıyorum
yaklaşık 50salise kadar işlem yapıyor
memo sıfırlanıyor
program kitleniyor
sistem windows 2000 (belki sorun burada daha doğrusu msdosun kaydettiği dosyayla ilgili (yani satır bakımından))

[husonet]

2000 kullanmadığım için yorum yapamıyacam

Kolay Gelsin...