загрузка HTML в МЕМО

← →
Sash © (2004-08-17 08:44) [0]

Здравствуйте! На форме лежит 2 мемо. В 1-ый загружаю вордовский документ сохраненный как веб страница с фильтром и вижу хтмл код:
<html>
<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1251">
<meta name=Generator content="Microsoft Word 10 (filtered)">
<title>Jefuerfcvfdnvb urtbgvkrtg</title>
<style>

</style>
</head>
<body lang=RU>
<div class=Section1>
Jefuerfcvfdnvb urtbgvkrtg
Rtkgh vhjrtbv uihgurtg
R tjg uithjrtg
Rtgi wrgug54
Grtg nrtughrthguirt897t8jtrhew54f
 
</div>
</body>
</html>

Во втором мемо мне нужно получить следующее:
Jefuerfcvfdnvburtbgvkrtg
Rtkghvhjrtbvuihgurtg
R tjg uithjrtg
Rtgiwrgug54
Grtgnrtughrthguirt897t8jtrhew54f

т.е. удалить все теги кроме тега и .
Подскажите пожалуйста, как это сделать?

← →
Fredy314 © (2004-08-17 08:57) [1]

Сканируй все строки на поиск начала тега "<" потом смотри следующие буквы если "Р>" или "P " значит ето твой тег иначе пропусти его, внутри тега тоже нужно смотреть чтоб пропустить всё лишнее.
возможно pos("<",Memo1.Lines[i]) тебе пригодится.

← →
Sash © (2004-08-17 09:03) [2]

2 Fredy314 © (17.08.04 08:57) [1]
Писал вот так, не идет
Flag:=False; teg:="p>"; for i:=0 to Memo1.Lines.Count-1 do begin if Flag=True then Memo2.Lines.Add( Memo1.Lines[i]); if pos(teg, Memo1.Lines[i])<>0 then begin if Flag=False then Flag:=True else if Flag=True then Flag:=False; if Flag=True then Memo1.Lines.Add(Memo1.Lines[i]); end; end;
еще писал teg:=<p, тоже не то. Если большие документы, то много строк вообще пропадают...

← →
Sash © (2004-08-17 09:06) [3]

т.е.
if Flag=True then Memo2.Lines.Add(Memo1.Lines[i]);
опечатался...:)

← →
KSergey © (2004-08-17 09:21) [4]

Вообще, ну напрягитесь маненько..
Возьмите ваш же коди повыполняйте его за компьютер - сразу станет понятно что не так и как надо модифицировать.

Так что говторого писать не буду, а просто некоторые замечания (ничего не улучшающие в плане достижения цели):

меняем
if Flag=False then Flag:=True else if Flag=True then Flag:=False;
на
Flag := NOT Flag;

меняем везде
if Flag=True then
на
if Flag then

Выделенное жирным напрасно сдвинуто, оно не является вложенным блоком.

Flag:=False; teg:="p>"; for i:=0 to Memo1.Lines.Count-1 do begin if Flag=True then Memo2.Lines.Add( Memo1.Lines[i]); if pos(teg, Memo1.Lines[i])<>0 then begin if Flag=False then Flag:=True else if Flag=True then Flag:=False; if Flag=True then Memo1.Lines.Add(Memo1.Lines[i]); end; end;

Так... набросал.. чего-то такое...
Flag := True; p := False; s := Memo2.Lines.Text; s2 := ""; SetLength(s,Length(s)+1); for I := 1 to Length(s) do begin if s[i] = "<" then if s[i+1] = p then begin p := True; end else Flag := False; if s[i] = ">" and (not p) then Flag := True else if Flag then s2 := s2 + s[i]; if s[i] = ">" then p := False; end; SetLength(s2,Length(s2)-1);

загрузка HTML в МЕМО Найти похожие ветки