【delphi】正则判断windows完整合法文件名，包括路径

在 Delphi 中，可以使用正则表达式来检查 Windows 文件名称或路径是否合法。合法的文件名和路径要求符合以下几点：

禁止的字符：文件名和路径不能包含以下字符：<, >, :, ", /, \, |, ?, *。
文件名不能以空格或点结束。
长度限制：文件名最长为 255 个字符，路径最长为 260 个字符。

要更严格地检查 Windows 文件路径的合法性，除了排除不允许的字符外，还需要加入对以下情况的检测：

连续两个反斜杠（\） 在路径中是不合法的。
合法的盘符：路径应该以合法的盘符开头（如 C:\ 等），或者是以网络路径 \\ 开头。
路径中的每个文件夹名也应合法：即每个文件夹名不能包含非法字符、不能以空格或点结束。

为了实现以上点，可以利用正则表达式并添加一些额外的逻辑处理。以下是解决方案。

首先检查路径长度是否符合要求（文件名最长 255 字符，路径最长 260 字符）。
然后使用正则表达式来匹配文件名，确保不含非法字符并且文件名的最后一个字符不能是空格或点。

Delphi 代码示例：

uses
  System.RegularExpressions, System.SysUtils;

function IsValidFileNameOrPath(const AFileName: string): Boolean;
var
  Regex: TRegEx;
  DrivePattern, NetworkPattern, PathPattern: string;
begin
  // 检查文件路径是否为空，是否超过260字符限制
  if (AFileName = '') or (Length(AFileName) > 260) then
    Exit(False);

  // 合法盘符模式，例如 C:\ 或 D:\
  DrivePattern := '^[a-zA-Z]:\\';

  // 网络路径模式，例如 \\server\share
  NetworkPattern := '^\\\\[^<>:"/\\|?*]+\\[^<>:"/\\|?*]+';

  // 文件名和路径的基本合法性检查，排除非法字符和不合法的结尾
  // 该模式允许文件夹和文件名不包含非法字符，文件名或文件夹不能以空格或点结束
  PathPattern := '^(?!.*[\\/]{2,})[^<>:"/\\|?*]+[^ .]$';

  // 检查是否符合盘符路径或者网络路径的格式
  if TRegEx.IsMatch(AFileName, DrivePattern) or TRegEx.IsMatch(AFileName, NetworkPattern) then
  begin
    // 去掉盘符或者网络前缀，剩下的部分检查合法性
    Regex := TRegEx.Create(PathPattern, [roIgnoreCase]);
    
    // 按照目录分割，依次检查每一个路径片段是否合法
    Result := True;
    var Parts := AFileName.Split(['\']);
    for var Part in Parts do
    begin
      if not Regex.IsMatch(Part) then
      begin
        Result := False;
        Break;
      end;
    end;
  end
  else
    Result := False;
end;

procedure TestFileNameValidation;
var
  TestFileName: string;
begin
  TestFileName := 'C:\Program Files\MyApp\data.txt'; // 示例路径
  if IsValidFileNameOrPath(TestFileName) then
    Writeln('文件路径合法')
  else
    Writeln('文件路径不合法');
end;

begin
  TestFileNameValidation;
end.

验证逻辑：

盘符检查：通过正则表达式 ^[a-zA-Z]:\\ 来验证是否以合法的盘符开头（如 C:\、D:\）。
网络路径检查：通过正则表达式 ^\\\\[^<>:"/\\|?*]+\\[^<>:"/\\|?*]+ 来验证网络路径是否合法（如 \\Server\Share）。
路径片段检查：将整个路径按照 \ 拆分为多个部分，逐个检查每个部分（文件夹和文件名）的合法性。使用正则表达式 ^(?!.*[\\/]{2,})[^<>:"/\\|?*]+[^ .]$ 来确保：
- 不能包含非法字符。
- 不允许连续的反斜杠（\\）。
- 不能以空格或点结束。

解释：

盘符和网络路径正则表达式：
- ^[a-zA-Z]:\\：用于检查以合法盘符开头的路径。
- ^\\\\[^<>:"/\\|?*]+\\[^<>:"/\\|?*]+：用于检查网络路径，确保合法的服务器和共享文件夹名称。
路径合法性正则表达式：
- ^(?!.*[\\/]{2,})：负向先行断言，确保没有连续的反斜杠或正斜杠。
- [^<>:"/\\|?*]+[^ .]$：确保文件夹和文件名不包含非法字符，且不能以空格或点结尾。

测试用例：

procedure TestFileNameValidation;
begin
  Writeln(IsValidFileNameOrPath('C:\valid\path\file.txt'));  // 合法
  Writeln(IsValidFileNameOrPath('C:\invalid\\path\file.txt'));  // 不合法 - 连续的反斜杠
  Writeln(IsValidFileNameOrPath('C:\invalid|path\file.txt'));  // 不合法 - 包含非法字符 '|'
  Writeln(IsValidFileNameOrPath('\\server\share\file.txt'));   // 合法 - 网络路径
  Writeln(IsValidFileNameOrPath('\\server\\invalid\file.txt'));  // 不合法 - 连续的反斜杠
  Writeln(IsValidFileNameOrPath('C:\invalidpath\file.'));  // 不合法 - 文件名以点结尾
end;