InnoSetup中枚举出INI文件的所有sections和键值

原文 http://blog.chinaunix.net/uid-23480430-id-3016899.html

InnoSetup支持一些INI文件操作函数,

例如GetIniString,IniKeyExists等等。。
利用这些已有的函数,读取/删除/检测键值是否存在,都没有问题。
 
但是,想要列出一个INI文件有哪些Sections, 
某个Section下面有哪些键值,
就没法做到了。
 
所幸InnoSetup有个很好用的 LoadStringsFromFile 函数,
用来读取文本文件很方便,读INI自然不在话下。
然后再做一点简单的解析,就能得到一个INI中所有的sections和键值了。
 
实现两个函数如下:
 
读取INI文件中有哪些Sections, 并将其名字存放到 Arr数组里。
procedure IniGetSections(var Arr: Array of String; const Path: String);
 
读取INI文件的某个Section底下,有哪些键名,并将这些键名存放到Arr数组里。
procedure IniGetKeys(var Arr: Array of String; const Path: String; const Section: String);
 
  1. procedure ArrayAddStr(var Arr: Array of String; Str: String);
  2. var
  3.   Len: Longint;
  4. begin
  5.   Len := GetArrayLength(Arr);
  6.   SetArrayLength(Arr, Len + 1);
  7.   Arr[Len] := Str;
  8. end;
  9. //-- INI
  10. function IniGetSectionName(Line: String; var Name: String): Boolean;
  11. var
  12.   P0, P1: Integer;
  13. begin
  14.     Line := TrimLeft(Line);
  15.     P0 := Pos('[', Line);
  16.     P1 := Pos(']', Line);
  17.     if (P0 = 1) and (P1 > P0 + 1) then begin
  18.       Name := Copy(Line, P0 + 1, P1 - P0 - 1);
  19.       Result := True;
  20.     end
  21.     else
  22.       Result := False;
  23. end;
  24. function IniGetKeyName(Line: String; var Name: String): Boolean;
  25. var
  26.   P0, P1: Integer;
  27. begin
  28.   Line := TrimLeft(Line);
  29.   P0 := Pos('=', Line);
  30.   P1 := pOS(';', Line); //; is start of comment
  31.   if (P0 > 1) and ((P1 = 0) or (P1 > P0)) then begin
  32.     Name := Trim(Copy(Line, 1, P0 - 1));
  33.     Result := True;
  34.   end
  35.   else
  36.     Result := False;
  37. end;
  38. procedure IniGetSections(var Arr: Array of String; const Path: String);
  39. var
  40.   i: Longint;
  41.   Name: String;
  42.   Lines: Array of String;
  43. begin
  44.   SetArrayLength(Arr, 0);
  45.   if not LoadStringsFromFile(Path, Lines) then exit;
  46.   for i := 0 to GetArrayLength(Lines) - 1 do begin
  47.     if IniGetSectionName(Lines[i], Name) then ArrayAddStr(Arr, Name);
  48.   end;
  49. end;
  50. procedure IniGetKeys(var Arr: Array of String; const Path: String; const Section: String);
  51. var
  52.   i: Longint;
  53.   Name: String;
  54.   Lines: Array of String;
  55. begin
  56.   SetArrayLength(Arr, 0);
  57.   if not LoadStringsFromFile(Path, Lines) then exit;
  58.   for i := 0 to GetArrayLength(Lines) - 1 do begin
  59.     if IniGetSectionName(Lines[i], Name) then begin
  60.       if CompareText(Name, Section) = 0 then break;
  61.     end;
  62.   end;
  63.   if i < GetArrayLength(Lines) then begin
  64.     { The section is }
  65.     for i := i + 1 to GetArrayLength(Lines) - 1 do begin
  66.       if IniGetSectionName(Lines[i], Name) then break
  67.       else if IniGetKeyName(Lines[i], Name) then ArrayAddStr(Arr, Name);
  68.     end;
  69.   end;
  70. end;

你可能感兴趣的:(set)