txt den listview verileri alma

[Serhat]

Selam...

Bir txt verileri listview sorunsuz olarak listeliyorum, anacak şu noktada takıldım. (,) varsa yandaki kolana (;) bir alt satırdaki koda devam edecek...

Örnek:
Ahmet,bugün,hava,çok,güzel;
kemal,bugün,hava,çok,kötü;

Kod: Tümünü seç

procedure TForm1.AraBulClick(Sender: TObject);
var
  Txtveri: TStringList;
  I: Integer;
begin
  ListView1.Clear;
  Txtveri := TStringList.Create;
  try
    with TOpenDialog.Create(nil) do
    begin
      Filter := 'TXT(*.txt)|*.txt';
      FilterIndex := 1;
      if Execute then
      begin
        Txtveri.LoadFromFile(Filename);
        for I := 0 to Txtveri.Count - 1 do
        begin
          with ListView1.Items.Add do
          begin
            Caption := IntToStr(ListView1.Items.Count);
            SubItems.Add(Txtveri[I]);
          end;
        end;
      end;
    end;
  finally
    Txtveri.Free;
  end;
end;

[SimaWB]

TStringList'in Delimiter ve DelimitedText özellikleri çok işinize yarar.
Örnek:

Kod: Tümünü seç

var
  SL1, SL2: TStringList;
  i: integer;
begin
  SL1 := TStringList.Create;
  SL2 := TStringList.Create;
  try
    SL1.Delimiter := ';';
    SL1.DelimitedText := 'Ahmet,bugün,hava,çok,güzel;kemal,bugün,hava,çok,kötü';
    SL2.Delimiter := ',';
    for i := 0 to SL1.Count-1 do
    begin
      SL2.DelimitedText := SL1.Strings[i];
      
      //Burada SL2.Count ve SL2.Strings[] ile istediğin değerleri okuyabilirsin
      
    end;
  finally
    SL2.Free;
    SL1.Free;
  end;
end;

[Serhat]

Teşekkür ederim hocam, Fakat şu noktada takıldım virgül ile ayrılmış yazıyı yan kolana, noktalı virgül var ise bir alt satıra ekleyecek...

Kod: Tümünü seç

var
  SL1, SL2: TStringList;
  i: integer;
begin
  SL1 := TStringList.Create;
  SL2 := TStringList.Create;
  try
    SL1.Delimiter := ';';
    SL1.DelimitedText := 'Ahmet,bugün,hava,çok,güzel;kemal,bugün,hava,çok,kötü';
    SL2.Delimiter := ',';
    for i := 0 to SL1.Count - 1 do
    begin
      SL2.DelimitedText := SL1.Strings[i];

      with ListView1.Items.Add do
      begin
        Caption := IntToStr(ListView1.Items.Count);
        SubItems.Add(SL1.DelimitedText);
        SubItems.Add(SL2.Strings[i]);
      end;
      // Burada SL2.Count ve SL2.Strings[] ile istediğin değerleri okuyabilirsin
    end;
  finally
    SL2.Free;
    SL1.Free;
  end;
end;

[mrmarman]

Kodu anlamak için zahmet etmeyip, ezbere kullandığını itiraf etmenin başka bir yolu da bu oldu.

- Delimiter dediğimiz şey böleni/ayracı ifade ediyor. Kodda ne kullanılmış bunu gözlemleyin sonra da ilgili yeri değiştirin.

[SimaWB]

Muharrem Hocam her zamanki gibi çok hızlısın. Ben de sizinkine benzer birşeyler yazacaktım ki derdime derman olmuşsunuz
Ekleyecek başka birşey yok!

[Serhat]

Yorumlar için teşekkür ederim, anlaya bilseydim zaten yardım istemezdim saygılarımla...

[mrmarman]

Tenkit olarak değerlendirdiğin bu cevaplar, sana soru sorarken kod üzerinde iki kere düşünmeni sağlayacaktır.
Farkında olmadan senin eğitimine katkıdır... Saygılar bizden.

[Serhat]

Sayın arkadaşlar yapamadım rica etsem yardımcı olur musunuz...

[dogan]

Dostum ne yaptın çözebildin mi???

[Serhat]

Dostum ne yaptın çözebildin mi???

Sonunda çözdüm

[dogan]

Sevindim kodları paylaşır mısınız...

[Serhat]

Sevindim kodları paylaşır mısınız...

Dostum azmedeceksin taşı deleceksin, uğraş...

[dogan]

Sevindim kodları paylaşır mısınız...

Dostum azmedeceksin taşı deleceksin, uğraş...

Ayıp oluyor, biliyorsan yardımcı olursun, formun amacı yardımlaşma değil mi arkadaşım...