4D Write v16WR SAVE DOCUMENT |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
WR SAVE DOCUMENT
|
WR SAVE 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) | |||||||
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 :
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.
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 | Comment |
wr 4D Write document | Chaîne | 4WR7 | Document format 4D Write version courante. |
wr 4D Write template | Chaîne | 4WT7 | Document format modèle 4D Write. |
wr HTML 3 document | Chaîne | HTM3 | Texte au format HTML 3.2. |
wr HTML 4 document | Chaîne | HTML | Texte au format HTML 4.0. |
wr Macintosh text document | Chaîne | ASCM | Texte au format Mac OS. |
wr RTF document | Chaîne | RTF | Document format RTF. |
wr unicode document UTF16 | Chaîne | ASCU | Texte au format Unicode 16 octets. |
wr unicode document UTF8 | Chaîne | ASC8 | Texte au format Unicode 8 octets. |
wr Windows text document | Chaîne | ASCW | Texte au format Windows. |
Notes :
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 :
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".
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 |
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:=Structure file
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
While((Position(":";$Doc)#0)
$Doc:=Substring($Doc;1+Position(":";$Doc);Length($Doc))
$Long:=Length($Doc)
End while
`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:=Substring(Doc;1;Length(Doc)-$Long)+"DocumentsWrite:LettreClient.4W7"
WR SAVE DOCUMENT(LaZone;doc;wr 4D Write document)
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 SAVE DOCUMENT(LaZone;NomDocument;TypeDocument)
If(OK=1)
... `Traitement du contenu de NomDocument et TypeDocument
End if
Produit : 4D Write
Thème : WR Documents
Numéro :
89218
Modifié : 4D Write v11
4D Write - Langage ( 4D Write v16)