Szukanie

0

mam w memo1 takie oto linijki:

=============
&lthtml&gt&lttitle&gtopekf afafaf f a&lt/title&lt/html&gt

i mam edit1 :)

teraz chciałbym aby w edit1 pokazał się tytuł danej strony. [opekf afafaf f a]

0

var
TEXT : String;
begin
TEXT := '4programmers';
Edit1.Text := Copy(TEXT, Pos(,LowerCase(TEXT))+7, Pos(, LowerCase(TEXT))-14);
end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Nie chodziło mi o to:

chodziło mi o to aby program przypisał do edit1.text - tytuł - ale my ani długości tego tytułu ani jego nazwy nie znamy :)

0

sorki nie sprawdzilem czy dobrze wyslalo bo juz czasu nie mialem
a teraz patrze i widze ze ucielo mi kawalek kodu :(

var
TEXT : String;
begin
TEXT := '&lthtml&gt&ltTITle&gt4programmers&lt/title&gt&lt/html&gt';
Edit1.Text := Copy(TEXT, Pos('&lttitle&gt',LowerCase(TEXT))+7, Pos('&lt/title&gt', LowerCase(TEXT))-14);
end;

teraz powinno byc dobrze a jak nie to poslalem ci tez kod na gg :)

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

heh juz wiem czemu ucielo :)
po prostu te znaczniki( title ) potraktowalo jako kod stronki a nie kod procedurki :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

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