TINIFile, mehrere gleiche Sections?

[schwa226]

Hi,

bin gerade auf ein kleines Problem gestoßen!

Was ist, wenn in einem INI-file mehrere gleiche Sections vorhanden sind?
Sagen wir einmal es sind 5 Sections. Ich möchte genau die 3. Section.

Wie sollte man das machen?

Ich kann zwar mit ReadSections alle Sections einlesen, aber nicht direkt eine Section auswählen.
Gibt's da was mit Next oder so?

[DeddyH]

Das habe ich jetzt nicht verstanden. Kannst Du mal eine Beispiel-Ini posten und was Du daraus haben möchtest?

[Tyrael Y.]

Mehrere gleiche Sections sind IMO nicht definiert.
Woher soll eine Methode wissen, um welche Section es sich handlet, wenn es nicht eindeutig ist?

Zitat:

[Daten]
Höhe = 12
Breite = 16

[Daten]
Höhe = 17
Breite = 16

[Daten]
Höhe = 19
Breite = 27

Wie soll hierbei eine Unterscheidung stattfinden?

Zitat:

[Daten_0]
Höhe = 12
Breite = 16

[Daten_1]
Höhe = 17
Breite = 16

[Daten_2]
Höhe = 19
Breite = 27

Sie müssen unterschiedlich sein.

[Bernhard Geyer]

Zitat:

Zitat von schwa226

Was ist, wenn in einem INI-file mehrere gleiche Sections vorhanden sind?

Dann entspricht die INI-Datei nicht den Format einer INI-Datei und ist damit keine INI-Datei.
Hierfür würde sich aber XML anbieten.

Du könntest aber schauen ab du z.B. mit BigIni das trotzdem lesen kannst.

[DeddyH]

Die Frage ist: sind die Sections wirklich gleich benannt oder enthalten sie nur gleiche Schlüssel-Werte-Paare? Aber ohne Beispiel kann man da nur raten.

[schwa226]

Es schaut so aus wie Tyrael Y. gepostet hat.

Hab es jetzt noch nicht getestet, aber ich glaube wenn ich alle Sections in eine Stringlist einlese und diese dann in einer For-Schleife abarbeite wird immer die erste Section genommen da sie ja alle den gleichen Namen haben, oder?

Wie würde ich denn die Datei den als XML eingelesen?

Delphi-Quellcode:

procedure INI2XML(const pINIFileName: string; const pXML: IXMLNode; 
                  const AsAttributes: Boolean = true); 
var 
  lINIFile: TIniFile; 
  lSections, lItems: TStringList; 
  iSections, iItems: integer; 
  lNode: IXMLNode; 
begin 
  lINIFile := TIniFile.Create(pINIFileName); try 
  lSections := TStringList.Create; try 
  lItems := TStringList.Create; try 

  lINIFile.ReadSections(lSections); 

  for iSections := 0 to pred(lSections.Count) do 
  begin 
    lItems.Clear; 
    lINIFile.ReadSection(lSections[iSections],lItems); 
    lNode := pXML.AddChild(StringReplace(lSections[iSections],' ','',[rfReplaceAll])); 
    for iItems := 0 to pred(lItems.Count) do 
    begin 
      if AsAttributes then 
        lNode.Attributes[lItems[iItems]] := 
          lINIFile.ReadString(lSections[iSections],lItems[iItems],'') 
      else 
        lNode.AddChild(lItems[iItems]).Text := 
          lINIFile.ReadString(lSections[iSections],lItems[iItems],''); 
    end; 
    lNode := nil; 
  end; 

  finally lItems.Free; end; 
  finally lSections.Free; end; 
  finally lINIFile.Free; end; 
end;

Diese Funktion z.B. nimmt ja auch lSections[iSections].
Würde also auch immer die erste Section nehmen...

[himitsu]

Das Problem ist, daß eine INI grundsätzlich erstmal (laut ihrer Definition, so wie es damals MS festlegte) keine doppelten Namen für Sektionen oder Werte ermöglichst.

Aber wenn man nicht unbedingt TIniFile (also die INI-APIs) verwenden muß, sondern alternativen verwenden kann...
http://www.delphipraxis.net/internal...103513#1103513


