есть текстовый файл, в нём всякая муть включая ХТМЛ тэги, вот мне надо в другой файл переписать всё кроме тэгов т.е. то что в <> скобках...
я незнаю как поставить условие...
for i=0 to 99999 do //читаю строки
readln(F, S);
if S=<*> then...(вот как написать что всё кроме <*> тэгов зписывать незнаю).
Полная версия: Html
Ну, так тебе надо из строки удалить все, что между "<" и ">", а потом записывать всю строку в другой файл... Делается точно так же, как и в Паскале (хочешь, я тему туда перенесу?)
Но алгоритм такой...
Только посмотри внимательнее, я мог где-нибудь с индексами ошибиться... Поздно уже
...
Readln(f, s);
repeat
p_start := Pos('<', s);
if p_start > 0 then begin
p_end := pos('>', s);
delete(s, p_start, p_end - p_start);
end;
until p_start = 0;
writeln(f_2, s);
...
Но алгоритм такой...
спасибо за совет....мне всёравно переносить тему в раздел паскаль или нет....как хочешь
Эффективнее так:
...
var
fi, fo: Text;
c: Char;
t: Boolean;
...
t := True;
while not Eof(fi) do
begin
Read(fi, c);
if c = '<' then t := False;
if t then Write(fo, c);
if c = '>' then t := True;
end;
...
Код
...
var
fi, fo: Text;
c: Char;
t: Boolean;
...
t := True;
while not Eof(fi) do
begin
Read(fi, c);
if c = '<' then t := False;
if t then Write(fo, c);
if c = '>' then t := True;
end;
...
А если в тексте HTML будет нечто подобное?
То есть символы < и\или > не явл. тегами?
HTML
<html>
<head> <title> Proga </title> </head>
<body>
<pre>
var
a,c:byte;
begin
if (a>c) or (a<c) then writeln('test'); {!!!!!!!!!!!!!!!!!!!!!!!!!!}
end.
</pre>
</body>
</html>
<head> <title> Proga </title> </head>
<body>
<pre>
var
a,c:byte;
begin
if (a>c) or (a<c) then writeln('test'); {!!!!!!!!!!!!!!!!!!!!!!!!!!}
end.
</pre>
</body>
</html>
То есть символы < и\или > не явл. тегами?
Цитата(volvo @ 16.04.05 23:56)
Только посмотри внимательнее, я мог где-нибудь с индексами ошибиться... Поздно уже Но алгоритм такой...
ага...ошибся...вт как надо Но алгоритм такой...
repeat
p_start := Pos('<', s);
if p_start > 0 then begin
p_end := pos('>', s);
delete(s, p_start, p_end - p_start+1);
end;
until p_start = 0;
writeln(F2, s);
Как известно, в HTML символы "<" и ">" должны быть заменены на "<" и ">" соответственно (даже внутри <pre>). В противном случае HTML-код является ошибочным и его дальнейшая интерпретация основывается на "догадках" браузера.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.