[Ticksy]

Как с помощью Copy и Pos парсить html? Не могли бы привести пример?

Немного о задумке:
Хочу написать клиент для сайта, который будет проверять и выводить информацию. Программа обращается к PHP скрипту на сервере и получать страницу-ответ (с серверной частью и получением страницы проблем нет). Сначало хотел выдавать ответ в XML разметке, но работать с ним геморойно. Зачем нашел JSON, но в библиотеке для работы с ним на делфи не разобрался . Решил использовать свой велосипед на основе HTML. Разметка приблизительно такая:

Код:

<count>3</count>

<info0title>Заголовок0</info0title>
<info0text>Текст0</info0text>

<info1title>Заголовок1</info1title>
<info1text>Текст1</info1text>

<info2title>Заголовок2</info2title>
<info2text>Текст2</info2text>

Заранее спасибо!

[friz]

в принципе да, copy и pos вполне хватит...где-то у меня еще валялись готовые процедуры для парсинга..найду выложу

[Bars1992]

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

Как с помощью Copy и Pos парсить html? Не могли бы привести пример?

Немного о задумке:
Хочу написать клиент для сайта, который будет проверять и выводить информацию. Программа обращается к PHP скрипту на сервере и получать страницу-ответ (с серверной частью и получением страницы проблем нет). Сначало хотел выдавать ответ в XML разметке, но работать с ним геморойно. Зачем нашел JSON, но в библиотеке для работы с ним на делфи не разобрался . Решил использовать свой велосипед на основе HTML. Разметка приблизительно такая:

Код:

<count>3</count>

<info0title>Заголовок0</info0title>
<info0text>Текст0</info0text>

<info1title>Заголовок1</info1title>
<info1text>Текст1</info1text>

<info2title>Заголовок2</info2title>
<info2text>Текст2</info2text>

Заранее спасибо!

тебе обязательнто только ети функции использовать? может лутче стандартный парсер?

[aleksnine]

Код:

s:=copy(s,ansipos('>',s)+1,length(s));
s:=copy(s,0,ansipos('<',s)); 

[Ticksy]

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

тебе обязательнто только ети функции использовать? может лутче стандартный парсер?

Эти функции мне показались более удобнее, чем компоненты парсеры (в которых надо напиться чтобы разобраться. по крайней мере мне).

aleksnine, не совсем понял код... если надо получить текст между <mytag>Текст, который нужно получить</mytag> то как ее записывать (получается толку от первой строки нет, вторая ее перекроет )?

[Bars1992]

Код:

s:='<count>3</count>';
if (pos('<count>',s)<>0)and(pos('</count>',s)<>0 ) then
begin
g:=inttostr(copy(s,pos('<count>',s),pos('</count>',s)-pos('<count>',s)));
end;

Чтото наподобе такого. код не проверял делал как говорится на коленке.

[Страдалецъ]

Забавная задачка, давно такой небыло. Вот такая забавка получилась:

Код:

  TSection = record
   Name, Value: String;
  end;

  TSectionArray = Array of TSection;

  TCustomParser = class
   fText: String;
   fSections: TSectionArray;
  private
   procedure SetText(const Value: String);
   function GetSectionCount: Integer;
  public
   property Text: String read fText write SetText;
   property Count: Integer read GetSectionCount;
   property Sections: TSectionArray read fSections write fSections;
   function GetSectionValue(Section: String): String;
  end;


{ TCustomParser }

function TCustomParser.GetSectionCount: Integer;
begin
 Result := Length(fSections);
end;

function TCustomParser.GetSectionValue(Section: String): String;
Var i: Integer;
begin
 for i := 0 to Length(fSections) - 1
 do if fSections[i].Name = Section
    then begin
         Result := fSections[i].Value;
         Break;
         end;
end;

procedure TCustomParser.SetText(const Value: String);
Var S: String;
begin
 fText := Value;
 S := Value;
 SetLength(fSections, 0);
 while Pos('<', S) > 0
 do begin
    SetLength(fSections, Length(fSections) + 1);
    Delete(S, 1, Pos('<', S));
    fSections[High(fSections)].Name := Copy(S, 1, Pos('>', S) - 1);
    Delete(S, 1, Pos('>', S));
    fSections[High(fSections)].Value := Copy(S, 1, Pos('</', S) - 1);
    Delete(S, 1, Pos('>', S));
    end;
end;

[Ticksy]

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

Код:

s:='<count>3</count>';
if (pos('<count>',s)<>0)and(pos('</count>',s)<>0 ) then
begin
g:=inttostr(copy(s,pos('<count>',s),pos('</count>',s)-pos('<count>',s)));
end;

Чтото наподобе такого. код не проверял делал как говорится на коленке.

компилятор выдает:
[DCC Error] Unit1.pas(37): E2010 Incompatible types: 'HWND' and 'string'

[Страдалецъ]

Ругается на типы переменных. У вас какого типа переменные s и g?
И вы пробовали мой вариант?

[Bars1992]

Ticksy попробуй сначала вариант страдальце у него больше опыта.

[Ticksy]

Сообщение от Страдалецъ

Ругается на типы переменных. У вас какого типа переменные s и g?
И вы пробовали мой вариант?

Сейчас полностью скопировал ваш вариант, получилось:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var s : String;
var g : string;
begin
s:='<count>3</count>';
if (pos('<count>',s)<>0)and(pos('</count>',s)<>0 ) then
begin
g:=inttostr(copy(s,pos('<count>',s),pos('</count>',s)-pos('<count>',s)));
Edit1.Text := g;
end;
end;

При этом коде компилятор выдает: [DCC Error] Unit1.pas(33): E2250 There is no overloaded version of 'IntToStr' that can be called with these arguments
Среда: Delphi 2010

Если убрать функцию IntToStr, то в g пишется '<count>3' (без кавычек).

[Bars1992]

щас подредактирую

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
s,g:string;
begin
s:='<count>3</count>';
g:=copy(s,pos('<count>',s)+length('<count>'),pos('</count>',s)-pos('<count>',s)-length('<count>'));
showmessage(g);
s:='<info0title>Заголовок0</info0title>';
g:=copy(s,pos('<info0title>',s)+length('<info0title>'),pos('</info0title>',s)-pos('<info0title>',s)-length('<info0title>'));
showmessage(g);
end; 


[Ticksy]

Bars1992, спасибо! твой код работает