Функции Для Работы С Именем Файла

[Lomanu4]

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

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

Функция ExtractFileName()

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

var
   S: string;
begin
...
   S := ExtractFileName( 'C:\DIR1\myfile.txt');   // S = 'myfile.txt'
...
end;

Функция ExtractFilePath()

Функция возвращает путь к файлу, извлекая его из полного имени файла. Если имя файла не содержит ни имя каталогов, ни имя диска, то функция возвращает пустую строку. Подобное же действие выполняет функция ExtractFileDir(). Отличие этих функций в том, что в конце возвращаемого адреса функции ExtractFilePath() есть знак "\", а функция ExtractFileDir() этот знак не устанавливает:

var
   S: string;
begin
...
   S:= ExtractFilePath( 'C:\DIR1\DIR2\myfile.zzz');  //S ='C:\DIR1\DIR2\'
   S:= ExtractFileDir( 'C:\DIR1\DIR2\myfile.zzz');  //S ='C:\DIR1\DIR2'
   S:= ExtractFilePath( 'myfile.zzz');  //S =''
...
end;

Функция ExtractShortPathName()

Функция конвертирует длинное имя файла в DOS-формат, так называемый, 8.3. Этот формат подразумевает, что имя файла или папки может быть длиной максимум 8 символов, а затем, после точки, может присутствовать расширение имени файла из 3-х символов. Если имя папки (файла) имеет больше символов, оно будет обрезано до 8 символов.

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

var
   S: string;
begin
...
   S:= ExtractShortPathName( 'C:\Program Files\Accessories\wordpad.exe');
   //Результат:   S= C:\PROGRA~1\ACCESS~1\WORDPAD.EXE
...
end;

Процедура ProcessPath()

Процедура анализирует полное имя файла и возвращает отдельно имя диска, каталог и имя файла. Если файл не существует, то возникает ошибка. Когда полное имя файла содержит больше одного каталога, также возникает ошибка.

var
   Dir, S: string; //для имени папки и имени файла
   Drive: Char; //для имени диска (буквы A-Z)
begin
...
   ProcessPath('C:\DIR1\work.txt', Drive, Dir, S); // Drive= 'C';   Dir= '\DIR1';   S= 'work.txt'
...
end;

Функция ExtractFileDrive()

Функция возвращает имя диска, извлеченное из полного имени файла. Если указанное имя файла не содержит имя диска, то функция возвращает пустую строку. Для имени в UNC формате (сетевое имя) возвращается строка в формате '\\<имя сервера>\<имя ресурса>'.

var
   S: string;
begin
...
   S:= ExtractFileDrive( 'C:\DIR1\myfile.zzz');   //S= 'C:'
...
end;

Функция ExtractFileExt()

Функция возвращает расширение файла, имя которого указано в параметре. Результирующая строка включает в себя символ точки и символы расширения файла. Если указанное имя файла не имеет расширения, то функция возвращает пустую строку. Пример:

var
   S1, S2 : string;
begin
...
   S1:= ExtractFileExt( 'www.atrussk.ru/delphi/index.htm');    //S1='.htm'
   S2:= ExtractFileExt( 'c:\dir1\myfile.txt');     //S2 ='.txt'
end;

Пишем программу

Чтобы усвоить, как работают эти функции, создадим новое приложение. Форму сразу переименуйте в fMain, а проект сохраните под названием fname в отдельной папке. На форму установите Edit, здесь будет отображаться полное имя файла. Сразу под ней установите Label, тут будет отображаться результат работы функций. Очистите текст и у Edit и у Label. Ниже бросьте на форму кнопку, и напишите на ней "Открыть файл". Рядом с ней бросьте OpenDialog, он нам понадобится для открытия нужного файла. Еще ниже сгруппируйте 6 кнопок, на которых напишите:

ExtractFileName
ExtractFilePath
ExtractShortPathName
ExtractFileDir
ExtractFileDrive
ExtractFileExt

Создайте обработчик для кнопки "Открыть файл". Здесь мы напишем такой текст:

  if OpenDialog1.Execute then begin
    Edit1.Text := OpenDialog1.FileName;  //записываем адрес и имя открытого файла
    Label1.Caption := Edit1.Text; //копируем тоже самое в Label
  end; //if

Далее поочередно пишем обработчики для оставшихся кнопок. Нажмите первую, и напишите:

  Label1.Caption := ExtractFileName(Edit1.Text); //извлекаем имя файла

Длявторойкнопки:

Label1.Caption := ExtractFilePath (Edit1.Text);

Остальные кнопки обрабатываются также – просто подставьте указанную на кнопке функцию, остальной код остается без изменений. Сохраните и скомпилируйте пример, посмотрите как он работает.