Discussion :

[LerikalBless]

Bonjour, je souhaiterais enregistrer un TStringGrid en un fichier CSV ou bien XML.
J'ai essayé un SaveToFile('nom du fichier.csv') : il me donne un fichier texte ordinaire. Pouvez-vous m'aider s'il vous plaît ?

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;
 
type
 
  { TFormMonFormulaire }
 
  TFormMonFormulaire = class(TForm)
    btnSauvegarderXML: TButton;
    btnSauvegarderCSV: TButton;
    Button1: TButton;
    btnFermer: TButton;
    StringGrid1: TStringGrid;
    procedure btnFermerClick(Sender: TObject);
    procedure btnSauvegarderCSVClick(Sender: TObject);
    procedure btnSauvegarderXMLClick(Sender: TObject);
    procedure StringGrid1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  FormMonFormulaire: TFormMonFormulaire;
 
implementation
 
{$R *.lfm}
 
{ TFormMonFormulaire }
 
procedure TFormMonFormulaire.StringGrid1Click(Sender: TObject);
var i : Integer;
begin
      With StringGrid1 do
 
       For i:=1 To ColCount-1 do
          Cells[i,0]:='Col '+IntToStr(i);
end;
 
procedure TFormMonFormulaire.btnSauvegarderXMLClick(Sender: TObject);
begin
      StringGrid1.SaveToFile('Grille.XML');
end;
 
procedure TFormMonFormulaire.btnFermerClick(Sender: TObject);
begin
  Close;
end;
 
procedure TFormMonFormulaire.btnSauvegarderCSVClick(Sender: TObject);
begin
 
end;
 
end.

[Roland Chastain]

Enregistrer est une chose, convertir en est une autre ! Pour le CSV, c'est assez facile : il suffit d'ajouter des virgules, éventuellement des guillemets et peut-être autre chose que j'oublie, mais rien de bien compliqué. Pour le XML, vous serez obligé de passer par une bibliothèque, mais je crois que Lazarus a déjà tout ce qu'il faut. Regardez dans les exemples.

Mais quel est votre besoin exactement ? Parce CSV ou XML, ce n'est pas la même chose. Et pourriez-vous nous donner un échantillon du texte que vous souhaitez traiter ?

[LerikalBless]

Enregistrer est une chose, convertir en est une autre ! Pour le CSV, c'est assez facile : il suffit d'ajouter des virgules, éventuellement des guillemets et peut-être autre chose que j'oublie, mais rien de bien compliqué. Pour le XML, vous serez obligé de passer par une bibliothèque, mais je crois que Lazarus a déjà tout ce qu'il faut. Regardez dans les exemples.

Mais quel est votre besoin exactement ? Parce CSV ou XML, ce n'est pas la même chose. Et pourriez-vous nous donner un échantillon du texte que vous souhaitez traiter ?

Merci pour votre réponse,
Je veux pouvoir enrengistrer en CSV
et enrengistrer aussi en XML par le biais de deux boutons différent comme mon code le montre
Je suis sous Typhon.
Pouvez vous me donner un exemple de code pour l'enrengistrement du CSV et pour l'enrengistrement du XML svp ?

[tourlourou]

Pour enregistrer en CSV, il suffit de parcourir la grille ligne par ligne et de séparer les contenus des colonnes par un ';' ou une ',' en écrivant la ligne correspondante du fichier. Il ne devrait pas y avoir de difficulté à le transposer en code fonctionnel.

Pour le XML, je passe la main, ignorant de ce format !

[gvasseur58]

Bonsoir,

Pour CSV, il y a beaucoup plus facile que de balayer le contenu de la grille. En effet, la classe TStringGrid est déjà dotée de procédures supportant ce format :

Code :

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

1
2
3
4
5
 
procedure LoadFromCSVStream(AStream: TStream; ADelimiter: Char=','; WithHeader: boolean=true);
procedure LoadFromCSVFile(AFilename: string; ADelimiter: Char=','; WithHeader: boolean=true);
procedure SaveToCSVStream(AStream: TStream; ADelimiter: Char=','; WithHeader: boolean=true; VisibleColumnsOnly: boolean=false);
procedure SaveToCSVFile(AFileName: string; ADelimiter: Char=','; WithHeader: boolean=true; VisibleColumnsOnly: boolean=false);

Ces procédures sont définies dans l'ancêtre TCustomStringGrid et sont publiques : elles sont par conséquent héritées par TStringGrind et utilisables directement. A priori, ce sont celles contenant File qui sont les plus évidentes.

Pour XML, il faut faire appel à des unités supplémentaires dont laz2_DOM. Mais le travail est plus complexe

Gilles

[LerikalBless]

Bonsoir,

Pour CSV, il y a beaucoup plus facile que de balayer le contenu de la grille. En effet, la classe TStringGrid est déjà dotée de procédures supportant ce format :

Code :

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

1
2
3
4
5
 
procedure LoadFromCSVStream(AStream: TStream; ADelimiter: Char=','; WithHeader: boolean=true);
procedure LoadFromCSVFile(AFilename: string; ADelimiter: Char=','; WithHeader: boolean=true);
procedure SaveToCSVStream(AStream: TStream; ADelimiter: Char=','; WithHeader: boolean=true; VisibleColumnsOnly: boolean=false);
procedure SaveToCSVFile(AFileName: string; ADelimiter: Char=','; WithHeader: boolean=true; VisibleColumnsOnly: boolean=false);

