有什么方法可以验证文件名吗？

Question

我认为这必须在 RTL 中的某个地方，但我看了看，但找不到。

function IsValidFilename(filename: string): boolean;
//returns True if it would be possible to create or open a file with
//this name, without modifying the current directory structure

换句话说，它必须指向有效本地或网络驱动器上的现有文件夹，并且不包含任何无效字符。我们有这样的事情吗？ （如果它检查当前用户的访问权限以确保您可以访问相关文件夹，则会获得奖励积分。）

Answer 1

这是我的版本：

function MValidFileName(AFileName: String): Boolean;
const InvalidChars: set of AnsiChar = [#0..#31, '\', '/', ':', '*', '?', '"', '<', '>', '|'];
      InvalidWords: array[0..21] of String = ('CON', 'PRN', 'AUX', 'NUL', 'COM1',
       'COM2', 'COM3', 'COM4', 'COM5', 'COM6', 'COM7', 'COM8', 'COM9', 'LPT1', 'LPT2',
       'LPT3', 'LPT4', 'LPT5', 'LPT6', 'LPT7', 'LPT8', 'LPT9');
var I, L, Lw: Integer;
begin
 Result:= False;
 L:= Length(AFileName);
 if (L = 0) or (L > 255) or (AFileName[L] = '.') or (AFileName[L] = ' ') then Exit;
 for I:= 1 to L do 
  if (Ord(AFileName[I]) <= 255) and (AnsiChar(AFileName[I]) in InvalidFileNameChars) then Exit;
 AFileName:= UpperCase(AFileName);
 for I:= 0 to 21 do begin
  Lw:= Length(InvalidWords[I]);
  if (Pos(InvalidWords[I], AFileName) = 1) and
   ((Lw = Length(AFileName)) or (AFileName[Lw+1] = '.')) then Exit;
 end;
 Result:= True;
end;

Answer 2

据我所知，没有 RTL 或 Windows API 函数来验证文件名，因此您必须在 Windows File Naming Conventions 之后编写自己的函数：

以下基本规则启用 创建和处理的应用程序 文件和目录的有效名称， 无论文件系统如何：

• 在目录或文件的名称中使用句点将基本文件名与扩展名分开。
• 使用反斜杠 () 分隔路径的组成部分。反斜杠将文件名与其路径分开，并将一个目录名与路径中的另一个目录名分开。您不能在实际文件或目录的名称中使用反斜杠，因为它是将名称分隔为组件的保留字符。
• 根据需要使用反斜杠作为卷名的一部分，例如，“C:\path\file”中的“C:\”或“\server\share\path\file”中的“\server\share” " 用于通用命名约定 (UNC) 名称。有关 UNC 名称的详细信息，请参阅最大路径长度限制部分。
• 不要假设区分大小写。例如，认为名称 OSCAR、Oscar 和 oscar 是相同的，即使某些文件系统（例如符合 POSIX 的文件系统）可能认为它们不同。请注意，NTFS 支持区分大小写的 POSIX 语义，但这不是默认行为。有关详细信息，请参阅创建文件。
• 卷指示符（驱动器号）同样不区分大小写。例如，“D:\”和“d:\”指的是同一个卷。

• 使用当前代码页中的任何字符作为名称，包括 Unicode 字符和扩展字符集 (128–255) 中的字符，但以下字符除外：

  • 以下保留字符：
    • >（大于）
    • ：（冒号）
    • "（双引号）
    • /（正斜杠）
    • \（反斜杠）
    • | （竖条或竖管）
    • ? （问号）
    • *（星号）
  • 整数值零，有时称为 ASCII NUL 字符。
  • 整数表示在 1 到 31 范围内的字符，允许使用这些字符的备用流除外。有关文件流的更多信息，请参阅文件流。
  • 目标文件系统不允许的任何其他字符。
• 在路径中使用句点作为目录组件来表示当前目录，例如“.\temp.txt”。有关详细信息，请参阅路径。
• 在路径中使用两个连续的句点 (..) 作为目录组件来表示当前目录的父目录，例如“..\temp.txt”。有关详细信息，请参阅路径。

• 不要使用以下保留的设备名称作为文件名：

  CON、PRN、AUX、NUL、COM1、COM2、COM3、COM4、COM5、COM6、COM7、COM8、COM9、LPT1、LPT2、LPT3、LPT4、LPT5、LPT6、LPT7、LPT8 和 LPT9。还要避免这些名称后跟扩展名；例如，不推荐使用 NUL.txt。有关详细信息，请参阅命名空间。

• 不要以空格或句点结束文件或目录名称。尽管底层文件系统可能支持此类名称，但 Windows shell 和用户界面不支持。但是，可以将句点指定为名称的第一个字符。例如，“.temp”。

您可以查看这篇 C++ 文章 Validating file names 以获取用于验证 Windows 文件名的完整示例函数。

Answer 3

你也可以使用SysUtils.CharInSet函数：

function isFileNameValid(fileNameToCheck : String) : Boolean;
var
  invalidChars : Boolean;
  ch : Char;
begin
  invalidChars := False;
  for ch in fileNameToCheck do begin
    invalidChars := SysUtils.CharInSet(ch, ['\', '/', ':', '*', '?', '"', '<', '>', '|']);
    if invalidChars then
      Break;
  end;
  Result := not invalidChars;
end;

Answer 4

所以，这个问题有点老了，但如果您正在寻找：对于 XE 和更新版本，您可以使用 System.IOUtils 中的 TPath 类。

Result := TPath.HasValidFileNameChars(AFileName, UseWildcards); 

Answer 5

这太粗鲁了吗，梅森？

function CanCreateFile(const FileName: string): Boolean;
var
  H: THandle;
begin
  H := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil,
       CREATE_NEW, FILE_ATTRIBUTE_TEMPORARY or FILE_FLAG_DELETE_ON_CLOSE, 0);

  Result := H <> INVALID_HANDLE_VALUE;

  DeleteFile(FileName);
end;

Answer 6

我目前无法使用 Delphi 编译器，但您可以尝试

function IsValidFilename(const FileName: string): boolean;
begin
  result := DirectoryExists(ExtractFilePath(FileName)) and TPath.HasValidFileNameChars(ExtractFileName(FileName), false);
end;

Answer 7

试试这段代码（取自delphi faq）

const
  { for short 8.3 file names }
  ShortForbiddenChars : set of Char = [';', '=', '+', '<', '>', '|',
                                       '"', '[', ']', '\', '/', ''''];
  { for long file names }
  LongForbiddenChars  : set of Char = ['<', '>', '|', '"', '\', '/', ':', '*', '?'];

function TestFilename(Filename: String; islong: Boolean) : Boolean;
var
  I: integer;
begin
  Result := Filename <> '';
  if islong then
  begin
    for I := 1 to Length(Filename) do
      Result := Result and not (Filename[I] in LongForbiddenChars);
  end
  else
  begin
    for I := 1 to Length(Filename) do
      Result := Result and not (Filename[I] in ShortForbiddenChars);
  end;
end;

Answer 8

检查目录是否存在：

在 SysUtils 中，您有：DirectoryExists

检查文件名：

无效的文件名字符是：\ / : * ? " < > | 所以你可以像这样检查文件名：

for c in AFileName do
begin
  OK := NOT (C in ['\', '/', ':', '*', '?', '"', '<', '>', '|']);
  if not OK then Break;
end;

检查文件夹是否可写：

重复： How can I use Delphi to test if a Directory is writeable?

Answer 9

要查看它是否存在，请使用DirectoryExists() 和FileExists()。要查看是否可以创建/编辑文件，请使用 FileOpen() 和 ReadWrite 并查看它是否成功。