[Помогите!] что написать? +парсинг

[Павел.DO]

Вопрос первый:

Привожу цитату:

Цитата: Сообщение от VeTaL_UA Для кого я статьи писал... http://zhyk.ru/forum/showthread.php?t=294621 Рабочий код function Pars(s: string): string; begin result := Copy(s, Pos('"header_credits"', s) + 38, Pos('"header_uri"', s) - Pos('"header_credits"', s) - 52); end;

Я в дельфи недавно. Меня научили парсить другим способом:
Показать! (Кликабельно)

 private
    { Private declarations }
  function Pars(T_, ForS, _T: string): string; //тут зажимаем Ctrl+Shift+C
  public

Далее пишем:

function TForm1.Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

Код нажатия на кнопку:

procedure TForm1.Button1Click(Sender: TObject);
var
Source, Source_forum:TstringList;
begin
memo1.Lines.Clear;
Source:=TStringList.Create;
 Source.Text:=idhttp1.get('ссылка');
    memo1.lines.add('Онлайн: (тут можно написать что угодно или же поставить '')'+Pars('HTML код до нужного текста',Source.Text,'HTML код после нужного текста'));

Мне казалось что приведенным мною кодом проще это делать (это моё мнение, могу ошибаться)..Что посоветуете? Есть ли какие-то преимущества или недостатки? И сразу вопрос, для тех кто использует второй (мой) способ: как спарсить например такой код:

<br>первое значение<br>
<br>второе значение<br>
<br>третье значение<br>
<br>четвертое значение<br>

у меня получает только первое (верхнее) значение.

Второй вопрос:

Подкиньте идейку, что написать. Знания не большие, но буду пытаться и стараться. А то вообще нету идей тапками не кидайте

[Sinyss]

Спарсить сначала верхний компонент html документа, в котором хранятся эти значения. Потом разбить на части и парсить каждую отдельно..

[Павел.DO]

Цитата: Сообщение от Sinyss Спарсить сначала верхний компонент html документа, в котором хранятся эти значения. Потом разбить на части и парсить каждую отдельно..

я так пробовал. Только как можно из приведенного выше мною кода убрать <br> все. есть такая функция? или каждое значение парсить надо?

[Apo-S]

Я бы создал временную строку, содержимое:

<br>первое значение<br>
<br>второе значение<br>
<br>третье значение<br>
<br>четвертое значение<br>

Затем спарсил бы первое значение, и удалил бы эту строку, выходит у нас в строке:

<br>второе значение<br>
<br>третье значение<br>
<br>четвертое значение<br>

И так далее..

[metraz]

В таких случаях я пользуюсь регулярными выражениями, очень помогает.

[VeTaL_UA]

StringReplace такая функция зовётся.

[windust]

while Pos('<br>', zm) <> 0 do
begin
Delete(zm, 1, Pos('<br>', zm) + Length('<br>') - 1);
Form1.Memo1.Lines.Add(Copy(zm, 1, Pos('<', zm) - 1));
end;

[J-Fobos]

По секрету расскажу
В винде маленькая библиотека под названием mshtml.dll, и внутри этой библиотеки лежит шайтан устройство под названием IHTMLDocument, которое является базовым классом для IHTMLDocument2, который можно импортировать и использовать по его прямому назначению.
Более подробно [Ссылки могут видеть только зарегистрированные пользователи. ]