[Gudzik11]

Здравствуйте !
Парсил с помощью ECXMLParser

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

procedure TForm1.Create(Sender: TObject); //Погода    var   s: string ;     procedure DrawXMLItem(XMLItem: TXMLItem); var   i : Integer ;  begin    for i := 0 to XMLItem.SubItemCount-1 do       DrawXMLItem(XMLItem.SubItems[i]);    if Trim(XMLItem.Text)<>'' then  Memo1.Lines.Add(XMLItem.Name+' : '+XMLItem.Text);    end;       begin       GetDir(0,s);                   //получить текущюю деректорию         IdHTTP1.HandleRedirects:=True;       Memo1.Clear();        // очищяем memo1       Memo1.Text:= IdHTTP1.Get('http://sinoptik.ua/'+UTF8Encode('погода-харьков/10-дней')); // Загружаем страницу       Memo1.Text:=Replace(Memo1.Text,'&deg;','');       Memo1.Text:=Replace(Memo1.Text,'&nbsp;','');       Memo1.Lines.SaveToFile(s+'\fff.htm'); // сохроняем       Memo1.Clear;       ECXMLParser1.LoadFromFile('fff.htm');       Memo1.Lines.BeginUpdate;       DrawXMLItem(ECXMLParser1.Root);       Memo1.Text:= Utf8ToAnsi(Memo1.text);       Memo1.Lines.EndUpdate;               end;

получил в мемо такой текст

span : 10 дней
span : выбрать другой город
span : скрыть
span : скрыть
a : Среда
p : 11
p : апреля
span : +5
div : мин.
span : +9
div : макс.
a : Четверг
p : 12
p : апреля
span : +3
div : мин.
span : +15
div : макс.
a : Пятница
p : 13
p : апреля
span : +7
div : мин.
span : +17

подскажите пожалуйста как мне вытаскивать теперь значения
к примеру из span : вывести значение +15 в Label

[NumLock]

намекаю:

Код:

1 2	Memo1.Lines.NameValueSeparator:=':'; Memo1.Lines.Values['span'];

почему не используешь XML-информер? хотя бы http://rp5.ru/xml/7375/00000/ru

[Gudzik11]

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

почему не используешь XML-информер? хотя бы http://rp5.ru/xml/7375/00000/ru

просто сайт понравился.

Код:

1 2	Memo1.Lines.NameValueSeparator:=':';           Memo1.Lines.Values['span'];

а как в Label вывести
чёт не пойму как эти две строки прикрутить .

[NumLock]

ой, не, через NameValueSeparator/Values не получится - ключи то повторяются. можно просто из строки удалить не нужное:

Код:

1	Label1.Caption:=StringReplace(Memo1.Lines[14], 'span', '', [rfReplaceAll, rfIgnoreCase]);

а на счет информера подумай, можно кое-что интересное получить. к примеру для мобильника когда-то писал "Weather Schedule - Расписание Погоды"

[Gudzik11]

c xml уже писал отсюда брал
http://xml.weather.co.ua/1.2/forecas...d=yoursite_com

конечно намного проще было . ну что то как то коряво вышло.

Подскажи а можно в ECXMLParser загнать сайт? Чтоб не сохранять в документ, потом открывать ECXMLParser1.LoadFromFile('fff.htm');
а сразу как в IdHTTP1.Get('http://sinoptik.ua/'+UTF8Encode('погода-харьков/10-дней'));

[NumLock]

не знаю я что такое ECXMLParser и гуглить не буду - мне вполне хватает стандартных IXMLHttpRequest и IXMLDOMDocument из msxml.pas для работы с XML. и IHTML* из MSHTML.pas для обработки html страничек.