Discussion :

[astrolane]

Bonjour,

Version 4D : 6.5.4 sur un PC

Lors de mon export de données 4D vers un fichier txt, je voudrais mettre sur la première ligne de mon fichier exporté les entêtes (intitulés des champs) .
La commande que j'utilise pour l'export est :
ECRITURE ASCII(MaTable;"MonFichier.txt").
J'ai regardé l'aide , mais j'ai rien trouvé de tel. Je pense que ça existe car quand on exporte en manuel : Fichier / exporter les données , il y a la coche "Entête".

Merci d'avance pour votre aide !!

[Steph4D]

Bonjour,

Je vois trois solutions :

1) ECRIRE ASCII n'a pas l'otion des entêtes pour l'export. Mais vous pouvez gérer par programmation.
Par exemple :

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
  `--- on crée un blob avec les entêtes :
C_BLOB($blobentete)
C_TEXTE($text)
$text:="Field1"+Caractere(9)+"Field2"+Caractere(13)+Caractere(10)
C_ENTIER LONG($offset)
$offset:=0
TEXTE VERS BLOB($text;$blobentete;Texte sans longueur ;$offset)
 
  `--- on exporte les données de la table :
ECRITURE ASCII([Table 1];"export.txt")
 
  `--- on récupère ces données dans un second blob :
C_BLOB($blobexport)
$Doc:=Ouvrir document("export.txt")
FERMER DOCUMENT($Doc)
DOCUMENT VERS BLOB(document;$blobexport)
 
  `--- on concatène le blob des entêtes avec le blob des données :
COPIER BLOB($blobexport;$blobentete;0;Taille BLOB($blobentete);Taille BLOB($blobexport))
  `--- et on envoie le blob concaténé dans un document :
$RefDoc:=Creer document("export_blob.txt")
FERMER DOCUMENT($RefDoc)
BLOB VERS DOCUMENT(document;$blobentete)

2) Le plus simple à mon sens : utiliser EXPORTER DONNEES et un projet d'export.

3) Faire une boucle par champ et par enregistrement et envoyer chaque itération dans un fichier avec ENVOYER PACKET. Vous pourrez alors envoyer les entêtes puis les données.