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, ...