Inno Setup-如何在设置过程中从文本文件编辑特定行?

问题描述

我需要使用Inno Setup编辑文本文件中的特定行.我需要安装程序来查找此行("appinstalldir" "C:MYXFOLDER\\apps\\common\\App70")，并使用安装程序中的目录路径.

I need to edit a specific line from a text file using Inno Setup. I need my installer to find this line ("appinstalldir" "C:MYXFOLDER\\apps\\common\\App70") and use the directory path from the installer.

这是我要使用的代码:

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then
  begin
    SaveStringToFile(
      ExpandConstant('{app}\app70.txt'),
      'directory's path' + '\\apps\\common\\App70', True);
  end;
end;

这是我的文本文件:

"App"
{
    "appID"     "70"

    {
        "appinstalldir"     "C:MYXFOLDER\\apps\\common\\App70"
    }
}

推荐答案

此代码可以做到.但是请注意，该代码不会检查，如果标记的值包含在引号字符中，则一旦找到TagName参数指定的标记，它就会切断其余部分并附加由TagValue参数:

This code can do it. But note, that this code doesn't check, if the value for the tag is enclosed by quote chars, once it finds a tag specified by TagName parameter, it cuts off the rest of the line and appends the value given by TagValue parameter:

function ReplaceValue(const FileName, TagName, TagValue: string): Boolean;
var
  I: Integer;
  Tag: string;
  Line: string;
  TagPos: Integer;
  FileLines: TStringList;
begin
  Result := False;
  FileLines := TStringList.Create;
  try
    Tag := '"' + TagName + '"';
    FileLines.LoadFromFile(FileName);
    for I := 0 to FileLines.Count - 1 do
    begin
      Line := FileLines[I];
      TagPos := Pos(Tag, Line);
      if TagPos > 0 then
      begin
        Result := True;
        Delete(Line, TagPos + Length(Tag), MaxInt);
        Line := Line + ' "' + TagValue + '"';
        FileLines[I] := Line;
        FileLines.SaveToFile(FileName);
        Break;
      end;
    end;
  finally
    FileLines.Free;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  NewPath: string;
begin
  if CurStep = ssDone then
  begin
    NewPath := ExpandConstant('{app}') + '\apps\common\App70';
    StringChangeEx(NewPath, '\', '\\', True);

    if ReplaceValue(ExpandConstant('{app}\app70.txt'), 'appinstalldir',
      NewPath)
    then
      MsgBox('Tag value has been replaced!', mbInformation, MB_OK)
    else
      MsgBox('Tag value has not been replaced!.', mbError, MB_OK);
  end;
end;

这篇关于Inno Setup-如何在设置过程中从文本文件编辑特定行?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！