copy pos

[Gudzik11]

Здравствуйте подскажите пожалуйста что не так я тут делаю

procedure TForm1.Button1Click(Sender: TObject);
var
  b,k: Integer ;
 s,b1 : string ;

begin
 k:=0;
 GetDir(0,s);                   //ïîëó÷èòü òåêóùþþ äåðåêòîðèþ
 Memo1.Text:=IdHTTP1.Get('http://meteo.ua/150/harkov/10-days');
 Memo1.Lines.SaveToFile(s+'\home.htm');
 // Memo1.Text:=Utf8ToAnsi(Memo1.Text);
 //Memo2.Text :=copy(Memo1.Text,pos('class="wwt_cont">',Memo1.Text),  ( pos('<span class="lp_bg">',Memo1.Text))-pos('class="wwt_cont">',Memo1.Text));
 //Memo2.Lines.SaveToFile(s+'\obzats.htm');

  for b:=0 to memo1.Lines.Count-1 do
    if pos('class="wwt_cont">',Memo1.Lines[b])<>0 then
     begin
        inc(k);
        b1:=(copy(Memo1.Lines[b],    pos('class="wwt_cont">',Memo1.Lines[b]),  ( pos('<!-- wwc_bg -->',Memo1.Lines[b]))-pos('class="wwt_cont">',Memo1.Lines[b])));

       Memo3.Lines.Add(b1);
       Edit1.Text:=IntToStr(k) ;
      end;
end;

в Edit показывает 10 вхождений как и должно быть а в Memo не одного не выводит

[Dozent]

Сейчас сам работаю над обработкой текста из мемо, точнее уже закончил, проблема может быть в том что та подстркоа которую вы ишите, может находится на нескольких строках, попробуйте подругому, копировать и делать pos не из строки а из всего текста, если это возможно... а вообше неплохо бы было увидеть текст который вы обрабатываете и скриншот того места в мемо текст которого вы обрабатываете

[Gudzik11]

Скриншоты великоваты

вот сам документ:
вернее там их два, obzats это то что нужно получить .
то есть текст разрезать на 10 таких obzats

[Hacker19_90]

мдя! А вы измените код вот так

if (pos('class="wwt_cont">',Memo1.Lines[b])<>0) and 
  (pos('<!-- wwc_bg -->',Memo1.Lines[b])<> 0) then
     begin
        inc(k);
        b1:=(copy(Memo1.Lines[b],    pos('class="wwt_cont">',Memo1.Lines[b]),  ( pos('<!-- wwc_bg -->',Memo1.Lines[b]))-pos('class="wwt_cont">',Memo1.Lines[b])));

       Memo3.Lines.Add(b1);
       Edit1.Text:=IntToStr(k) ;
      end;

и посмотрите теперь чему к равно будет!

[Gudzik11]

Сообщение от Hacker19_90

мдя! А вы измените код вот так

и посмотрите теперь чему к равно будет!

Так не находит не одного

[Gudzik11]

А по отдельности все к=10.
Получается так что если копирование происходит на одной линии то всё работает.

к примеру такой кусок текста

<a href="#today" class="wwt_cont">
                                                                    <div class="wwt_day">Вт</div>
                                                                    <div class="wwt_num">22</div>
                                                                    <div class="wwt_mon">Мая</div>
                                                                                                                                        <div class="wwt_img vl_parent"><span class="vl_child"><span><img title="Ясно" src="/themes/default/images/for_icn/small/d000.png" alt="/themes/default/images/for_icn/big/d000.gif"></span></span><span class="vl_help"></span></div>
                                                                                                                                        <div class="wwt_tmps">
                                                                        <span class="wwt_tmp wwt_min">
                                                                            <span class="wt_lim">мин.</span>
                                                                                                                                                            <span>+17&deg;</span>
                                                                                                                                                    </span>
                                                                        <span class="wwt_tmp wwt_max">
                                                                            <span class="wt_lim">макс.</span>

если беру начало вхождения <div class="wwt_day"> и конец </div> то всё выводит , но если конец изменить на <div class="wwt_num"> то нечего не выводит