Inno Setup - 如何在安裝過程中從文本文件中編輯特定行？

Question

我需要使用Inno Setup從文本文件編輯特定行。我需要我的安裝程序來查找此行（"appinstalldir" "C:MYXFOLDER\\apps\\common\\App70"）並使用安裝程序中的目錄路徑。

這是我想使用的代碼：

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" 
    } 
} 

Answer 1

該代碼可以做到這一點。但是請注意，如果標籤的值由引用字符括起來，一旦它找到TagName參數指定的標籤，則此代碼不會檢查該標籤的值，它會切斷該行的其餘部分並附加TagValue參數給出的值：

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;