[Tech N9ne]

Добрый день, или утро, ну или что у вас сейчас))

Пытаюсь спарсить погоду с gismeteo md
Получаю html, удаляю всё не нужное с начала и конца, оставив только то, что нужно парсить

Парсю )
Код такой:

Код:

var
i : integer;
s : string;
begin
  For i := 0 to smemo1.Lines.Count - 1 do
  begin
   s  := smemo1.Lines.Strings[i];
    if pos('<td class="cltext">',s) <> 0 then
    begin
      s  := copy(s,pos('<td class="cltext">',s)+19,length(s));
      s  := copy(s,0,pos('</td>',s)-1);
      smemo2.Lines.Add(s);
    end;
  end;
end;

в мемо 2, попадает сама погода, но только (ясно, облачно).
Почему не вырезается:
Малооблачно, небольшой дождь
Малооблачно, дождь, гроза

Вместо этих строк в мемо2 добавляется пустая строчка..

<td class="cltext">Ясно</td>
....
<td class="cltext">Облачно</td>
...
<td class="cltext">Малооблачно, небольшой дождь</td>
...
<td class="cltext">Малооблачно, дождь, гроза</td>

В коде что-то не учел или что?

[Alegun]

На в скидку - вы построчно ответ обрабатываете,а его надо как строчку единую парсить, в смысле smemo1.text, переводы строк парсингу плохо поддаются

[Tech N9ne]

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

На в скидку - вы построчно ответ обрабатываете,а его надо как строчку единую парсить, в смысле smemo1.text, переводы строк парсингу плохо поддаются

Похоже дело не в этом.
Попробовал так

Код:

smemo2.Lines.Text := sMemo2.Lines.Text +'   '+ s;

Получаю тоже самое.. Такое ощущение, как будто из-за запятых или пробелов не вырезает.

Так выглядит отрывок HTML .

<th title="Прогноз от 2018-06-24 12:00, UTC: 2018-06-26 18:00, Local: 2018-06-26 21:00">
		Вечер	</th>
	<td class="clicon"><img class="png" src="//s4.gismeteo.md/static/images/icons/new/n.moon.png" alt="Ясно" title="Ясно" width="55" height="55"></td>
	<td class="cltext">Ясно</td>
	<td class="temp"><span class='value m_temp c'>+23</span><span class='value m_temp f' style='display:none'>+73</span></td>
	<td><span class='value m_press torr'>759</span><span class='value m_press inch' style='display:none'>30</span><span class='value m_press hpa' style='display:none'>1012</span></td>
	<td><dl class="wind"><dt class="wicon wind2" title="Северо-восточный">СВ</dt><dd><span class='value m_wind ms'>3</span><span class='value m_wind mih' style='display:none'>7</span><span class='value m_wind kmh' style='display:none'>11</span></dd></dl></td>
	<td>40</td>
	<td><span class='value m_temp c'>+22</span><span class='value m_temp f' style='display:none'>+72</span></td>
	</tr>
	</tbody>
<tbody id="tbwdaily3" style="display: none;">
								<tr class="wrow forecast" id="wrow-2018-06-27-03">
	<th title="Прогноз от 2018-06-24 12:00, UTC: 2018-06-27 0:00, Local: 2018-06-27 3:00">
		Ночь	</th>
	<td class="clicon"><img class="png" src="//s2.gismeteo.md/static/images/icons/new/n.moon.c2.r1.png" alt="Малооблачно, небольшой дождь" title="Малооблачно, небольшой дождь" width="55" height="55"></td>
	<td class="cltext">Малооблачно, небольшой дождь</td>
	<td class="temp"><span class='value m_temp c'>+20</span><span class='value m_temp f' style='display:none'>+68</span></td>
	<td><span class='value m_press torr'>758</span><span class='value m_press inch' style='display:none'>30</span><span class='value m_press hpa' style='display:none'>1011</span></td>
	<td><dl class="wind"><dt class="wicon wind1" title="Северный">С</dt><dd><span class='value m_wind ms'>4</span><span class='value m_wind mih' style='display:none'>9</span><span class='value m_wind kmh' style='display:none'>14</span></dd></dl></td>
	<td>49</td>
	<td><span class='value m_temp c'>+19</span><span class='value m_temp f' style='display:none'>+66</span></td>
	</tr>

[Alegun]

У вас четкие теги в ответе, можно парсингом их раскрыть, можно стандартными методами (json), если это не подходит, покажите пжлст, что приходит (без чистки) и что должно отобразиться (что оставить), мож обычным поиском в тексте можно обойтись

[Tech N9ne]

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

У вас четкие теги в ответе, можно парсингом их раскрыть, можно стандартными методами (json), если это не подходит, покажите пжлст, что приходит (без чистки) и что должно отобразиться (что оставить), мож обычным поиском в тексте можно обойтись

Это было что-то не так с парсингом...
После долгих мучений с гуглом, нашёл процедурку)

Код:

uses
  StrUtils;
 
//Поиск подстрок, расположенных между шаблонами aSub1 и aSub2.
//Найденные подстроки добавляются в список aSl.
procedure ParseStr(const aStr, aSub1, aSub2 : string; aSl : TStrings);
const
  SelfName = 'ParseStr()';
var
  L1, L2, P1, P2 : Integer;
begin
  if aSl = nil then
    raise Exception.Create(SelfName + '. ГЋГёГЁГЎГЄГ*! Ñïèñîê Г*ГҐ ñîçäГ*Г*.');
  L1 := Length(aSub1);
  L2 := Length(aSub2);
  P1 := 1;
  P2 := 0;
  repeat
    //Ищем первый тег, начиная с позиции P1.
    P1 := PosEx(aSub1, aStr, P1);
    //Если нашли первый тег.
    if P1 > 0 then begin
      //Справа от первого тега ищем второй тег.
      P2 := PosEx(aSub2, aStr, P1 + L1);
      //Если нашли второй тег.
      if P2 > 0 then begin
        //Подстроку, которая расположена между тегами, добавляем в aSl.
        aSl.Add( Copy(aStr, P1 + L1, P2 - P1 - L1) );
        //Начальную позицию поиска располагаем справа от второго тега.
        P1 := P2 + L2;
      end;
    end;
  //Если первый или второй тег оказался не найденным, то выходим из цикла.
  until (P1 = 0) or (P2 = 0);
end;
 
//Пример использования.
//В Memo1 - исходный текст, в Memo2 выводятся результаты поиска.
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Clear;
  ParseStr(Memo1.Text, '<artist>', '</artist>', Memo2.Lines);
end;