Enregistrer un TStringGrid en fichier CSV ou bien XML

Version imprimable

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:

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.

15/05/2015, 19h04
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 ?
15/05/2015, 19h58
LerikalBless

Citation:

Envoyé par 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 ?

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 ?
15/05/2015, 20h16
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 !

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:

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

Citation:
Envoyé par 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:

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

16/05/2015, 08h15
Roland Chastain

1 pièce(s) jointe(s)
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:

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 ?
16/05/2015, 10h44
gvasseur58

1 pièce(s) jointe(s)

Citation:

Envoyé par Roland Chastain

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 :

Pièce jointe 177856

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
16/05/2015, 14h37
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).
17/05/2015, 21h43
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
18/05/2015, 14h21
LerikalBless

1 pièce(s) jointe(s)

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é. Pièce jointe 178030
Merci de votre aide précieuse :oops:
18/05/2015, 14h38
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.
18/05/2015, 14h52
gvasseur58
Citation:

Envoyé par 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é. Pièce jointe 178030
Merci de votre aide précieuse :oops:

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

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:

1 2 3 4 5 procedure TForm1.BitBtn1Click(Sender: TObject); begin StringGrid1.LoadFromCSVFile('NomDeMonFichier.csv'); end;
... et la grille est remplie :mrgreen:

Pour XML, voir Yamer.

Gilles
18/05/2015, 15h19
LerikalBless

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