Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre du Club Avatar de Superzest 76
    Homme Profil pro
    Étudiant
    Inscrit en
    septembre 2018
    Messages
    44
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 21
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2018
    Messages : 44
    Points : 69
    Points
    69

    Par défaut Édition et modification d'un document RTF

    Bonjour a tous !
    Alors après recherche je me tourne vers vous pour un petit problème je souhaiterais a partir d'un document.rtf modelé dupliquer le Document.rtf et modifier le duplicata avant de l'imprimer puis de le supprimer.
    Dans mon .rtf j'ai plusieurs "variable" (enfin ce que je souhaite modifier ) je les est ecrite sous la forme [Variable].
    Peut etre avec
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    				Const ForWriting = 2 '***Permet d'ecrire les données
    				Set fso = CreateObject("Scripting.FileSystemObject")
    				Set NewFichier = fso.OpenTextFile("D:\Vitogaz\Log\Bon.rtf",ForWriting,True)
    Avez vous des suggestions ? Car je suis un peut perdu

    Merci infiniment d’avance !!
    “Cookie : Anciennement petit gâteau sucré, qu’on acceptait avec plaisir. Aujourd’hui : petit fichier informatique drôlement salé, qu’il faut refuser avec véhémence.”

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 116
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 116
    Points : 4 900
    Points
    4 900

    Par défaut

    Tu as déjà ces deux liens qui en parlent : ICI et ICI .
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

  3. #3
    Membre du Club Avatar de Superzest 76
    Homme Profil pro
    Étudiant
    Inscrit en
    septembre 2018
    Messages
    44
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 21
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2018
    Messages : 44
    Points : 69
    Points
    69

    Par défaut [Re]

    Merci pour ta réponse et désoler de rouvrir ce post.
    malgré les deux post que tu ma conseiller je n'arrive pas a trouver comment modifier un partie de mon document.rtf. J'ai beau me triturer la tête je ne comprend pas comment ce bout de code fonctionne:
    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" _
    	& "}"
    Je pense que c'est la partie qui permet de modifier des bout de texte mais je suis pas douer avec le vbs.
    Je me permet donc implorer une fois de plus votre aide
    “Cookie : Anciennement petit gâteau sucré, qu’on acceptait avec plaisir. Aujourd’hui : petit fichier informatique drôlement salé, qu’il faut refuser avec véhémence.”

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 662
    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 662
    Points : 10 267
    Points
    10 267

    Par défaut

    Salut

    UN exemple dans un HTA
    Code HTML : 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
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    <HEAD>
            <TITLE> Générer un .RTF </TITLE>
            <HTA:APPLICATION
                    Id = "DemoRtf"
                    >
                    <SCRIPT language="VBScript" type="text/vbscript">ResizeTo 320,380</SCRIPT>
            </HEAD>
            <script language="VBScript">
                    Dim DossierRacineDuProg
                    Sub Window_Onload()
                            Dim ChemNomComplet
                            ChemNomComplet = DemoRtf.CommandLine ' ChemNomComplet = Id du programme.CommandLine
                            DossierRacineDuProg = Left(ChemNomComplet, (InStrRev(ChemNomComplet, "\", -1, vbTextCompare)))
                            DossierRacineDuProg = Replace(DossierRacineDuProg,Chr(34),"")
                    End Sub
                    '----------------------------------------------------------------------------------------------------------------------
                    Sub FormatRTF()
                            Dim rtfContents
                            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" _
                                                    & "}"
                            'enregistrer dans le dossier du programme
                            Dim FSO, F
                            Set FSO = CreateObject("Scripting.FileSystemObject")
                            Set F = FSO.OpenTextFile(DossierRacineDuProg & "test1.RTF", 2,true) 
                            F.Write rtfContents
                            F.Close
                            Set F = Nothing: Set FSO = Nothing
                            msgbox "Fichier test1.RTF sauvegardé dans le dossier: " & DossierRacineDuProg
                    End Sub
                    '----------------------------------------------------------------------------------------------------------------------
                    </SCRIPT>
            <body>
                    Prénom:         <input type="text" name="Txt_prenom" style="position: absolute; left:100px; width:150px"> <br>
                    Nom:            <input type="text" name="Txt_nom" style="position: absolute; left:100px; width:150px"> <br>
                    Titre:          <input type="text" name="Txt_titre" style="position: absolute; left:100px; width:150px"> <br>
                    Poste:          <input type="text" name="Txt_poste" style="position: absolute; left:100px; width:150px"> <br>
                    Mail:           <input type="text" name="Txt_mail" style="position: absolute; left:100px; width:150px"> <br>
                    Code postal:    <input type="text" name="Txt_Code" style="position: absolute; left:100px; width:150px"> <br>
                    Ville:          <input type="text" name="Txt_Ville" style="position: absolute; left:100px; width:150px"> <br>
                    Telephone:      <input type="text" name="Txt_Tel" style="position: absolute; left:100px; width:150px"> <br>
                    Infos:  <br>
                                   <TEXTAREA name="Txt_Add" style="position:relative; left:53px; height:100px; width:208px"></TEXTAREA>
                    <br> <br>
                    <INPUT Type="button" name="BtT1" value=" Go " onClick="FormatRTF">
            </body>
    A savoir que pour obtenir le formatage de la variable rtfContents, il faut proceder comme indiqué dans le post N°7 de cette discussion.
    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
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 662
    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 662
    Points : 10 267
    Points
    10 267

    Par défaut

    Re

    Ayant relu le premier message d'ouverture de la discussion.
    Une version en VBScript avec variables en lieu et place d'input HTML.
    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
    23
    24
    25
    26
    27
    28
    29
    'Nom du fichier: DemoRtf.vbs
    Dim Reponse1, Reponse2, Reponse3, Reponse4, Reponse5, Reponse6
    Reponse1 = inputbox("Votre prénom")
    Reponse2 = inputbox("Votre nom")
    Reponse3 = inputbox("Votre message")
    Reponse4 = inputbox("Votre code postal")
    Reponse5 = inputbox("Votre ville")
    Reponse6 = inputbox("Votre telephon")
     
    Dim rtfContents
    	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 " & Reponse1 & " \b "& Reponse2 &"\b0\par" _
    				& "\cf1\b\fs24 "& Reponse3 &"\par" _
    				& "\cf0\b\i0\f1 "& Reponse4 &" "& Reponse5 &"\f0 \par" _
    				& "\b0\f2 "& Reponse6 &"\fs22\par" _
    				& "}"
    			'enregistrer dans le dossier du programme
    			Dim DossierRacineDuProg, NomDuFichierVBS
    			NomDuFichierVBS = "DemoRtf.vbs"
    			DossierRacineDuProg = replace(WScript.ScriptFullName,NomDuFichierVBS,"")
    			Dim FSO, F
    			Set FSO = CreateObject("Scripting.FileSystemObject")
    			Set F = FSO.OpenTextFile(DossierRacineDuProg & "test2.RTF", 2,true) 
    			F.Write rtfContents
    			F.Close
    			Set F = Nothing: Set FSO = Nothing
    			msgbox "Fichier test2.RTF sauvegardé dans le dossier: " & DossierRacineDuProg
    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.

  6. #6
    Membre du Club Avatar de Superzest 76
    Homme Profil pro
    Étudiant
    Inscrit en
    septembre 2018
    Messages
    44
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 21
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2018
    Messages : 44
    Points : 69
    Points
    69

    Par défaut [Re]

    @ProgElecT Merci infiniment pour ton aide j'ai compris comment ça marche maintenant !
    “Cookie : Anciennement petit gâteau sucré, qu’on acceptait avec plaisir. Aujourd’hui : petit fichier informatique drôlement salé, qu’il faut refuser avec véhémence.”

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. problème de modification de document rtf
    Par crischprolch dans le forum Fichiers
    Réponses: 2
    Dernier message: 03/07/2007, 12h20
  2. extraire une partie d'un document rtf
    Par yac dans le forum Oracle
    Réponses: 12
    Dernier message: 08/01/2006, 11h44
  3. [C#][1.1] Imprimer des documents RTF
    Par SmokE dans le forum ASP.NET
    Réponses: 5
    Dernier message: 26/12/2005, 10h47
  4. Recherche documentation RTF
    Par BigBenQ dans le forum Autres Logiciels
    Réponses: 2
    Dernier message: 17/10/2005, 12h57
  5. Réponses: 1
    Dernier message: 24/09/2005, 21h44

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