Wenn du die INI aber selber erstellst und ausließt, dann wäre es eigentlich besser, du verwendest en Datenformat, welches sowas von Haus aus kann ... z.B. XML oder Ähnliches.

[schwa226]

Die INI wird leider nicht von mir erzeugt. Somit habe ich darauf keinen Einfluß.

Ich habe das einmal probiert:

Delphi-Quellcode:

    INIFile.ReadSections(Sections);

    for i := 0 to Sections.Count -1 do
      ed_User.Text := INIFile.ReadString(Sections[i], 'name', 'uknown');

Es wird immer die gleiche (erste) Section genommen.

@himitsu: meinst du FastIniFiles?

Geht es damit mehrere gleiche Section-Namen zu unterscheiden?

[DeddyH]

Nunja, im worst case könnte man ja einfach eine TStringlist nehmen und die selber abgrasen.

[himitsu]

Zitat:

Zitat von schwa226

@himitsu: meinst du FastIniFiles?

Geht es damit mehrere gleiche Section-Namen zu unterscheiden?

Ja und ja.

hatte eigentlich extra einen entsprechenden Beitrage verlinkt:

Zitat:

Zitat von TDS

Zitat:

Zitat von himitsu

Wieso sollte man doppelte Sektionen in einer INI haben wollen?

Doppelte Sektionen sind z.B. bei Symantec in einer UPI-Datei. ...

und direkt davor noch

Zitat:

Zitat von TDS

Man benötigt solch eine Unit wenn in der Ini-Datei entweder Leerzeichen in den Sektionen sind bzw. es doppelte Sektionen gibt. Da steigt das normale TIniFile und seine Abkömmlinge aus.

Bei TMemIniFiles könnte man eventuell auch irgendwie rankommen, denn dieses nutzt intern mehrere TStringList, welche sowas unterstützen würde, aber ich weiß nicht, in wie weit man dort an diese Stringlisten rankommt. (Vorteil wäre natürlich, daß diese bei Delphi schon dabei wäre)

Der aktuelle Code versteckt sich in Beitrag #26

[schwa226]

Danke!

Jedoch geht von Haus das mit den Doppelten INI-Sections bei FastIniFiles 3.3a bei mir nicht.

Wenn ich die Überprüfung ob die Section schon in der Liste ist dekativiere geht es:

Delphi-Quellcode:

                  // Sektionsnamen kopieren
                  Buf := Trim(Copy(Buf, 2, RBrPos - 2));
//                  if SectionIndex(Buf) = -1 then
//                  begin
                    // Sektion hinzufügen
                    SetLength(Entries, Length(Entries) + 1);
                    Entries[High(Entries)] := TFIniSection.Create(Buf);
                    CurrentSection := High(Entries);
                    // Ggf. Kommentar speichern
                    if CBuf <> '' then
                      (Entries[High(Entries)] as TFIniSection).Comment := CBuf;
                    // Ansonsten Fehler (Eintrag mehrfach definiert)
//                  end
//                  else
//                    isFileValid := False
                      // Syntaxfehler, wenn Sektionsname leer ist

Nun werden alle Sections in die Liste aufgenommen. Mit EnterSection wird dann auch die richtige ausgewählt.

Danke!

[himitsu]

Komisch, ich dachte das geht automatisch/immer ... kann mich nicht erinner, daß TDS mal erwähnt hat, daß er für diese Funktion extra was umbauen muß. :gruebel:

probier mal diese Version:
http://www.delphipraxis.net/internal...131614#1131614

[schwa226]

Danke!

Die 3.3b geht!

Habe das noch hinzugefügt:

Delphi-Quellcode:

function TFIniFile.AddSection(const nName: string = ''): Integer;
var
  Buf : String;
begin
  if (nName = '') then
  begin
    raise EArgumentException.Create('AddSection braucht einen Namen!');
    Result := -1;
  end
  else begin
    SetLength(Entries, Length(Entries) + 1);
    Entries[High(Entries)] := TFIniSection.Create(nName);
    Result := High(Entries);
  end;
end;

Wenn mehrere gleiche Sections vorhanden sind konnte ich keine neue, mit gleichen Section Namen erzeugen.
Mit AddSection wird die neue Section mit gleichem Namen auf jeden Fall angelegt.
Result ist der Index der neuen Section.