Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.05.2012, 21:20
serbius serbius вне форума
Прохожий
 
Регистрация: 23.05.2012
Сообщения: 20
Репутация: 10
По умолчанию Выборка значений из XML

Здравствуйте.
Я работаю с xml, точнее, загружаю сайт html и кусок кода вставляю в xmldocument, вроде все хорошо, но, если встречается в тегах просто текст, то выдает ошибку, что это значение не текстовое (теги примерные):
Код HTML:
<div> <name>Вася</name> Пупкин </div>
Сейчас делаю проверку на IsTextElement.

Вопрос, как можно взять текст блока div?
Ответить с цитированием
  #2  
Старый 23.05.2012, 21:28
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Pos, PosEx.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 23.05.2012, 22:05
serbius serbius вне форума
Прохожий
 
Регистрация: 23.05.2012
Сообщения: 20
Репутация: 10
По умолчанию

Цитата:
Сообщение от serbius
Здравствуйте.
Я работаю с xml, точнее, загружаю сайт html и кусок кода вставляю в xmldocument, вроде все хорошо, но, если встречается в тегах просто текст, то выдает ошибку, что это значение не текстовое (теги примерные):
Код HTML:
<div> <name>Вася</name> Пупкин </div>
Сейчас делаю проверку на IsTextElement.

Вопрос, как можно взять текст блока div?

дело в том, что у меня таких div около сотни в одном блоке, например, divs.
поэтому pos не катит
Ответить с цитированием
  #4  
Старый 23.05.2012, 22:23
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Цитата:
Сообщение от serbius
поэтому pos не катит
Если умеете пользоваться указанными функциями, то всё "катит".
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #5  
Старый 24.05.2012, 09:46
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
type
  TForm1 = class(TForm)
    XMLDocument1: TXMLDocument;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Clear;
  XMLDocument1.XML.Text:='<?xml version="1.0" encoding="windows-1251"?><divs><div><name>Вася</name>Пупкин</div><div><name>Гена</name>Букин</div></divs>';
  XMLDocument1.Active:=True;
  Memo1.Lines.Add('DocumentElement = '+XMLDocument1.DocumentElement.NodeName);
  Memo1.Lines.Add('Count = '+IntToStr(XMLDocument1.DocumentElement.ChildNodes.Count));
  Memo1.Lines.Add('ChildNodes0 = '+XMLDocument1.DocumentElement.ChildNodes.Get(0).NodeName);
  Memo1.Lines.Add('  '+XMLDocument1.DocumentElement.ChildNodes.Get(0).ChildNodes.Get(0).NodeValue);
  Memo1.Lines.Add('  '+XMLDocument1.DocumentElement.ChildNodes.Get(0).ChildNodes.Get(1).NodeValue);
  Memo1.Lines.Add('ChildNodes1 = '+XMLDocument1.DocumentElement.ChildNodes.Get(1).NodeName);
  Memo1.Lines.Add('  '+XMLDocument1.DocumentElement.ChildNodes.Get(1).ChildNodes.Get(0).NodeValue);
  Memo1.Lines.Add('  '+XMLDocument1.DocumentElement.ChildNodes.Get(1).ChildNodes.Get(1).NodeValue);
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:30.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025