как убрать разбиение на страницы

← →
SergeiX (2005-06-06 13:52) [0]

ЗадачаУважаемые умы я "начинающий" надо из текстового файла удалить неправильное разбиение на страницы которое начинается пробелом затем идет значек похожий на зеркальце и до конца строки символы_______________.(Значек я изобразить не смог).
программа идущая ниже (ее лучше не смотреть) помогите пожалуйста

procedure TForm1.pusk(Sender: TObject);

var
FVar: file of char;
FileName: String;
i: integer;
FileHandle: Integer;
v1, v2, v3: char;

begin
{ReadLN(FileName);}
FileName:="c:\text1.txt";

AssignFile(FVar,FileName);
FileHandle:=FileOpen(FileName,fmOpenReadWrite);

if FileHandle>0 then
begin
for i:=0 to length(FileName) do
begin

read (FileName,v1);read (FileName,v2); read(FileName,v3);
{write(v1,v2,v3); readln;}
if ((v1=" ") and (v2="_") and (v3="_"))=true then
begin
Seek(FVar,FilePos(FVar)-3);
while Eoln=false do
writeln("c:\text1.txt"," ");
end;

end;
end;
end;

end.

← →
Kerk © (2005-06-06 14:07) [1]

Нескромный вопрос.. Ты блондинка?

← →
kot andrei (2005-06-06 14:10) [2]

>>Kerk © (06.06.05 14:07) [1]
ржу .... :)))))))))))

← →
ferr © (2005-06-06 14:18) [3]

Почему бы не воспользоваться просто текстовым файлом(TextFile) и из него считываь строки.
... Readln(f,s); OK:=False; if s[1]="©" then begin OK:=TRUE; for i:=2 to Length(s) do if s[i]<>"_" then begin OK:=FALSE; break end end; if OK then ЭТО ОНА ...

← →
КиТаЯц © (2005-06-06 14:21) [4]

> Kerk © (06.06.05 14:07) [1]
:)))

> SergeiX (06.06.05 13:52)

Может поможет...

function StringReplaceAll (Text, Chto, Chem: string): string; var IsPos : integer; begin while pos(Chto, Text) > 0 do begin IsPos := pos(Chto, text); delete (Text, IsPos, length(Chto)); insert (Chem, Text, IsPos); end; result := Text; end;

Ну... Типа того:
var InFile : TextFile; S: string; ... while not EOF(InFile) do begin readln (InFile, S); ... StringReplaceAll (S, " ¤____________", ""); ...

← →
ferr © (2005-06-06 14:36) [5]

¤____________ не должно быть Fixed Length. IMHO

← →
SergeiX (2005-06-06 14:58) [6]

я конечно понимаю что сдесь крутые програмеры но если я в своем коде разобраться немогу ктонибудь напишите полностью код будьте добры заранее спасибо

> Почему бы не воспользоваться просто текстовым файлом(TextFile) и из него считываь строки.
Имхо в данном случае удобнее всё же file of char/file of byte... Просто фильтровать символ $C.

← →
SergeiX (2005-06-06 15:08) [8]

понятно счас попробую а символ "$C" это что за ну ладно попробую разобраться

>ferr © (06.06.05 14:36) [5]
Ну это уж как посмотреть... ;) Хотя в общем случае - да, не должно.

>SergeiX (06.06.05 14:58) [6]
Неа. Сам давай. ;)

как убрать разбиение на страницы Найти похожие ветки