Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Обработка HTML   Найти похожие ветки 

 
^^^Dragon^^^   (2003-10-25 18:20) [0]

Помогите, плз. Есть код, анализирующий простую HTML-строку (в которой нет конструкции тег-в-теге)и извлекающий из нее текст.

var
i:integer;
begin
if tagopen=true then
begin
for i:=n to length(source.Lines.Strings[4]) do
begin
if source.Lines.Strings[4][i]=">" then
begin
tagopen:=false;
n:=i+1;
Test;
end;
end;

end
else
begin
for i:=n to length(source.Lines.Strings[4]) do
begin
if source.Lines.Strings[4][i]<>"<" then
itog:=itog+source.Lines.Strings[4]
else
begin
tagopen:=true;
n:=n+1;
Test;
end;
end;
end;
end;

Работать не хочет. Подозреваю, что здесь конфликт переменных. Помогите, пажалуйста. Спасибо


 
Deedlit   (2003-10-25 18:50) [1]

Честно говоря, никак не могу въехать в твою процедуру. ;) Сама в свое время пользовалась вот такой штукой:

function EraseTag(Line: string): string;
begin
While pos("<", Line)<>0 do
Delete(Line, pos("<", Line), pos(">", Line)-pos("<", Line)+2);
Result:=Line;
end;


Может, пригодится? :) Работает при условии, что все теги закрыты. Если для тебя это критично... имхо, проще дописать сюда строчку-проверку, чем искать баги. ;)


 
^^^Dragon^^^   (2003-10-25 19:45) [2]

За функцию огромное спасибо, но есть одно НО:
вот такая конструкция: <tag<eshe_tag>znachenie</eshe_tag>>text</tag>

или

<tag svoystvo=znachenie>text</tag>

в этих случаях нужного результата не получится :(
Кстати, функция, почему-то, удаляет еще и первый символ (исправить так и не получилось).



Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.037 c
6-41815
AlexRu
2003-09-15 11:45
2003.11.13
Вопрос по GetHostByAddr и не только


3-40823
denmin
2003-10-22 10:35
2003.11.13
Можно ли создать локальные таблицы на машине?


1-41257
Micah'GF
2003-11-04 16:13
2003.11.13
Передача класса в качестве параметра другой процедуре


9-40758
Кен
2003-05-04 04:40
2003.11.13
GLScene Проверка коллизий между пулями и монстрами. Как сделать ?


14-42005
hatchy
2003-10-16 14:40
2003.11.13
Глюк в Windows XP professional





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский