求可删除文本文件指定首尾字符间内容的Delphi代码

针对你需要删除首尾字符（如[和]）之间所有内容的需求，最便捷的方式是使用正则表达式处理，以下是适配Delphi XE5的实现方案：

1. 小文件处理（一次性加载） #

适合文件体积较小的场景，直接读取全部内容处理后写回：

uses
  SysUtils, IOUtils, PerlRegEx;

procedure RemoveEnclosedSubstrings(const FilePath: string; const StartChar, EndChar: Char);
var
  FileContent: string;
  RegEx: TPerlRegEx;
begin
  if not FileExists(FilePath) then
    raise Exception.Create('指定文件不存在');

  // 读取文件全部内容
  FileContent := TFile.ReadAllText(FilePath);

  // 初始化正则匹配器
  RegEx := TPerlRegEx.Create(nil);
  try
    // 构建正则模式：非贪婪匹配StartChar到EndChar之间的所有内容（含首尾字符）
    RegEx.RegEx := '\' + StartChar + '.*?\' + EndChar;
    RegEx.Subject := FileContent;
    RegEx.Replacement := '';
    RegEx.ReplaceAll; // 替换所有匹配项

    // 将处理后的内容写回文件
    TFile.WriteAllText(FilePath, RegEx.Subject);
  finally
    RegEx.Free;
  end;
end;

调用示例 #

// 删除test.txt中所有[]包裹的内容
RemoveEnclosedSubstrings('test.txt', '[', ']');

2. 大文件处理（逐行读取） #

针对大文件，避免一次性加载占用过多内存，采用逐行处理的方式：

uses
  SysUtils, PerlRegEx;

procedure RemoveEnclosedSubstringsLargeFile(const SourceFile, DestFile: string; const StartChar, EndChar: Char);
var
  Source, Dest: TextFile;
  Line: string;
  RegEx: TPerlRegEx;
begin
  if not FileExists(SourceFile) then
    raise Exception.Create('源文件不存在');

  RegEx := TPerlRegEx.Create(nil);
  try
    RegEx.RegEx := '\' + StartChar + '.*?\' + EndChar;
    RegEx.Replacement := '';

    // 打开源文件和目标文件
    AssignFile(Source, SourceFile);
    Reset(Source);
    AssignFile(Dest, DestFile);
    Rewrite(Dest);
    try
      while not Eof(Source) do
      begin
        Readln(Source, Line);
        RegEx.Subject := Line;
        RegEx.ReplaceAll;
        Writeln(Dest, RegEx.Subject);
      end;
    finally
      CloseFile(Source);
      CloseFile(Dest);
    end;
  finally
    RegEx.Free;
  end;
end;

调用示例 #

// 处理large.txt，将结果保存到large_processed.txt
RemoveEnclosedSubstringsLargeFile('large.txt', 'large_processed.txt', '[', ']');

关键说明 #

• 非贪婪模式：正则中的.*?是核心，确保匹配到最近的结束字符（而非从第一个开始字符到最后一个结束字符的全部内容）。
• 跨行长匹配：如果存在子串跨行的情况（如一行末尾是[，下一行开头是]），可调整正则选项为RegEx.Options := [roSingleLine]，并改为分块读取文件内容（而非逐行），避免遗漏匹配。
• 依赖单元：Delphi XE5自带PerlRegEx单元，无需额外安装组件；IOUtils单元用于简化文件读写操作。

内容的提问来源于stack exchange，提问作者Joko Budiman