4D Doc Center : WR SAUVER DOCUMENT

4D Write v14

WR SAUVER DOCUMENT


WR SAUVER DOCUMENT ( zone ; nomFichier ; type )

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
nomFichier	Chaîne	Chemin d'accès du document à sauver sur disque
		Chemin d'accès du document sauvé sur disque
type	Chaîne	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 nomFichier 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 nomFichier 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 nomFichier 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. Un type se compose d'une chaîne de 4 caractères. Vous pouvez utiliser l'une des constantes suivantes, placées dans le thème "WR Types de documents" :

Constante	Type	Valeur	Commentaire
wr document 4D Write	Chaîne	4WR7	Document format 4D Write version courante.
wr document HTML 3	Chaîne	HTM3	Texte au format HTML 3.2.
wr document HTML 4	Chaîne	HTML	Texte au format HTML 4.0.
wr document RTF	Chaîne	RTF	Document format RTF.
wr document texte Macintosh	Chaîne	ASCM	Texte au format Mac OS.
wr document texte Windows	Chaîne	ASCW	Texte au format Windows.
wr document unicode UTF16	Chaîne	ASCU	Texte au format Unicode 16 octets.
wr document unicode UTF8	Chaîne	ASC8	Texte au format Unicode 8 octets.
wr modèle 4D Write	Chaîne	4WT7	Document format modèle 4D Write.

Notes :

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).

Note de compatibilité : Par compatibilité avec les versions précédentes, le type DOC8 (Document Word 8) est également pris en charge.

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
Document 4D Write .4W7
Modèle (template) 4D Write .4WT
RTF .RTF
HTML 3.2 ou 4 .HTM
ASCII PC/Mac .TXT
ASCII Unicode 8 ou 16 octets .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 nomFichier et "HTML" dans type, le fichier sera nommé "Rapport.HTM".

Sous Mac OS
Format 4D Write Créateur Type
Document 4D Write 4DW7 4WR7
Modèle (template) 4D Write 4DW7 4WT7
RTF 4DW7 RTF
HTML 3.2 ou 4 MOSS TEXT
ASCII PC/Mac 4DW7 TEXT
ASCII Unicode 8 ou 16 octets 4DW7 TEXT
Word MSWD W8BN

Exemple 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;wr document 4D Write)

Exemple 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