Discussion :

[ddubois]

J'ai une routine pour enregistrer le contenu d'un TStringGrid dans un fichier et auquel j'ai rajouté un titre au document.

Lorsque j'ouvre le document avec un OpenDialog, j'aimerais pouvoir tester si un titre existe ou non au début du fichier etauquel cas le demander (via un inputbox). Comment faire ce test ?

Voci les 2 codes correspondants :

Le code pour enregistrer le fichier :

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
 
procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var f:    TextFile;
    i, k: Integer;
begin
  AssignFile(f, FileName);
  Rewrite(f);
  with StringGrid do
  begin
    Writeln(f, 'Mon Titre'); //Insérer un titre
    Writeln(f, ColCount);   //Ecrire le nb de colonnes
    Writeln(f, RowCount);   //Ecrire le nb de lignes
    // Boucler sur les cellules
    for i := 0 to ColCount - 1 do    //ou i et k :=0 ou 1
      for k := 0 to RowCount - 1 do
        Writeln(F, Cells[i, k]);
  end;
  CloseFile(F);
end;

Le code pour lire le fichier :

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
 
  AssignFile(f, FileName);
  Reset(f);
  with StringGrid do
  begin
    // Récuperer le titre du document:
    Readln(f, xTmp);
    DocTitle := xTmp;
      //ShowMessage (DocTitle);
    // Obtenir le nombre de colonnes:
    Readln(f, iTmp);
    ColCount := iTmp;
    // et de lignes
    Readln(f, iTmp);
    RowCount := iTmp;
    // remplir les cellules:
    for i := 0 to ColCount - 1 do     //ou i et k := 0 ou 1
      for k := 0 to RowCount - 1 do
      begin
        Readln(f, strTemp);
        Cells[i, k] := strTemp;
      end;
  end;
  CloseFile(f);

Grand merci pour votre aide,

Denis

[ShaiLeTroll]

Impossible dans un fichier texte pur, ce n'est que du texte, il faudrait soit faire une balise genre TITLE="" au début du fichier, ... ou mettre un caractère spécial pour indiquer le titre, bien sur, si ton fichier est modifié par un autre programme tu peux perdre tes marquages ...

[ALWEBER]

En complément : Tu peux utiliser les TIniFiles

[ddubois]

J'ai appris que c'est rarement impossible en programmation...

Le titre étant une chaine, les valeurs suivantes étant numériques, ne peut-on pas tester la première donnée ? si je lit un string ou integer et auquel cas je peut déterminer qu'il y a un titre ou non.

Qu'en pensez vous ?

Denis

[banban54]

bonjour

une idée:
A l'enregistrement, mettre un identifiant avant le titre (caractères peu utilisés),
à la lecture, lire la première ligne et rechercher l'identifiant.
si l'identifiant est trouvé (à la place prévue) alors titre = chaine - identifiant...

à+

[ShaiLeTroll]

C'est l'idée que j'ai émise avec un caractère spécial, mais l'ouverture par certains editeurs de texte peuvent supprimer des caractères ...

sinon ddubois, lorsque je dis que c'est impossible, je parle si on se limite à un fichier texte "pur", dès que l'on ajoute des balises, des caractrès binaires, ... ce n'est plus un fichier texte pur mais un déjà un fichier texte formaté (le RTF c'est un fichier texte formaté, à la différence d'un fichier word qui est un fichier binaire structuré), c'est juste dans la nuance que ce situe l'impossibilité ... évidemment ce n'est que de la terminologie, cela n'a rien d'impératif, ...

[tourlourou]

tu peux aussi éventuellement avoir une extension qui renseignera sur le format : txt = normal ; ttt = ton format txt avec un titre en 1° ligne

[ddubois]

Je retiens l'idée du caractère de contrôle au début du titre.
A priori, il n'y a pas de raison que ce fichier soit édité par un autre éditeur que mon programme...

Merci,

Denis

[ALWEBER]

C'est une solution. Par contre si tu penses aux programmeurs qui viendront après toi pour retoucher ton programme tu peux peut être leur faciliter la vie en employant des structures connues. En ce qui concerne le fichier de type ini en voici un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
 
[MONTITRE]
NbCol=2
NbLIN=3
A1=32
B1=65
A2=45
B2=89
A3=54
B3=54

[ALWEBER]

En reprenant l'exemple précédent :

Code :

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

1
2
3
4
5
6
7
8
9
10
[MonTableau]
Titre=Un titre
NbCol=3
NbLin=2
A1=32
B1=65
A2=45
B2=89
A3=54
B3=54

Voici un programme :

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
uses IniFiles ;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  st1 : string;
  IniFile1 : TIniFile;
  sl1 : TStringList;
  i1 :integer ;
begin
  IniFile1 := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'MonFichier.ini');
  st1 := IniFile1.ReadString('MonTableau', 'Titre', '');
  st1 := IniFile1.ReadString('MonTableau', 'NbCol', '');
  st1 := IniFile1.ReadString('MonTableau', 'NbLin', '');
  sl1 := TStringList.Create;
  IniFile1.ReadSection('MonTableau', sl1);
  for i1 := 3 to sl1.Count-1 do
    st1 := IniFile1.ReadString('MonTableau', sl1[i1], '');
  IniFile1.Free;
end;