txt dosya içeriği

[calvan]

s.a

01;4136;13;8692180003111;8 şeklinde satırladan oluşan bir txt dosyanın içeriğini ; e göre ayıormak istiyorum ancak metodu oluşturamadım, yardımcı olabilecek arkadaşlara müteşekkirim

Not : sayıların uzunluğu sabir değil, ; baz alınarak parçalanmalı

tşk

[CiTiZEN]

Pos şeklinde aratarak birçok örnek bulabilirsiniz.

[CiTiZEN]

hatta rastgele buldum bi link buyrun:
http://delphiturkiye.com/forum/viewtopi ... &hilit=pos

[Battosai]

var
text,subtext:string;
n:integer;
begin
text:='01;4136;13;8692180003111;8'+';';
while text<>'' do
begin
n:=pos(';',text)-1;
subtext:=copy(trim(text),1,n);
text:=copy(text,n+2,length(text));
memo1.Lines.Add(subtext);
end;
end;

Bu kod işini görür...aşağıdaki yöntemde güzel...

[unicorn64]

Kod: Tümünü seç

uses idglobal;

var 
satir,deger:string;
begin
  //while
  // satir değişkenine dosyadan değer okunur..
     while satir<>'' do
     begin
        deger:=fetch(satir,';');
        memo1.lines.add(deger);
     end;

  // end; 
end;

[Z.D.]

bi çözümde benden;

Kod: Tümünü seç

procedure LoadDelimiterTextsA(FileNameA: string);
var
  Sl, Dl: TStringList;
  I, J:   Integer;
begin
  if FileExists(FileNameA) then
  begin
    Sl := TStringList.Create;
    Dl := TStringList.Create;
    try
      Sl.LoadFromFile(FileNameA);
      Dl.StrictDelimiter := True;
      Dl.Delimiter       := ';';

      for I := 0 to Sl.Count - 1 do
      begin
        Dl.DelimitedText := SL[I];
        for J := 0 to Dl.Count - 1 do
          ShowMessage(Format('Satır %d : %s', [I, DL[J]]));
      end;

    finally
      Sl.Free;
      Dl.Free;
    end;
  end
  else begin
    FileNameA := Format('Dosya bulunamıyor !!!' + #13#10#13#10 + '"%s"', [FileNameA]);
    MessageDlg(FileNameA, mtWarning, [mbOK], 0);
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadDelimiterTextsA('C:\TestDelimiter.txt');
end;

TStringList'in delimiter özelliğide kullanılabilir.

[sr1111]

sa.
benimde buna benzer bir sorunum var yardimci olabilirmsiniz arkadadaslar
txt dosya icerigim 2 li ve 3 lu sutun aralari tab ile ayrilmis halde ornegin.
asagidaki kelimeler arasinda tab var. 10 - 20 bin kelime var 20 mb dosya.

elma armut meyve
kedi kopek hayvan
hamsi balık
cevdet ali insan
gül çiçek

istegim su replace ile
1. kelime ile 2. kelime (elma ile armut degisecek)
1. kelime ile 3. kelime (kedi ile hayvan degisecek)
2. kelime ile 3. kelime yi (ali ile insan degisecek)

degistirecek code u yazmak. yardimci olursaniz sevinirim.

[Battosai]

sr1111 unicorn64 ün verdiği kodu dene...

[sr1111]

sr1111 unicorn64 ün verdiği kodu dene...

unicorn64 un kodunu nasil uygulayabilirim yapamadim.

istegim 3 buton olacak tiklayinca;
1. butonda 1. ile 2. kelime
2.butonda 1. ile 3. kelime
3.butonda 2. ile 3. kelime degisecek.