| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как убрать разбиение на страницы [D6, WinXP]

SergeiX ©   (2005-06-06 13:52:00) 

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

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.

---

КиТаЯц   (2005-06-06 15:26:00) [1]

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

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

---

SergeiX   (2005-06-06 15:08:00) [2]

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

---

Чапаев   (2005-06-06 15:01:00) [3]

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

---

SergeiX   (2005-06-06 14:58:00) [4]

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

---

ferr   (2005-06-06 14:36:00) [5]

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

---

КиТаЯц   (2005-06-06 14:21:00) [6]

> 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:18:00) [7]

Почему бы не воспользоваться просто текстовым файлом(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 ЭТО ОНА
...
 

---

kot andrei   (2005-06-06 14:10:00) [8]

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

---

Kerk   (2005-06-06 14:07:00) [9]

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

---

Наверх