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