Breaking News: Grepper is joining You.com. Read the official announcement!

inno script to replace word in file

dominik sobota answered on May 17, 2022 Popularity 1/10 Helpfulness 1/10

answer inno script to replace word in file

inno script to replace word in file

Comment

function FileReplaceString(const FileName, SearchString, ReplaceString: string):boolean;
var
  MyFile : TStrings;
  MyText : string;
begin
  MyFile := TStringList.Create;

  try
    result := true;

    try
      MyFile.LoadFromFile(FileName);
      MyText := MyFile.Text;

      { Only save if text has been changed. }
      if StringChangeEx(MyText, SearchString, ReplaceString, True) > 0 then
      begin;
        MyFile.Text := MyText;
        MyFile.SaveToFile(FileName);
      end;
    except
      result := false;
    end;
  finally
    MyFile.Free;
  end;
end;

Popularity 1/10 Helpfulness 1/10 Language whatever

Source: stackoverflow.com

Tags: file replace script whatever word

Link to this answer
Share Copy Link