[英]Find and read specific string from config file with Pascal Script in Inno Setup
I have quite long config file and I need to extract specific strings from the file. 我有很长的配置文件,我需要从文件中提取特定的字符串。 What I want to extract/read is InstallDir for specific number position eg for 20540.
我想要提取/读取的是针对特定数字位置的InstallDir,例如20540。
I know how to find string in INI or XML, but cannot handle this form of file. 我知道如何在INI或XML中查找字符串,但无法处理这种形式的文件。
Piece of the file that shows structure: 显示结构的文件片段:
"212280"
{
"InstallDir" "D:\\XYZ\\stu\\opr"
"UpdateKBtoDL" "0"
"HasAllLocalContent" "1"
"UpToDate" "1"
"DisableAutoUpdate" "0"
}
"20540"
{
"UpdateKBtoDL" "0"
"InstallDir" "C:\\ABC\\def\\ghi"
"HasAllLocalContent" "1"
"UpToDate" "1"
"maintenance_time" "1339663134"
"DisableAutoUpdate" "0"
}
"4560"
{
"UpdateKBtoDL" "0"
"HasAllLocalContent" "0"
"UpToDate" "0"
"InstallDir" ""
}
You'll need to write your own parser. 你需要编写自己的解析器。 This might be one possible implementation:
这可能是一种可能的实现:
[Code]
function GetInstallDir(const FileName, Section: string): string;
var
S: string;
DirLine: Integer;
LineCount: Integer;
SectionLine: Integer;
Lines: TArrayOfString;
begin
Result := '';
S := '"' + Section + '"'; // AddQuotes is broken somehow...
if LoadStringsFromFile(FileName, Lines) then
begin
LineCount := GetArrayLength(Lines);
for SectionLine := 0 to LineCount - 1 do
if Trim(Lines[SectionLine]) = S then
begin
if (SectionLine < LineCount) and (Trim(Lines[SectionLine + 1]) = '{') then
for DirLine := SectionLine to LineCount - 1 do
begin
if (Pos('"InstallDir"', Lines[DirLine]) > 0) and
(StringChangeEx(Lines[DirLine], '"InstallDir"', '', True) > 0) then
begin
S := RemoveQuotes(Trim(Lines[DirLine]));
StringChangeEx(S, '\\', '\', True);
Result := S;
Exit;
end;
if Trim(Lines[DirLine]) = '}' then
Exit;
end;
Exit;
end;
end;
end;
procedure InitializeWizard;
begin
MsgBox(GetInstallDir('d:\File.almostjson', '20540'), mbInformation, MB_OK);
end;
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.