文本文件读写TextFile

最新推荐文章于 2023-02-13 22:26:52 发布

weixin_30437847

最新推荐文章于 2023-02-13 22:26:52 发布

阅读量212

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/zousheng7018/archive/2012/10/17/2727205.html

本文介绍了一个用于在ANSI类型的TXT文件中搜索特定字符串并选择性替换的功能。通过使用Delphi提供的文本处理方法，该功能能够遍历指定文件，查找目标字符串，并根据需求进行替换操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

{对Txt文件进行替换，ANSI类型}
function TForm22.SearchFile(const FileName, SearchText: string;
IsReplace: boolean; const ReplaceText: string): boolean;
var
inFile: TextFile;
inString: String;
Temp: TStringList;
bool: boolean;
begin
Temp := TStringList.Create;
assignFile(inFile, FileName);             //关联文本文件
reset(inFile);
while not Eof(inFile) do                 //文本未读完
begin
    readln(inFile, inString);
    Temp.Add(inString);
end;
CloseFile(inFile);                  //关掉文件，不然不能直接保存
if pos(SearchText, temp.Text) <> 0 then         {表示inString中有一句话SearchText}
begin
      bool := true;
      bl := true;
      fileNum := fileNum + 1;
      if IsReplace then
      begin
        temp.Text := StringReplace(temp.Text, SearchText, ReplaceText, [rfReplaceAll]);       //替换
        temp.SaveToFile(FileName);
      end;
end
else
begin
    bool := false;
end;
Temp.Free;
StatusBar1.Panels[0].Text := '找到 ' + IntToStr(fileNum) + ' 个文件';
result := bool;
end;