1. #1
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2018
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2018
    Messages : 9
    Points : 8
    Points
    8

    Par défaut Création d'un fichier rtf

    Bonjour,
    Je réalise actuellement une application en HTA permettant de créer à partir des informations de l'AD une signature outlook dans différents formats (html, txt et rtf). La création des deux premiers fichier se passent très bien, mais pour le format RTF le fichier se crée mais n'est pas du tout complet, il manque certaines informations (nom, prénom par exemple) et l'adresse mail est coupé c'est à dire que j'ai juste @gmail.com.
    Le code est assez long donc voici les parties qui seront utiles selon moi.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    'Création du fichier rtf'
            rtfContents = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}}"
            rtfContents = rtfContents & "{\colortbl ;\red255\green0\blue0;\red0\green0\blue0;\red0\green0\blue255;}"
            rtfContents = rtfContents & "{\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\sa200\sl276\slmult1\cf1\lang12\f0\fs22\par\par"
            rtfContents = rtfContents & Txt_prenom.value & Txt_nom.value & "\par"
            rtfContents= rtfContents & "\cf2\i" & Txt_titre.value & "\par" 
            rtfContents= rtfContents & Txt_poste.Value & "\par\par"
            rtfContents= rtfContents & "\i0" & Txt_mail.value & "\par"
            rtfContents= rtfContents & "\cf1{\field{\*\fldinst{HYPERLINK'www.google.fr'}}{\fldrslt{\ul\cf3 www.google..fr}}}\cf2\f0\fs22\par\par"
            rtfContents= rtfContents & Txt_Add.Value & "\par"
            rtfContents= rtfContents & Txt_Code.Value & Txt_Ville.Value & "\par"
            rtfContents= rtfContents & "Tel : " & Txt_Tel.value & "\par\i\par\i0  \cf0\par}"
    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
    'Récupération des infos de l\'AD
    strNom = objItem.Get("sn")
    strPrenom = objItem.Get("givenName")
    strMail = objItem.Get("mail")
    strStreetAddress = objItem.Get("streetAddress")
    strCodePostal = objItem.Get("postalCode")
    strPoste = objItem.Get("Department")
    strTel = objItem.Get("telephoneNumber")
    strTitre = objItem.Get("title")
    strVille = objItem.Get("l")
     
    '62    Ecriture des infos
    Txt_nom.value= strNom
    Txt_prenom.value= strPrenom
    Txt_mail.value = strMail
    Txt_Add.value = strStreetAddress
    Txt_Code.value = strCodePostal
    Txt_Poste.value = strPoste
    Txt_tel.value = strTel
    Txt_titre.value = strTitre
    Txt_Ville.value = strVille
    End Sub
    Merci d'avance à ceux qui essayeront de m'aider.

  2. #2
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    février 2006
    Messages
    1 151
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2006
    Messages : 1 151
    Points : 3 044
    Points
    3 044

    Par défaut

    bonjour,

    comme il s'agit d'un vbscript de HTA, tous les objets "Txt_xxx" sont des objets DHTML mais
    de quel type ?

    (je suppose que tu as déjà vérifié que les différentes variables strXXX renvoyaient bien une chaine non vide...)
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2018
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2018
    Messages : 9
    Points : 8
    Points
    8

    Par défaut

    Bonjour,
    Je pense que ça ne peut être que des string non ? (je débute dans tout ça donc si il existe une méthode pour vérifier je veux bien tester) et bien sûr mais variable ne sont pas vide pas car elles "fonctionnement" pour le fichier .html et .txt.

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 465
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 465
    Points : 9 496
    Points
    9 496

    Par défaut

    Salut

    Dans la variable rtfContents le codage RTF n'est pas bon.

    Essais de coller le contenu de la variable dans un éditeur pouvant générer du RTF, tu verras que cela ne fonctionne pas.

    Moi je ferais un exemple de rédaction complet de ce que tu veux en définitif, dans un éditeur supportant le RTF, je sauvegarderait en .rtf, j'ouvrirais dans un éditeur style notepad.

    A partir de là, tu récupères tout le formatage voulut, tu remplaces les parties texte par tes différents input type="text".
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  5. #5
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2018
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2018
    Messages : 9
    Points : 8
    Points
    8

    Par défaut

    Merci je vais essayer cette méthode mais je ne comprends juste pas de quel input type text tu parles.

  6. #6
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    février 2006
    Messages
    1 151
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2006
    Messages : 1 151
    Points : 3 044
    Points
    3 044

    Par défaut

    mais je ne comprends juste pas de quel input type text tu parles.
    ProgElect suppose que ton HTA contient un certain nombres d'objets DHTML de type INPUT TEXT
    ça se présente dans ton code HTA sous cette forme (exemple pour l'objet Txt_nom) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    <INPUT TYPE="TEXT" NAME="Txt_nom" SIZE="20,5" MAXLENGTH="250">
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  7. #7
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 465
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 465
    Points : 9 496
    Points
    9 496

    Par défaut

    Re

    Ne pas se décourager, l’explication est plus longue que la manipe.

    La trame de mise en page à l'aide de l'éditeur WordPad
    Nom : AideRTF.jpg
    Affichages : 25
    Taille : 31,4 Ko
    
    le fichier sauvegarder .rtf de WordPad ouvert avec par exemple NotePad
    {\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}
    {\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}
    {\*\generator Riched20 10.0.17134}\viewkind4\uc1
    \pard\sa200\sl276\slmult1\f0\fs22\lang12 Txt_prenom.value \b Txt_nom.value\b0\par
    \cf1\b\fs24 Txt_titre.value\par
    \cf0\b0 Txt_poste.Value\par
    \cf2\b Txt_mail.value\par
    \pard\sa200\sl276\slmult1\tx1278\cf3\b0\i Txt_Add.Value\par
    \cf0\b\i0\f1 Txt_Code.Value Txt_Ville.Value\f0 \par
    \b0\f2 Txt_Tel.value\fs22\par
    }
    Repérer les INPUT TYPE="TEXT"
    {\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}
    {\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}
    {\*\generator Riched20 10.0.17134}\viewkind4\uc1
    \pard\sa200\sl276\slmult1\f0\fs22\lang12 Txt_prenom.value \b Txt_nom.value\b0\par
    \cf1\b\fs24 Txt_titre.value\par
    \cf0\b0 Txt_poste.Value\par
    \cf2\b Txt_mail.value\par
    \pard\sa200\sl276\slmult1\tx1278\cf3\b0\i Txt_Add.Value\par
    \cf0\b\i0\f1 Txt_Code.Value Txt_Ville.Value\f0 \par
    \b0\f2 Txt_Tel.value\fs22\par
    }
    Ajouter un " + & + un espace devant chaque Txt_????.Value, Ajouter un espace + & + " à la fin de chaque Txt_????.Value.
    {\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}
    {\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}
    {\*\generator Riched20 10.0.17134}\viewkind4\uc1
    \pard\sa200\sl276\slmult1\f0\fs22\lang12 " & Txt_prenom.value & " \b "& Txt_nom.value &"\b0\par
    \cf1\b\fs24 "& Txt_titre.value &"\par
    \cf0\b0 "& Txt_poste.Value &"\par
    \cf2\b "& Txt_mail.value &"\par
    \pard\sa200\sl276\slmult1\tx1278\cf3\b0\i "& Txt_Add.Value &"\par
    \cf0\b\i0\f1 "& Txt_Code.Value &" "& Txt_Ville.Value &"\f0 \par
    \b0\f2 "& Txt_Tel.value &"\fs22\par
    }
    Ajouter un " en début et fin de chaque phrases.
    "{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}"
    "{\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}"
    "{\*\generator Riched20 10.0.17134}\viewkind4\uc1"
    "\pard\sa200\sl276\slmult1\f0\fs22\lang12 " & Txt_prenom.value & " \b "& Txt_nom.value &"\b0\par"
    "\cf1\b\fs24 "& Txt_titre.value &"\par"
    "\cf0\b0 "& Txt_poste.Value &"\par"
    "\cf2\b "& Txt_mail.value &"\par"
    "\pard\sa200\sl276\slmult1\tx1278\cf3\b0\i "& Txt_Add.Value &"\par"
    "\cf0\b\i0\f1 "& Txt_Code.Value &" "& Txt_Ville.Value &"\f0 \par"
    "\b0\f2 "& Txt_Tel.value &"\fs22\par"
    "}"
    Maintenant il suffit de mettre tous sa dans la variable rtfContents
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    rtfContents = "{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}"
    rtfContents = rtfContents + "{\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}"
    rtfContents = rtfContents + "{\*\generator Riched20 10.0.17134}\viewkind4\uc1"
    rtfContents = rtfContents + "\pard\sa200\sl276\slmult1\f0\fs22\lang12 " & Txt_prenom.value & " \b "& Txt_nom.value &"\b0\par"
    rtfContents = rtfContents + "\cf1\b\fs24 "& Txt_titre.value &"\par"
    rtfContents = rtfContents + "\cf0\b0 "& Txt_poste.Value &"\par"
    rtfContents = rtfContents + "\cf2\b "& Txt_mail.value &"\par"
    rtfContents = rtfContents + "\pard\sa200\sl276\slmult1\tx1278\cf3\b0\i "& Txt_Add.Value &"\par"
    rtfContents = rtfContents + "\cf0\b\i0\f1 "& Txt_Code.Value &" "& Txt_Ville.Value &"\f0 \par"
    rtfContents = rtfContents + "\b0\f2 "& Txt_Tel.value &"\fs22\par"
    rtfContents = rtfContents + "}"
    ou bien comme cela
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    rtfContents = "{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}" _
    	& "{\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}" _
    	& "{\*\generator Riched20 10.0.17134}\viewkind4\uc1" _
    	& "\pard\sa200\sl276\slmult1\f0\fs22\lang12 " & Txt_prenom.value & " \b "& Txt_nom.value &"\b0\par" _
    	& "\cf1\b\fs24 "& Txt_titre.value &"\par" _
    	& "\cf0\b0 "& Txt_poste.Value &"\par" _
    	& "\cf2\b "& Txt_mail.value &"\par" _
    	& "\pard\sa200\sl276\slmult1\tx1278\cf3\b0\i "& Txt_Add.Value &"\par" _
    	& "\cf0\b\i0\f1 "& Txt_Code.Value &" "& Txt_Ville.Value &"\f0 \par" _
    	& "\b0\f2 "& Txt_Tel.value &"\fs22\par" _
    	& "}"
    Tout cela peut se faire très vite avec remplacer tout de l'éditeur:
    Txt_ par " & Txt_
    Value par Value & "
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

Discussions similaires

  1. Réponses: 20
    Dernier message: 26/05/2011, 16h53
  2. Réponses: 4
    Dernier message: 15/03/2011, 16h55
  3. Création de fichiers rtf
    Par Actuarius dans le forum ODS et reporting
    Réponses: 3
    Dernier message: 12/01/2011, 21h44
  4. FOXPRO 2.6 : erreur créations du /des fichiers CAB
    Par breihtiti dans le forum Autres SGBD
    Réponses: 2
    Dernier message: 16/11/2002, 11h28
  5. [Kylix] Création d'un fichier lien
    Par DrQ dans le forum EDI
    Réponses: 2
    Dernier message: 14/05/2002, 21h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo