[Gudzik11]

Помогите разобраться с парсингом
вот нашол пример

Код:

XMLDocument1.LoadFromFile('http://newyorg.myminicity.com/xml');
XMLDocument1.Active := true;
Edit1.Text := XMLDocument1.DocumentElement.ChildNodes['population'].Text;
Edit2.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes['bases'].Attributes['ind']);
Edit3.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes['bases'].Attributes['tra']);
Edit4.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes['bases'].Attributes['sec']);
Edit5.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes['bases'].Attributes['env']);
XMLDocument1.Active := false;

а мне надо свой xml распарсить пытаюсь это зделать так

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   XMLDocument1.LoadFromFile('1.xml');
   XMLDocument1.Active := true;
   Memo1.Text:=XMLDocument1.XML.Text;

   XMLDocument1.Active := false;
end;

но сразу выскакивает ошибка

"В текстовом комментарии обнаружен недопустимый знак"

подскажите пожалуйста как сделать правильно

[angvelem]

У меня очки дальновидения запотели, плохо вижу открываемый файл.

[Gudzik11]

извеняюсь вот фаил

[angvelem]

Пока, я вижу HTML файл переименованный в XML.

Вот простой пример:

Код:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<WasabiXML version="1.2">

  <skininfo>
    <version>1.0</version>
    <name>Winamp5 Base Skin</name>
    <comment>Please feel free to use this skin as a reference point to build your new Winamp5 skins.</comment>
    <author gaybag="bartibartman">Sven Kistner</author>
    <email>sven@metrix.de</email>
    <homepage>http://www.winamp.com</homepage>
    <screenshot>screenshot.png</screenshot>
  </skininfo>

  <include file="xml/color-presets.xml"/>
  <include file="xml/system-colors.xml"/>
  <include file="standardframe/standardframe.xml" />
  <include file="titlebar/titlebar.xml" />
  <include file="xml/player.xml"/>
  <include file="xml/pledit.xml"/>
  <include file="xml/ml.xml"/>
  <include file="xml/vis.xml"/>
  <include file="xml/video.xml"/>
  <include file="xml/notifier.xml"/>
  <include file="about/about.xml"/>

</WasabiXML>

сравни со своим файлом.

[Gudzik11]

Скачивал я так

Код:

 GetDir(0,s);
    memo2.Text:=Utf8ToAnsi(IdHTTP1.Get('http://xml.weather.co.ua/1.2/forecast/19?dayf=5&userid=yoursite_com'));
    Memo2.Text:=Memo1.Text + Memo2.Text + Memo3.Text ;
    Memo2.Text:=Replace(Memo2.Text,'<?xml version="1.0" encoding="UTF-8"?>','');
    Memo2.Lines.SaveToFile(s+'\1.xml');

[angvelem]

Ну и получил ерунду. Зачем Replace использовал?