Ładny brzuch
Pobieram do pamici programu acuch znakw. W tym acuchu jest duo tekstu. Jak wyodrbni z tego to co znajduje si midzy znacznikami <span class='flight espionage'> a </span>??
Tego <span class='flight espionage'> cotam </span> moe by nieskoczenie wiele, nawet koo setki. Jak je wszystkie dopisa do ListBox-a ??
I potem jak do drugiego ListBoxa zapisa to co znajduje si midzy znacznikami <span class='flight attack'> a </span>?? Tego te moe by nieskoczenie wiele.
Musz mie je w liniach w List-Boxie i mie liczb ich wszystkich.
Mamnadziej, e kto pomoe. Pozdro
Niedawno byo co podobnego o wyciganiu sessionid :excl:
procedure TForm1.Button1Click(Sender: TObject); const Znacznik = '<span class=''flight espionage''>'; Znacznik_koniec = '</span>'; var Text, S: string; I: Integer; begin Text := Memo1.Lines.Text; while True do begin I := Pos(Znacznik, Text); if I <> 0 then begin Text := Copy(Text, I + Length(Znacznik), Length(Text) - I - Length(Znacznik)); S := Copy(Text, 1, Pos(Znacznik_koniec, Text) - 1); ListBox1.Items.Add(S); end else Break; end; end;
// Oczywicie ten tekst jest w Memo1 ;)
Uytkownik lukexpert edytowa ten post 12 luty 2006, 14:50
ale miaem problem z wielokrotnoci.
ale miaem problem z wielokrotnoci.
spoko dziaa wielkie dziki
A jak z tego co dopisuj wywali wszystkie znaczniki HTML-a ??
Uytkownik pawkow edytowa ten post 12 luty 2006, 15:13
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Tego <span class='flight espionage'> cotam </span> moe by nieskoczenie wiele, nawet koo setki. Jak je wszystkie dopisa do ListBox-a ??
I potem jak do drugiego ListBoxa zapisa to co znajduje si midzy znacznikami <span class='flight attack'> a </span>?? Tego te moe by nieskoczenie wiele.
Musz mie je w liniach w List-Boxie i mie liczb ich wszystkich.
Mamnadziej, e kto pomoe. Pozdro
Niedawno byo co podobnego o wyciganiu sessionid :excl:
procedure TForm1.Button1Click(Sender: TObject); const Znacznik = '<span class=''flight espionage''>'; Znacznik_koniec = '</span>'; var Text, S: string; I: Integer; begin Text := Memo1.Lines.Text; while True do begin I := Pos(Znacznik, Text); if I <> 0 then begin Text := Copy(Text, I + Length(Znacznik), Length(Text) - I - Length(Znacznik)); S := Copy(Text, 1, Pos(Znacznik_koniec, Text) - 1); ListBox1.Items.Add(S); end else Break; end; end;
// Oczywicie ten tekst jest w Memo1 ;)
Uytkownik lukexpert edytowa ten post 12 luty 2006, 14:50
ale miaem problem z wielokrotnoci.
ale miaem problem z wielokrotnoci.

spoko dziaa wielkie dziki
A jak z tego co dopisuj wywali wszystkie znaczniki HTML-a ??
Uytkownik pawkow edytowa ten post 12 luty 2006, 15:13