Rad sa datotekama-Podela datoteke na segmente?

Odgovori Nova tema

3 odgovora
4.263 pregleda

Rad sa datotekama-Podela datoteke na segmente? 26.03.2006. u 10:56 · pre 250 meseci #1

Pozdrav ljudi, zanima me kako da odradim da kada se ucitava iz nekog FileListBox-a neki fajl (neka datoteka tipa *.vsf koju ja napravim) u kome je smesten neki tekst u obliku:
-----------------
bla, bla, bla
bla, bla, bla

Drugi deo

bla, bla, bla
bla, bla, bla

Treci deo

bla, bla, bla
bla, bla, bla
----------------
Tekst koji se nalazi u njoj bude redom dodeljen Memo kompanentama tako sto Memo1 dobije deo teksta koji se nalazi ispred reda u kome je "Drugi deo", Memo2 dobije deo teksta izmedju redova "Drugi deo" i "Treci deo" i u Memo3 se ucita preostali tekst koji je iza reda "Treci deo"

Nadam se da sam bio razumljiv...

---------------------
Pozdrav Vlada
---------------------

Potpis

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Re: Rad sa datotekama-Podela datoteke na segmente? 26.03.2006. u 11:28 · pre 250 meseci #2

Potrazi malo na netu i na ovom forumu rad sa *.ini fajlovima posto to sto si opisao predstavlja upravo to ( nije bitno sto tebi nije extenzija *.ini

). Evo ti na ovoj adresi nesto vise o tome: http://delphi.about.com/od/objectpascalide/l/aa120401a.htm a posebno obrati paznju na nedostatke i ogranicenja koja su pri dnu opisana.

Drugi nacin je da citas red po red tu datoteku i ako naidjes na red recimo "Memo1" da od te linije u Memo1 ubacujes sve procitane linije dok ne naletis na liniju "Memo2" ili sl.

Potpis

ex Strog

http://www.zeussoftware.rs

Re: Rad sa datotekama-Podela datoteke na segmente? 27.03.2006. u 10:37 · pre 250 meseci #3

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Lista:TStringList;
    i,j:integer;
begin
  Lista:=TStringList.Create;
  Lista.LoadFromFile('c:\datoteka.vsf');
  j:=1;
  Memo1.Lines.Clear;
  Memo2.Lines.Clear;
  Memo3.Lines.Clear;
  for i:=0 to Lista.Count-1 do
  begin
    if Lista[i]='Drugi deo' then
      j:=2;
    if Lista[i]='Treci deo' then
      j:=3;
    if (Lista[i]<>'Prvi deo') and (Lista[i]<>'Drugi deo') and (Lista[i]<>'Treci deo') then
      TMemo(FindComponent('Memo'+IntToStr(j))).Lines.Append(Lista[i]);
  end;
  Lista.Free
end;

Pozdrav

Re: Rad sa datotekama-Podela datoteke na segmente? 28.03.2006. u 17:39 · pre 250 meseci #4

Hvala, resio sam problem...

Potpis

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme