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;