Détecter si espace entre section dans fichier ini !

**cincap** · 26/10/2012, 12h05

Bonjour à toutes et à tous,

D'après ce que j'ai lu, je ne pense pas que l'on sait ajouter un espace entre les sections d'un fichier *.ini directement pendant la création et avant/après la sauvegarde, avec Win 95 cela se faisait automatiquement.

Ma question est dans le titre, car si on peut détecter qu'il existe cet espace dans ce fichier, alors on ne l'ajoute pas par une procedure (chargement fichier ini, insert une ligne, sauvegarde fichier ini).

Ceci afin d'éviter d'ajouter chaque fois une ligne dans ce fichier ini.

Merci de l'aide éventuelle.

@+,

Cincap

**ShaiLeTroll** · 26/10/2012, 15h30

Win95 ajoutait une ligne avant la section, bien un truc dont je ne me rappelais pas
Win98 devait le faire aussi, je suppose
C'est vrai que cela aide la lecture !
Récemment, j'ai fait un petit programme qui gère toute ses configs en ini, il était tout serré (le fichier n'existant pas au début, il est complètement créé)

Une méthode basique, une TStringList, tu charge l'intégralité du fichier, un truc genre

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
LastIsEmpty := false;
SL.LoadFromFile(IniFile);
Index := 0;
SectionCount := 0;
while Index < SL.Count do
begin 
  S := Trim(SL[Index]);
  L := Length(S);  
  if LastIsEmpty and (SectionCount > 1) and (L >= 2) and ((S[1] = '[') and S[L] = ']')) then
  begin
    SL.Insert(Index, '');
    Inc(SectionCount);    
    Inc(Index);    
  end;
 
  LastIsEmpty := (L = 0);
  Inc(Index); 
end;

**cincap** · 26/10/2012, 16h17

@ ShaiLeTrool, merci de ta réponse, j'avais fait ceci :

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
 
var
f: TStrings;
i: Integer; 
begin
 f := TStringList.Create;
 try
 f.LoadFromFile(IniFile);
 for i := Pred(f.Count) downto 1 do
if (f[i] <> '') and (f[i][1] = '[') then 
f.Insert(i, '');
 f.SaveToFile(IniFile);
finally
f.Free;
end;
 end;

Cela ressemble à ta suggestion.

Cela fonctionne correctement dès que le fichier ini est existant, seul hic si tu inclus cet automatisme dans le projet, à chaque onclose, tu auras les sections de ton fichier ini qui aura un espace de plus.

D'ou ma question de détecter si il existe un espace entre deux sections d'un fichier ini.

@+,

Cincap

**ouiouioui** · 26/10/2012, 18h35

En rajoutant une verif si ligne vide déjà présente ?

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
Var
  f: TStrings;
  I: Integer;
Begin
  f       := TStringList.Create;
  Try
    f.LoadFromFile(IniFile);
    For I := f.Count - 1 Downto 2 Do
      If (f[I] <> '') And (f[I][1] = '[') And (f[I - 1] <> '') Then
        f.Insert(I, '');
    f.SaveToFile(IniFile);
  Finally
    f.Free;
  End;
End;

**ShaiLeTroll** · 26/10/2012, 18h55

Envoyé par cincap

Cela ressemble à ta suggestion.
...
D'ou ma question de détecter si il existe un espace entre deux sections d'un fichier ini.

Tu n'as pas lu mon code !

LastIsEmpty ne t'a même pas mis la puce à l'oreille

**cincap** · 26/10/2012, 23h43

@ ShaiLeTroll, en effet tu as raison, désolé pour cet égarement, mais très préoccupé pour des problèmes de santé ce qui ne me justifie pas.

@ 3 x oui, si je comprends bien il n'y avais pas de solution directement dans l'écriture du fichier ini.

Je vais aussi tester le tout demain.

Merci à vous deux et bonne soirée.

@+,

Cincap

**Dr.Who** · 27/10/2012, 01h57

uses IniFiles;

Var Ini : TIniFile ?

Ou c'est juste pour le fun d'interpréter les INI ?

**cincap** · 27/10/2012, 10h50

Bonjour à toutes et à tous,

@ Dr. Who,

Var Ini : TIniFile ?

merci du rappel pour l'uses mais forcément, mon projet utilise "IniFiles" puisque je crée l'écriture de mes paramètres en sortie !

