Jak wczytać linię z TXT

0

Mam plik.txt, w którym są linie zaczynające się od np:
01.bkebe
02.coś

Jak wczytać do Edita linię nr 2? {hello}
Za pomoc {browar} --Pozdrawiam!

RockY

Delphi 5
[email protected]
GG: 3615957

0

Zobacz to: http://www.4programmers.net/f[...]tion=show&id=3972--Delphi 6
Pozdrowienia{hello} ,
Imperior

0

memo1.lines.loadfromfile('C:\OPEK\blebleble.blebleble');
edit1.text := memo1.lines[1]; //nie 2 wtedy by wczytalo linie nr 3!!! [0 = 1,1=2 itp.] :)

0

Nie zrozumieliśmy się :(

Nie chodzi o to, aby wczytać konkretną linię z pliku txt (tyle to ja jeszcze umię)
Chcę, aby wczytać linię zaczynającą się od 02, ale bez 02 (nie chodzi aby wczytać linię nr 2!).

Zawartość owego pliku jest następująca np:

05.Jacek
01.Agatka
04.Brygida
154.Gertruda--Pozdrawiam!

RockY

Delphi 5
[email protected]
GG: 3615957

0

prosze bardzo procedurka wczytuje do Edita linijke ze tekstem "02" na poczatku :-) bez "02" i kropki po "02"

var
TF: TextFile;
S: String;
begin
AssignFile(TF, 'C:\windows\pulpit\plik.txt');
Reset(TF);
while not Eof(TF) do
begin
Readln(TF, S);
if Copy(S,1,2) = '02' then
begin
Delete(S,1,3);
Edit1.Text := S;
end;
end;
CloseFile(TF);
end;

jezeli w pliku mamy cos takiego:

01.trallaala
02.bububububub
1000500100900.niewiadomoco

to w Edicie pojawi sie: "bububububub"---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Proponuje szukac kropki np. funkcja Pos a nie przyjmowac sztywno ze jest na pozycji 3. Program bedzie wtedy elastyczniejszy i latwiej bedzie go zmusic do znalezienia linijki w rodzaju:

154.Gertruda

Pozdrawiam, Pawel--Pawel

Delphi6

0

procedurka z mala poprawka:

var
TF: TextFile;
S, Szukany: String;
begin
AssignFile(TF, 'C:\windows\pulpit\plik.txt');
Reset(TF);
Szukany := '033';
while not Eof(TF) do
begin
Readln(TF, S);
if Copy(S,1,Length(Szukany)) = Szukany then
begin
Delete(S,1,Length(Szukany)+1);
Edit1.Text := S;
end;
end;
CloseFile(TF);
end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

{browar} --Pozdrawiam!

RockY

Delphi 5
[email protected]
GG: 3615957

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0