Работа с файлами (создание, удаление, открытие, связываение с переменной, очищение памяти переменной)

[Arkuz]

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

[-=AlmAt=-]

На каком языке прогр-я тебе написать? Delphi? C++? VB?

[execom]

С файлами можно работать по разному...
1)как в паскале:

label
  NAHUY;
const
  BlockSize=$1000;// констнта на которой всё завязано - 4096 
var
    f : file;//Нетипизированная файловая переменная
  Buf : array [1..BlockSize] of char;//Буфер
    i : integer;
begin
for i:=1 to BlockSize do
Buf[i]:=chr(ord(random(256)));//Набиваем буфер хламом
FileMode:=2;//Ставим режим обращения к файлам только запись
AssignFile(f,'tmp');//Ассоциируем путь с файловой переменной
{$I-}//отключаем стандартную обработку ошибок
ReWrite(f);//создаём новый/или перезаписуем старый файл
If IOResult=0 then else goto NAHUY;//если ошибка то НАХ))
{$I+}//Включаем стандартную обработку ошибок
BlockWrite(f,Buf,BlockSize);//Пишем в файл ассоциированный с переменной данные из буфера в количестве его размера...
CloseFile(f);//закрываем файл
//////////
FileMode:=0;//Cтавим режим работы с файлами токо чтение...
AssignFile(f,'tmp');
{$I-}
Reset(f,1);//Открываем файл
If IOResult=0 then else goto NAHUY;
{$i+}
seek(f,100);//Переходим к 100 байту
BlockRead(f,Buf,FileSize(f)-100);//Читаем в буфер всё кроме первых 100 байт..
CloseFile(f);
NAHUY://если ошибка дуем сюда))
end.

У этого способа есть один значительный косяк... привязка к режиму обращения к файлу... если стоит FileMode:=0 то и другие файлы параллельно открытые не получится писать.... и наоборот))

2)Еще есь способ работать с файлами с помощью API функций... В делфи есть возможность применения как прямых API файловых функций типо : CreateFile, WriteFile, ReadFile, SetFilePointer, так и их упрощенными аналагами соответственно: OpenFile FileWrite FileRead FileSeek... Приведу примеры обоих вариантов работы:

var
      FH : THandle;
       B : DWORD;
begin
  FH := CreateFile('tmp', GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, 0, 0);//Создаём файл
  WriteFile(FH, Buffer[0], lstrlen(Buffer), B, nil);//пишем в него буфер
  CloseHandle(FH);//закрываем

С помощью CreateFile варьируя тегами можно открывать для записи и/или чтения, создавать файл или его запускать.. Не буду приводить весь хелп по этой великой функции))если надо отдельно попросишь)))

В целом всё тоже самое что и в паскале) токо другая ассоциация))

Теперь приведу пример работы с упращёнными функциями причём работы с виртуальной памятью)) программа просто копирует последние 777 байт заданого файла...

var
  p : pointer;
  FH : integer;
begin
  GetMem(p,777);//Выделяем память 
  try
    FH:=FileOpen('tmp1',fmOpenRead);//открываем файл токо для чтения
    if FH<>-1 then//если нет ошибки
      begin
        FileSeek(FH,-777,2);//переходим на 777 позицию с конца
        FileRead(FH,p^,777);//читаем
        FileClose(FH);//закрываем
        FH:=FileCreate('tmp2');//создаём
        if FH<>-1then //если всё гуд
          begin
            FileWrite(FH,p^,777);//пишем
            FileClose(FH)//закрываем
          end
      end;
  finally
    FreeMem(p)//освобождаем переменную....
  end
end;

Хочестя отметить что сорци было лень проверять поэтому возможны всякие "приятные мелочи")))

[SERG1980]

http://www.delphikingdom.com/asp/vie...catalogID=1184

[Yoger]

Еще вопрос по теме - каким методом можно удалить конкретную строку из файла? Например,считать Readln, если какое либо условие выполяется, удалить?

[SERG1980]

Можно попробовать через StringList. Загрузи файл в него, сделай какие надо операции и сохрани ибратно в файл

[Yoger]

Спасибо, нашел в старых постах. Я просто хотел узнать, может кто попроще метод предложит, через Trancate или еще что-нить..

[А. Долматов]

можно еще циклом весь файл просматривать, если файл типизированный, то используя процедуру seek перемещаться по его содержимому. А текстовый, то просто записывать каждую строку файла в стринговую переменную и при помощи элементарных строковых функций выполнять поиск подстроки. а потом просто затереть найденную строку.

[Yoger]

Сообщение от А. Долматов

можно еще циклом весь файл просматривать, если файл типизированный, то используя процедуру seek перемещаться по его содержимому. А текстовый, то просто записывать каждую строку файла в стринговую переменную и при помощи элементарных строковых функций выполнять поиск подстроки. а потом просто затереть найденную строку.

Файл текстовый, а метода для затирания строки я не нашел

[Pitbull]

Сообщение от Yoger

Файл текстовый, а метода для затирания строки я не нашел

var
i:TStringList;
h:string;
begin
i:=TStringList.Create;
i.LoadFromFile('c:\1.txt');
if i.Strings[0]='1' then i.Strings[0]:='11'; // тут можешь в цикле прогнать все строки
i.SaveToFile('c:\1.txt');
end;