使用Inno Setup函数修改文件内容

0、inno打开文件操作&字符串操作所需函数原型及解释

　　function LoadStringsFromFile(const FileName: String; var S: TArrayOfString): Boolean;载入指定的文本文件到指定的字串排列。如果成功返回 True，否则返回 False。FileName为打开文件的路径，S是字符串数组，数组的每一项对应一行文本数据。

　　function SaveStringsToFile(const FileName: String; const S: TArrayOfString; const Append: Boolean): Boolean;保存指定的ASCII编码字符排列到指定的文件。如果 Append 是 True，并且指定的文件已经存在，它将附加到文件中，而不是覆盖。如果完成则返回 True，反之返回 False。

　　function Pos(SubStr, S: String): Integer;在 S 内部，从左向右搜索 Substr，并返回一个在 S 中 Substr 的第一个字符索引整数值。如果 Substr 未找到，Pos 返回零。

　　function StringChangeEx(var S: String; const FromStr, ToStr: String; const SupportDBCS: Boolean): Integer;改变所有在 S 中出现的 FromStr 到 ToStr。

1、 判断一个文件是否存在，若存在读出所有内容，并写入另一个文件

procedure test1();
var
  fileName,tempStr:String;
  svArray: TArrayOfString;
  bExist:Boolean;
  nLines,i:Integer;
begin
  fileName := ExpandConstant('{app}Apacheconfhttpd.conf');　　//得到httpd.conf的路径
  bExist := FileExists(fileName); 　　//判断文件是否存在 
  if (bExist = True) then
  begin
    LoadStringsFromFile(fileName, svArray); 　　//从该文件中读出所有的文本保存到字符串数组 svArray中 
    nLines := GetArrayLength(svArray); 
    for i := 0 to nLines - 1 do
    begin
      tempStr := svArray[i];　　//取出每一行
    end;
    SaveStringsToFile(fileName + '.副本', svArray, false);　　//写到副本文件中
  end;
end;

2、修改文件某行，以修改Apache的配置文件httpd.conf为例

procedure test2();
var
  fileName,tempStr:String;
  svArray: TArrayOfString;
  nLines,i:Integer; 
begin 
  fileName := ExpandConstant('{app}Apacheconfhttpd.conf');
  LoadStringsFromFile(fileName, svArray);
  nLines := GetArrayLength(svArray); 
  for i := 0 to nLines - 1 do
  begin
    tempStr := svArray[i];
    if (1 = Pos('ServerRoot', tempStr)) then　　　　//Pos函数，判断当前行是否含有'ServerRoot'子串，返回1表示在1的位置找到子串，若不能找到该子串返回0
    begin
      svArray[i] := ExpandConstant('ServerRoot "{app}Apache"');　　//修改开头是'ServerRoot'那行文本，此时只是修改内存数据的内容，并未写入文件
      StringChangeEx(svArray[i], '', '/', True);　　　　　　//StringChangeEx函数，将字符串中所有的符号替换为符号/
    end;
    if (1 = Pos('Listen', tempStr)) then 　　　　　　　　//找到端口配置行
      svArray[i] := 'Listen 80';　　　　　　　　　　　　//修改Apache端口号
    if (1 = Pos('DocumentRoot', tempStr)) then
    begin 
      svArray[i] := ExpandConstant('DocumentRoot "{app}Apachehtdocs"');
      StringChangeEx(svArray[i], '', '/', True);
    end;
    if ((1 = Pos('<Directory', tempStr)) and (Pos('htdocs', tempStr) > 1)) then
    begin
      svArray[i] := ExpandConstant('<Directory "{app}Apachehtdocs">');
      StringChangeEx(svArray[i], '', '/', True);
    end;
  end;
  SaveStringsToFile(fileName, svArray, false);　　　　//最后从内存写回原文件,false表示不追加直接覆盖之前所有内容
end;

 相关链接：文中使用的httpd.conf 下载