Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Короткое имя файла в длинное и наоборот, сокращённое имя файла

Delphi , Файловая система , Файлы

Короткое имя файла в длинное и наоборот, сокращённое имя файла

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


{=========================================================} 
Function Mince(PathToMince: String; InSpace: Integer): String; 
{=========================================================} 
// "C:\Program Files\Delphi\DDrop\TargetDemo\main.pas" 
// "C:\Program Files\..\main.pas" 
Var 
  sl: TStringList; 
  sHelp, sFile: String; 
  iPos: Integer; 

Begin 
  sHelp := PathToMince; 
  iPos := Pos('\', sHelp); 
  If iPos = 0 Then 
  Begin 
    Result := PathToMince; 
  End 
  Else 
  Begin 
    sl := TStringList.Create; 
    // Decode string 
    While iPos <> 0 Do 
    Begin 
      sl.Add(Copy(sHelp, 1, (iPos - 1))); 
      sHelp := Copy(sHelp, (iPos + 1), Length(sHelp)); 
      iPos := Pos('\', sHelp); 
    End; 
    If sHelp <> '' Then 
    Begin 
      sl.Add(sHelp); 
    End; 
    // Encode string 
    sFile := sl[sl.Count - 1]; 
    sl.Delete(sl.Count - 1); 
    Result := ''; 
    While (Length(Result + sFile) < InSpace) And (sl.Count <> 0) Do 
    Begin 
      Result := Result + sl[0] + '\'; 
      sl.Delete(0); 
    End; 
    If sl.Count = 0 Then 
    Begin 
      Result := Result + sFile; 
    End 
    Else 
    Begin 
      Result := Result + '..\' + sFile; 
    End; 
    sl.Free; 
  End; 
End; 

{===================================================} 
Function ShortFileName(Const FileName: String): String; 
{===================================================} 
Var 
  aTmp: Array[0..255] Of Char; 

Begin 
  If Not FileExists(FileName) Then 
  Begin 
    Result := ''; 
  End 
  Else 
  Begin 
    If GetShortPathName(PChar (FileName), aTmp, Sizeof (aTmp) - 1) = 0 Then 
    Begin 
      Result:= FileName; 
    End 
    Else 
    Begin 
      Result:= StrPas (aTmp); 
    End; 
  End; 
End; 

{==============================================} 
Function LongFileName(ShortName: String): String; 
{==============================================} 
Var 
  SR: TSearchRec; 

Begin 
  Result := ''; 
  If (pos ('\\', ShortName) + pos ('*', ShortName) + 
      pos ('?', ShortName) <> 0) Or Not FileExists(ShortName) Then 
  Begin 
    { ignore NetBIOS name, joker chars and invalid file names } 
    Exit; 
  End; 
  While FindFirst(ShortName, faAnyFile, SR) = 0 Do 
  Begin 
    { next part as prefix } 
    Result := '\' + SR.Name + Result; 
    SysUtils.FindClose(SR);  { the SysUtils, not the WinProcs procedure! } 
    { directory up (cut before '\') } 
    ShortName := ExtractFileDir (ShortName); 
    If length (ShortName) <= 2 Then 
    Begin 
      Break;  { ShortName contains drive letter followed by ':' } 
    End; 
  End; 
  Result := ExtractFileDrive (ShortName) + Result; 
end;

Функция Mince

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

Как она работает:

  1. Функция создает объект TStringList, чтобы хранить отдельные имена каталогов.
  2. Затем функция проходит по оригинальному пути к файлу, извлекая каждый каталог и добавляя его в TStringList.
  3. Once all directories have been extracted, the function reassembles them in a shorter form by concatenating the directory names with \ separators.
  4. If there are more than InSpace characters remaining, the function adds ..\" + sFile to indicate that the file is located in a subdirectory.

Функция ShortFileName

Эта функция принимает имя файла в виде входного параметра и возвращает его короткую форму (также известную как формат 8.3).

Как она работает:

  1. Если файл не существует, функция возвращает пустую строку.
  2. В противном случае, она использует API-функцию GetShortPathName для получения короткой формы имени файла.
  3. Если это fails, the function returns the original file name.

Функция LongFileName

Эта функция принимает короткое имя файла в виде входного параметра и возвращает его длинную форму (то есть полный путь).

Как она работает:

  1. Функция использует API-функцию FindFirst для поиска файлов с данным коротким именем.
  2. Затем функция проходит по результатам, конкатенируя каждый найденный файл с \ разделителями, чтобы собрать полный путь.
  3. Once all results have been processed, the function returns the completed path.

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

Функции Mince, ShortFileName и LongFileName помогают преобразовывать длинные имена файлов в короткие и наоборот.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Файлы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-17 16:37:52/0.0076708793640137/2