Discussion :

[yann87]

Bonjour,

Voila le code que j'essai de lire la totalité d'un fichier .INI

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Section:=TStringList.Create;
audits.ReadSections(Section);
try
  For Compteur:=0 to Section.Count-1 do
  begin
  // Lecture des valeurs de la section Section[Compteur]
    Memo1.Lines.Add(#13#10+'['+Section[Compteur]+']');
    audits.ReadSectionValues(Section[Compteur],Memo1.Lines);
  end;
finally
  Section.Free;
  audits.Free;
end ;

1. Peut-on remplacer "Memo1.Lines" par une chaine de type String

2. Je n'arrive à lire les [Section] avec leur NomDeCle et leurs valeur

[Transactions]
Nombre de consommations=1
nombre total=4
Nom=1
Prenom=1
Numero de Badge=1
Date de consommations=1
Commentaires=1
Nombre de consommations=1
[1]
Nom=1
Prenom=1
Numero de Badge=1
Date de consommations=1
Commentaires=1
Nombre de consommations=1
[2]
Nom=
Prenom=
Numero de Badge=
Date de consommations=
Commentaires=
Nombre de consommations=

[ShaiLeTroll]

Balise CODE svp,

1. Non, il faut un objet de type TStrings (une TStringList par exemple) et non une variable string

2. Pour ma part, je n'utilise pas ReadSectionValues, je préfère lire valeur par valeur dans une boucle

3.

un code approximatif :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  Sections := TStringList.Create;
  try
    Keys := TStringList.Create;
    try
      IniFile.ReadSections(Sections);
      for iSection := 0 to Sections.Count - 1 do
      begin
        Memo.Lines.Add(Format('[%s]', [Sections[iSection]]));
        IniFile.ReadSection(Sections[iSection], Keys);
        for iKey := 0 to Keys.Count - 1 do
        begin
          Memo.Lines.Add(Format('%s=%s', [Keys[iKey], IniFile.ReadString(Sections[iSection], Keys[iKey], '')); 
        end;      
      end;
    finally
      Keys.Free;
    end;
  finally
    Section.Free;
  end;

[Yurck]

1. Peut-on remplacer "Memo1.Lines" par une chaine de type String

NON

2. Je n'arrive à lire les [Section] avec leur NomDeCle et leurs valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function LireUneValeurDeMaSection(FileName, NomdeMaSection, NomDeMaValeur : string) : string;
Var
  audits : TIniFile;
  ContenuSection : TStringList;
begin
  audits := TIniFile.Create(FileName);
  ContenuSection := TStringList.create;
  try
     audits.ReadSectionValues(NomdeMaSection, ContenuSection);
     Result := ContenuSection.values[NomDeMaValeur];
  finally
    ContenuSection.Free;
    audits.Free;
    end ;
 end ;

[yann87]

Merci Yurck

J'ai n'ai pas tout les éléments mais j'ai un peu modifier et cela retourne bien un string. Merci

[ShaiLeTroll]

Euh, LireUneValeurDeMaSection c'est pas une version compliqué de ReadString du TIniFiles ?

[Yurck]

Euh, LireUneValeurDeMaSection c'est pas une version compliqué de ReadString du TIniFiles ?

Certes , il vaut mieux faire simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Memo.Lines.Add(Format('%s=%s', [Keys[iKey], IniFile.ReadString(Sections[iSection], Keys[iKey], ''));

c'est dingue quand on ne lit pas les questions qu'on puisse autant répondre à côté.