Discussion :

[perdeak]

Bonjour,

Voilà mon problème:

Mon programme comporte une fenêtre principale dans laquelle je renseigne des TDBLookupComboBox, TcomboxBox, etc...

J'ai un bouton "Valider" qui permet de prendre en compte l'ensemble des informations choisies/saisies.

Or, je fais un test sur la valeur d'une TComboBox pour voir si elle est > à une autre valeur.
Si c'est le cas, alors j'enregistre les différents paramètres, sinon j'aimerais créer un fichier Excel dans lequel j'inscris les différents renseignements de ma fenêtre.

Quelle est la structure pour créer un fichier Excel, écrire les valeurs d'une TComboBox ou TDBLookupComboBox..., passer à une nouvelle ligne sur mon fichier Excel si une nouvelle erreur...

Merci par avance.

[ShaiLeTroll]

tu peux générer un fichier txt et lui donner l'extension ".xls" et il l'ouvre sans sourciller si tu mets dedans les champs séparés par des tabulations ...

[perdeak]

Voilà, je créé mon fichier, et après j'essai d'écrire du texte dedans mais ça me met n'importe quoi dans mon fichier...:

Code :

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

1
2
3
4
 
ligne_Erreur := 'ok on est bien passé';
fic_Erreur := TFileStream.create ('D:\Mes documents\FicErreur.txt', fmcreate);
fic_Erreur.Write(ligne_Erreur, length(ligne_Erreur));

Je voudrais ensuite grace à cette chaine, concaténer les valeurs de mes Tedit, TDBLookupComboBox...comment puis je procéder?

[ShaiLeTroll]

Code :

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

1
2
3
4
MonFichier := tFileStream.Create('D:\Mes documents\FichierErreur.txt',fmcreate);
MonFichier.Write(edit.Text[1], Length(edit.Text));
MonFichier.Write(DBLookupComboBox.Field.AsString[1], Length(edit.DBLookupComboBox.Field.AsString));
MonFichier.Write(SysUtils.sLineBreak[1], Length(sLineBreak));

si la Chaine est vide, ça plante, faut donc tester avant, peu pratique

Tu peux aussi utiliser un TextFile avec AssignFile, Rewrite, WriteLn, cela sera plus simple

[perdeak]

ok merci beaucoup, maintenant je récupère bien tous mes paramètres:

Code :

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

1
2
3
4
 
ligne_Erreur := VoyPrec1.KeyValue + Categorie.Caption + nettoyageRequis.Caption + NettoyageEffectue.text;
fic_Erreur := TFileStream.create ('D:\Mes documents\FicErreur.xls', fmcreate);
fic_Erreur.Write(Pchar(ligne_Erreur)^, length(ligne_Erreur));

Par contre j'aimerais écrire ces paramètres mais séparés par des tabulations, pour mettre dans les différentes cellules de ma feuille Excel.
Je voudrais utiliser un truc du style:
fic_Erreur.Write(Pchar(ligne_Erreur)^, length(ligne_Erreur));
fic_Erreur.Write(PChar('{TAB}'));
Mais ça ne marche pas...

Et j'aimerais aussi écrire à la première ligne vide, et non qu'il écrase les données précédentes...ça je n'y arrive pas non plus.

[ShaiLeTroll]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var 
  TAB: string;
...
TAB := #9
 
MonFichier := tFileStream.Create('D:\Mes documents\FichierErreur.txt',fmcreate);
MonFichier.Write(SysUtils.sLineBreak[1], Length(sLineBreak));
MonFichier.Write(edit.Text[1], Length(edit.Text));
MonFichier.Write(TAB[1], Length(TAB));
MonFichier.Write(DBLookupComboBox.Field.AsString[1], Length(edit.DBLookupComboBox.Field.AsString));
MonFichier.Write(SysUtils.sLineBreak[1], Length(sLineBreak));

et comme je l'ai dit AssignFile, WriteLn et TextFile seront plus pratique qu'un stream pour un simple fichier texte