Ces procédures sont définies dans l'ancêtre TCustomStringGrid et sont publiques : elles sont par conséquent héritées par TStringGrind et utilisables directement. A priori, ce sont celles contenant File qui sont les plus évidentes.

Pour XML, il faut faire appel à des unités supplémentaires dont laz2_DOM. Mais le travail est plus complexe

Gilles

Merci Beaucoup de votre aide.
Je suis débutant et je n'y connais rien

[Roland Chastain]

Voici, pour vous mettre le pied à l'étrier, un exemple tout simple basé sur la proposition de Gilles.

C'est un tableau de "contacts" (nom, prénom, adresse, téléphone). Vous pouvez sauvegardez le tableau dans un fichier et le recharger depuis le fichier. Voici le contenu de mon fichier. Vous remarquerez que le programme a automatiquement ajouté des guillemets aux chaînes contenant des espaces :

Code :

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

1
2
3
4
5
6
7
8
9
10
Nom,Prénom,Rue,"Code postal",Ville,Téléphone,Mail
Pascal,Blaise,,,Clermont-Ferrand,,
,,,,,,
,,,,,,
,,,,,,
,,,,,,
,,,,,,
,,,,,,
,,,,,,
,,,,,,

Questions aux experts de Lazarus : depuis quelque temps (depuis que j'ai installé la version 1.4 ?), Lazarus place mes exécutables dans le dossier lib. C'est un nouveau réglage par défaut ou c'est moi qui ai changé une option sans m'en apercevoir ? Comment faut-il renseigner l'option "Nom du fichier cible", mis à part mettre un nom en toutes lettres ?

[gvasseur58]

Questions aux experts de Lazarus : depuis quelque temps (depuis que j'ai installé la version 1.4 ?), Lazarus place mes exécutables dans le dossier lib. C'est un nouveau réglage par défaut ou c'est moi qui ai changé une option sans m'en apercevoir ? Comment faut-il renseigner l'option "Nom du fichier cible", mis à part mettre un nom en toutes lettres ?

Bonjour Roland,

Sans prétendre être un expert de Lazarus, je crois que tu risques d'avoir modifié tes options de compilation. Voici celles par défaut :



Dans lib, Lazarus place les unités compilées et non les exécutables.

Pour ce qui est le nom du fichier cible, il n'est en général pas nécessaire ni souhaitable de le modifier : le programme prend automatiquement le nom du projet et ce n'est que dans le cas où tu souhaites un autre nom que tu le modifieras. Mais autant faire un changement depuis l'OS, non ?

Gilles

[Roland Chastain]

Bonjour Gilles ! Merci pour ta réponse, qui m'a permis de résoudre le problème. J'ai remis manuellement "project1" comme nom de fichier cible (le champ était vide), coché "Définir comme options par défaut" et de nouveau les exécutables sont créés dans le répertoire du projet (et le nom du fichier cible se met bien à jour tout seul).

[e-ric]

Salut

Pour le XML, il faut peut-être utiliser une bibliothèque spécifique mais il faut définir avant tout la structure de ton fichier (définir les balises si tu préfères).
Les possibilités sont si étendues qu'il est sans doute vain de proposer une routine de manière standard dans la FCL.

Cdlt

[LerikalBless]

Bonjour, je suis de retour, je voudrai savoir comment charger un fichier CSV dans mon programme avec le "LoadFile" s'il vous plaît ensuite comment sauvegarder mes données du tableau dans un fichier XML s'il vous plaît. Je vous transmet donc mon fichier avancé. Activité 2.rar
Merci de votre aide précieuse

[yamer]

Normalement une TStringGrid peut sauver sont contenu en XML par SaveToFile ou SaveToStream et on peut choisir ce que l'on veut sauver par la propriété SaveOptions. Je viens de faire un test rapide et ça a l'air de marcher. J'obtiens bien du XML que je peux ensuite recharger dans la grille par LoadFromFile ou LoadFromStream.

[gvasseur58]

Bonjour, je suis de retour, je voudrai savoir comment charger un fichier CSV dans mon programme avec le "LoadFile" s'il vous plaît ensuite comment sauvegarder mes données du tableau dans un fichier XML s'il vous plaît. Je vous transmet donc mon fichier avancé. Activité 2.rar
Merci de votre aide précieuse

Bonjour,
Pour le chargement, je rappelle la méthode de TStringGrid :

Code :

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

1
2
 
procedure LoadFromCSVFile(AFilename: string; ADelimiter: Char=','; WithHeader: boolean=true);

Seul le premier paramètre est vraiment nécessaire puisque les autres sont fournis par défaut :
* place une TStringGrid sur la fiche
* place un bouton
* dans l'événement OnCLick du bouton, écris quelque chose comme :

Code :

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

1
2
3
4
5
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  StringGrid1.LoadFromCSVFile('NomDeMonFichier.csv');
end;

... et la grille est remplie

Pour XML, voir Yamer.

Gilles

[LerikalBless]

Merci de votre aide vous êtes génial !
Problème RESOLU