Discussion :

[damene]

Bonjour tout le monde.
je travaille avec delphi 7.
j'ai une table paradox avec un seul champ de 80 caractères.
je voudrais convertir cette table en un fichier txt
comme le ferai clipper avec copy to fichier sdf.

merci.

[damene]

Débutant, poursuivant mes recherches j'ai trouvé dans la discussion 'BD dans un fichier Word' du 27/0/2012 dixit Sergiomaster

Franchement , le titre du sujet m'a toujours laissé sans réponse .

BDD et Word cela ne vas vraiment pas ensemble
On imprime des données d'une BDD (à l'occassion l'état produit sera sous forme .Doc) mais on ne sauvegarde pas des données dans un fichier Word.

ensuite c'est un choix à faire

Delphi+Rave,Quickreport,Fastreport .... > des états 'peaufinés' mais pas
forcément en .doc
Delphi+TFileText produisant CSV ou Txt simple avec une importation avec Word
encore avec Word (voir publipostage , fut une époque word acceptait le format paradox, est-ce encore le cas ? )

Je n'ai jamais essayé le JVDBGridWordExport (je n'ai pas la suite MSoffice installée de toute façon) mais le composant me semble simple a utiliser :
- 1 nom de fichier en .doc
- une dbgrid
et une fonction export
doivent suffire pour obtenir le .doc

et les suivantes sur le composant JVDBGridWordExport.

Utilisant Delphi 7, je ne ne sais su trouver JVDBGridWordExport et comment l'installer.

[paulfr]

Bonjour,

Pour faire votre transfert vous pourriez utilser le DBE pour lire les enregistrements de votre fichier Paradox (.DB)
et les copier dans un fichier texte.

[ThWilliam]

Bonsoir.

Je complète la réponse de Paul.
Pour convertir en fichier txt, le plus simple est d'utiliser un TStringList.
Et comme ta table n'a qu'un seul champ, c'est très simple :

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
procedure ConvertToTxt;
var
   StringList: TStringList;
begin
   StringList:= TStringList.Create;
   try
       with Table1 do
       begin
           Open;
           First;
           while not eof do
           begin 
                StringList.Add(FieldByname('nom du champ').AsString);
                Next;
           end;
           Close;
           StringList.SaveToFile('mon fichier.txt');
       end;
   finally
      StringList.Free;
   end;
end;

Cordialement
Thierry

[damene]

C'est exactement ce que je voulais.
Merci Thierry, merci PaulFr.