@ ShaiLeTrool, j'ai voulu tester ton code et erreur sur "LastIsEmpty" quelles sont donc tes variables, car je suis certains que c'est cela mon problème ?

@ 3xoui, super cette petite modif de mon code, cela fonctionne correctement et un seul espace, j'ai même testé en ajoutant des signe (= ~ ect...).

Topic parfaitement résolu grâce à vous.

Encore merci à tous.

@+,

Cincap

**tourlourou** · 27/10/2012, 11h50

erreur sur "LastIsEmpty" quelles sont donc tes variables, car je suis certains que c'est cela mon problème ?

Quelle erreur ?

**cincap** · 27/10/2012, 12h16

@ Tourlourou, bonjour, la variable est "boolean" et l'erreur se produit içi :

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
21
22
23
24
25
26
27
28

var
sl: TStrings;
index,sectioncount,l : Integer;
s : string;
LastIsEmpty : boolean;

begin
LastIsEmpty := false;
SL.LoadFromFile(Edfichier.Text);
Index := 0;
SectionCount := 0;

while Index < SL.Count do
begin
S := Trim(SL[Index]);
L := Length(S);
if LastIsEmpty and (SectionCount > 1) and (L >= 2) and ((S[1] = '[') and S[L] = ']')) then
begin
    SL.Insert(Index, '');
    Inc(SectionCount);
    Inc(Index);

 end;
  LastIsEmpty := (L = 0);
  Inc(Index);
end;

Message erreur "Operateur non applicable à ce type d'opérande".

@+,

Cincap (D6 et Seven 64Bits)

**Andnotor** · 27/10/2012, 12h35

Il manque une parenthèse. (S[1] = '[') and S[L] n'est pas un test valide.

Code :

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

if LastIsEmpty and (SectionCount > 1) and (L >= 2) and ((S[1] = '[') and (S[L] = ']')) then

**cincap** · 27/10/2012, 13h23

@ AndNotOr, merci de ta correction mais j'ai encore une erreur utilisé telquel.

S'arrête ici sans message "while Index < SL.Count do".

De plus j'ai du rajouter la création/destruction du "TStringList";

Je recopie le code complet de ShaiLeTroll :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
var

sl: TStrings;
index,sectioncount,l : Integer;
s : string;
LastIsEmpty : boolean;

begin

LastIsEmpty := false;

SL:= TStringList.Create;
SL.LoadFromFile(Edfichier.Text);

Index := 0;
SectionCount := 0;

while Index < SL.Count do //Erreur ici
begin
  S := Trim(SL[Index]);
  L := Length(S);
  if LastIsEmpty and (SectionCount > 1) and (L >= 2) and ((S[1] = '[') and (S[L] = ']')) then
  begin
    SL.Insert(Index, '');
    Inc(SectionCount);
    Inc(Index);
  end;

  LastIsEmpty := (L = 0);
  Inc(Index);

  SL.Free;
end;

Pour ma part, je ne vois pas ou cela cale.

@+,

Cincap

**tourlourou** · 27/10/2012, 15h02

non testé :

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
21
22
23
24
25
26
27
28
29
30
31
32
var
  sl: TStringList;
  index, sectioncount, l: Integer;
  s : string;
  LastIsEmpty : boolean;
 
begin
  SL:= TStringList.Create;
  SL.LoadFromFile(Edfichier.Text);
 
  LastIsEmpty := false;
  Index := 0;
  SectionCount := 0;
 
  while Index < SL.Count do 
  begin
    S := Trim(SL[Index]);
    L := Length(S);
    if LastIsEmpty and (SectionCount > 1) and (L >= 2) and ((S[1] = '[') and (S[L] = ']')) then
    begin
      SL.Insert(Index, '');
      Inc(SectionCount);
      Inc(Index);
    end;
 
    LastIsEmpty := (L = 0);
    Inc(Index);
  end;
 
  SL.Free; // c'est mieux de le sortir de la boucle while...
 
end;

**cincap** · 27/10/2012, 16h50

@ tourlourou, cela se compile mais aucune action sur le fichier "*.ini"

Seul mon code avec en supplément la détection d'une ligne vide par 3xoui, me donne satisfaction.

