version 2004.5 (Modifiée)
WR SAUVER DOCUMENT (zone; document{; type})
Paramètre | Type | Description | |
zone | Entier long | Zone 4D Write | |
document | Alpha | Chemin d'accès du document à sauver sur disque | |
Chemin d'accès du document sauvé sur disque | |||
type | Alpha | Type de document à sauver (4 caractères) | |
Type de document sauvé (4 caractères) |
Description
La commande WR SAUVER DOCUMENT permet d'enregistrer le texte se trouvant dans zone sous forme d'un document sur disque.
Vous devez passer dans document le nom ou le chemin d'accès complet du document, c'est-à-dire l'enchaînement des répertoires permettant d'accéder au document :
sous Windows ou dans le cas d'une gestion multi-plate-forme, passez la lettre du disque et le symbole "\" entre chaque répertoire. Le nom du fichier comprend une extension déterminant son type (par exemple : "D:\Répertoire\Fichier.4W7").
sous Mac OS, passez le nom du disque et le symbole ":" entre chaque dossier (par exemple : "Disque:Répertoire:Document").
Si vous passez uniquement un nom de document, WR SAUVER DOCUMENT sauvegardera le document dans le répertoire contenant la structure de la base.
Si document est une chaîne vide, WR SAUVER DOCUMENT présentera la boîte de dialogue standard d'enregistrement de fichiers. Par défaut, le type du document est 4D Write.
Si l'utilisateur clique sur OK (Windows) ou Enregistrer (Mac OS), la variable système "OK" de 4D vaudra 1, la variable document contiendra le fichier choisi par l'utilisateur et la variable type contiendra son type.
Si l'utilisateur annule le dialogue, la variable système "OK" de 4D vaudra 0.
Sous Windows, le menu Type vous propose les formats listés ci-après.
Sous Mac OS, vous disposez d'un pop up menu contenant les formats listés ci-après.
Par défaut, le document est enregistré au format 4D Write. Si vous voulez spécifier un type différent, vous devez passer dans type le type du fichier (chaîne de 4 caractères).
Voici la liste des types optionnels possibles :
Type | Fichier | Extension Windows |
4WR7 | 4D Write | .4W7 |
4WT7 | Modèles 4D Write | .4WT |
RTF (*) | RTF | .RTF |
ASCW | Texte au format Windows | .TXT |
ASCM | Texte au format Mac OS | .TXT |
ASCU | Texte au format Unicode | .TXT |
HTML | Format HTML 4.0 | .HTML |
HTM3 (**) | Format HTML 3.2 | .HTML |
DOC8 | Format Word97 Win/Word98 Mac | .DOC |
(*) Ajoutez un espace derrière "RTF " afin d'obtenir les 4 caractères nécessaires.
(**) Vous devez utiliser l'export HTML 3.2 si vous souhaitez pouvoir réinterpréter le document dans 4D Write (seul le HTML 3 est pris en charge lors de l'import dans 4D Write).
Le paramètre type ne représente pas le type de fichier Macintosh, ni l'extension Windows. Il définit l'encodage du document.
Toutefois, il permet à 4D Write de déterminer la valeur appropriée pour, sous Windows, l'extension de fichier, et sous Mac OS, le couple créateur/type du fichier :
Sous Windows
Format 4D Write | Extension |
4D Write | .4W7 |
RTF | .RTF |
HTML | .HTML |
ASCII PC/Mac | .TXT |
ASCII unicode | .TXT |
Word | .DOC |
L'extension du fichier est définie d'après le paramètre type, même si le nom comporte déjà une extension. Par exemple, si "Rapport.RTF" est passé dans le paramètre document et "HTML" dans type, le fichier sera nommé "Rapport.HTML".
Sous Mac OS
Format 4D Write | Créateur | Type |
4D Write | 4DW7 | 4WR7 |
RTF | 4DW7 | RTF |
HTML | MOSS | TEXT |
ASCII PC/Mac | 4DW7 | TEXT |
ASCII unicode | 4DW7 | TEXT |
Word | MSWD | W8BN |
Note : L'exportation au format Word ne prend pas en charge les images (tous types), les puces et les liens hypertexte.
Exemples
(1) Vous voulez sauvegarder le document 'LettreClient' au format 4D Write dans le dossier "DocumentsWrite" placé à côté de la structure de la base :
`Récupération du chemin d'accès à la structure $Doc:=Fichier structure Doc:=$Doc $long:=0 `Récupération de la position du dernier séparateur pour enlever le nom de la structure au chemin d'accès Tant que((Position(":";$Doc)#0) $Doc:=Sous chaine($Doc;1+Position(":";$Doc);Longueur($Doc)) $Long:=Longueur($Doc) Fin tant que `Concaténation du chemin d'accès pour sauvegarder le document. `Le fait d'ajouter l'extension au document permettra une gestion multi-plate-forme Doc:=Sous chaine(Doc;1;Longueur(Doc)-$Long)+"DocumentsWrite:LettreClient.4W7" WR SAUVER DOCUMENT(LaZone;doc;"4WR7")
(2) Vous souhaitez laisser l'utilisateur choisir lui-même le nom et le type dans lesquels il va enregistrer son document, et ensuite récupérer les valeurs choisies :
NomDocument:="" TypeDocument:="" WR SAUVER DOCUMENT (LaZone;NomDocument;TypeDocument) Si (OK=1) ... `Traitement du contenu de NomDocument et TypeDocument Fin de si
Référence