引言: 請問各位高手，如何在硬碟中搜尋文字檔內文裡的 AAA 字串直接改為 BBB 字串存檔，是否有範例可供參考，謝謝！ 發表人 - WENBERG 於 2003/01/12 16:11:58

• 搜尋硬碟目錄裡的.TXT檔案(用FindFirst、FindNext、FindClose函數)

var sr:TSearchRec;
    f:integer;
{...}
f:=FindFirst('C:\*.TXT',faAnyFile,sr);
while f=0 do
  begin
    {...讀入檔案、代換字串、寫回檔案...}
    f:=FindNext(sr);
  end;
FindClose(sr);    

• 將搜尋到的檔案讀入，利用StringReplace函數將'AAA'代換成'BBB'，再寫回檔案

StringReplace(AString,'AAA','BBB',[rfReplaceAll])

• 檔案的讀取、寫回可以利用TStringList來完成

procedure TextFilesReplace(BaseDir:TFileName; OldPattern, NewPattern:string);
var sr:TSearchRec;
    find:integer;
    ss:TStrings;
begin
  if BaseDir[Length(BaseDir)]<>'\' then BaseDir:=BaseDir '\';
  ss:=TStringList.Create;
  try
    find:=FindFirst(BaseDir '*.txt',faAnyFile,sr);
    While find=0 do
      begin
        if UpperCase(ExtractFileExt(sr.Name))='.TXT' then
          begin
            ss.LoadFromFile(BaseDir sr.Name);
            ss.Text:=StringReplace(ss.Text,OldPattern,NewPattern,[rfReplaceAll]);
            ShowMessage(ss.Text);
            ss.SaveToFile(BaseDir sr.Name);
          end;
        find:=FindNext(sr);
      end;
    FindClose(sr);
  finally
    ss.Free;
  end;    end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  TextFilesReplace('C:\','AAA','BBB');
end;