Par contre, ce serait utile de comprendre pourquoi la suggestion de ShaiLeTroll ne fonctionne pas ainsi que ta solution.

Ce serait facile à tester avec un simple fichier "*.ini" et un Tedit.

Edit : au fait je ne vois pas ou est la sauvegarde du fichier *.ini modifié soit "SL.SaveToFile(Edfichier.Text);"

@+,

Cincap

**tourlourou** · 27/10/2012, 18h59

L'aide et le code fournis sur le forum ne sont pas systématiquement tout prêts à être intégrés... Il a fallu que tu ajoutes la création du StringList, que tu devines le type des variables ; s'il faut ajouter un Save, ce n'est pas le bout du monde, et d'ailleurs tu l'as fort bien vu !

Pour l'efficacité du code, bien souvent, les propositions sont tapées dans le forum et non vérifiées dans l'EDI, d'où des syntaxes aléatoires : parenthèses manquantes, noms de fonctions approximatifs (ma spécialité), etc.

Le cœur du problème est la mécanique du code : s'il ne fournit pas le résultat prévu, pour permettre aux contributeurs qui ne peuvent pas ou ne veulent pas ouvrir leur EDI pour tester, mieux vaut bien expliquer les erreurs, donner les messages, les lignes en cause, voire les valeurs testées.

En lisant le code, il devient évident (sachant qu'il ne fonctionne pas), que SectionCount n'étant jamais incrémenté, ça explique bien des choses...
Il doit donc suffire de modifier la condition en

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
var
  sl: TStringList;
  index, sectioncount, l: Integer;
  s : string;
  LastIsEmpty : boolean;
 
begin
  SL:= TStringList.Create;
  SL.LoadFromFile(Edfichier.Text);
 
  LastIsEmpty := false;
  Index := 0;
  SectionCount := 0;
 
  while Index < SL.Count do 
  begin
    S := Trim(SL[Index]);
    L := Length(S);
 
    if (L >= 2) and ((S[1] = '[') and (S[L] = ']')) then
    begin // new section
      Inc(SectionCount);
      if (SectionCount > 1) and not LastIsEmpty then
      begin // si section 2 et suivantes, sans saut de ligne la précédant
        SL.Insert(Index, '');
        Inc(Index);
      end;
    end;
 
    LastIsEmpty := (L = 0);
    Inc(Index);
  end;
 
  SL.SaveToFile(Edfichier.Text);
  SL.Free; 
 
end;

autre solution, théoriquement valide (cad qui ne marche pê pas !), si tu n'as pas de '[' ailleurs que dans les titres de sections :

Code :

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

1
2
AnsiReplaceStr(SL.Text, sLineBreak+'[', '', [rfReplaceAll]); // syntaxe à vérifier
AnsiReplaceStr(SL.Text, '[', sLineBreak+'[', [rfReplaceAll]);

**cincap** · 27/10/2012, 19h20

@ tourlourou, cette fois c'est gagné.

Je te remercie pour ta patience, me voila un peu plus malin à 60 berges.

@+,

Cincap

**ShaiLeTroll** · 29/10/2012, 12h03

Envoyé par tourlourou

Pour l'efficacité du code, bien souvent, les propositions sont tapées dans le forum et non vérifiées dans l'EDI, d'où des syntaxes aléatoires : parenthèses manquantes, noms de fonctions approximatifs (ma spécialité), etc.

Clair, j'ai mis ça brut de décoffrage, et encore, vu que je suis sous C++Builder depuis 2 ans, je mélange les deux, si vous aviez vu le premier jet, il manquait les then et j'avais parfais du == ou = pour la condition

C'est bien pour cela que j'ai mis "un truc genre : " sinon j'aurais mis "une fonction prête à l'emploi : "
En général, soit j'ai déjà la fonction, soit n'ayant jamais fait un équivalent, cela fait un mini-défi à relever !

Sinon, par habitude, j'évite les algo en for to ou for downto avec Insert, on est pas à l'abris de boucle infinie d'où mon while complètement foireux sur l'incrément !

@tourlourou, la solution en AnsiReplaceStr, j'y ai pensé mais j'ai pas osé !

**Andnotor** · 29/10/2012, 13h12

A noter encore que seul le premier "[" (indépendamment des espaces) fait foi pour une entête de section. Ceci, même très laid, est parfaitement valide

Code :

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