1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| ### Création d'un fichier depuis le traitement ###
[L]FIC = filpath("tmp", "nomdefichier", "txt") # Construit un path pointant vers un fichier nomdefichier.txt sous le répertoire tmp du dossier
Openo [L]FIC, 0 Using [XXX] # Création du fichier (car inexistant) et ouverture, ici XXX est l'abréviation du fichier créé (pour la suite)
Iomode adxifs ";" Using [XXX] # On utilise ; comme séparateur de champs
Iomode adxirs chr$(13)+chr$(10) Using [XXX] # On utilise le retour chariot comme séparateur d'enregistrement
Iomode adxium [V]GASCII Using [XXX] # On utilise de l'ASCII
# On commence à écrire dans le fichier
Wrseq "E" , Using [XXX] # La virgule est importante, elle signifie que l'on n'a pas fini d'écrire l'enregistrement (la ligne)
Wrseq [F:YYY]YYY , Using [XXX]
Wrseq [F:YYY]ZZZ Using [XXX] # Pas de virgule, on a fini d'écrire l'enregistrement (= la ligne) et le séparateur se place automatiquement
Wrseq "L" , Using [XXX]
Wrseq [F:YYY]YY1 Using [XXX]
# On a fini d'écrire dans le fichier, on le ferme pour pouvoir l'importer
Openo Using [XXX]
### Import Silencieux du fichier créé ###
Call IMPORTSIL("AAA", [L]FIC) From GIMPOBJ # Ici, AAA est le modèle d'import utilisé |
Partager