Discussion :

[thierry007]

Bonjour à tout le monde et très heureuse année 2015 pour commencer

Dans mon petit projet je souhaite pouvoir édité du courrier avec des données venant du programme
Ma première idée était les signets avec Ms Word, mais là je suis confronté a des personnes qui n'on pas office et qui ne souhaite pas l'acheter pour différentes raisons.
Je me suis alors tourner vers un module mini traitement de texte ( personnel et simplifié) avec un Richtextbox , qui me permet donc de pouvoir enrichir le texte (gras, souligné,.... )
Lorsque je place une variable dans mon texte (ex: @MaVariableNom ) et que je fais une recherche pour la remplacer par le contenu du programme avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  NameFieds = "@MaVariableNom"
                  RtxMainTexte.Select(RtxMainTexte.Find(NameFieds), Len(NameFieds))
                  RtxMainTexte.SelectedText = "Mon texte de remplacement"

Il exécute très bien la tache, mais si j'ai plusieurs fois la même variable, là il ne remplace rien qu'une fois
il faut alors que je parcoure une deuxième fois mon RtxMainTexte.

Y aurais t'il une autre solution.
J'ai bien pensé a Replace mais in fonctionne uniquement sur du textbox

[mactwist69]

Bonjour,

Effectivement c'est normal, car le Select va sélectionné la première itération du mot recherché... Et ne va donc pas tous les sélectionner d'un coup.
Je pense donc qu'il faille boucler...

[thierry007]

J'avais regardé a cela aussi, mais alors si j'ai plusieurs fois la même variable et que le document en comporte 20, tu imagines le temps de bouclage

[mactwist69]

De nos jours, avec un processeur à 2 GHz... Ça doit prendre quelques millisecondes.... lol
C'est surement acceptable.

[tovin]

Bonjour,
Je pense que Replace serait la meilleure solution, et cela marche avec un Richtextbox.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Dim a As String
        a = Richtextbox1.Text
        Dim a2 As String
        a2 = a.Replace("a", "i") REM remplace les a par des i
        Richtextbox1.Text = a2

[thierry007]

Bonjour tovin

Dans ta méthode tu transfert ton richtexbox dans un string et en suite tu fais le remplacement dans le string et en fin du replace ton string dans richtextbox.
Mais de cette façon tu pers toute la mise en forme du texte
Si je ne me trompe pas

[mactwist69]

C'est pour cela que ne l'avais pas proposé...

Je pense que la boucle sur le Select est la solution la plus rapide pour ta situation.
Fait le test, avec 20 mots clés, je suis sur que tu trouveras cela rapide... ou alors c'est peut être qu'il y a un souci dans le code qui fait perdre du temps.

[ACIVE_CS]

Bonjour,

Je ne voulais pas prendre partie de cette discussion, car il existe de nombreux tutos à ce propos, mais...

J'ai bien pensé a Replace mais in fonctionne uniquement sur du textbox

Pourquoi ça?
Regarde ce que j'ai trouvé:

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
30
31
32
33
34
35
 
            RichTextBox1.Text = "je me suis alors tourner vers un module mini traitement de texte (personnel et simplifié) avec un Richtextbox , qui me permet donc de pouvoir enrichir le texte (gras, souligné,.... )Lorsque je place une variable dans mon texte (ex: @MaVariableNom ) et que je fais une recherche pour la remplacer par le contenu du programme avec"
 
            'Remplacement de toutes les chaines dans un un texte:
            RichTextBox1.Text = RichTextBox1.Text.Replace("je", "<<JE>>")
 
            Dim Word As String
            Dim Couleur As Color
 
            'Changement de Couleurs ou autres :
            'Les mots "<<JE>>" en bleu:
            Word = "<<JE>>"
            Couleur = Color.Blue
            Dim len As Integer = RichTextBox1.TextLength
 
            Dim lastindex = RichTextBox1.Text.LastIndexOf(word)
            Dim index As Integer = 0
            While index < lastindex
                RichTextBox1.Find(word, index, len, RichTextBoxFinds.None)
                RichTextBox1.SelectionColor = Couleur
                index = RichTextBox1.Text.IndexOf(word, index) + 1
            End While
 
            'Les mots "text" en rouge:
            Word = "text"
            Couleur = Color.Red
            len = RichTextBox1.TextLength
 
            lastindex = RichTextBox1.Text.LastIndexOf(Word)
            index = 0
            While index < lastindex
                RichTextBox1.Find(Word, index, len, RichTextBoxFinds.None)
                RichTextBox1.SelectionColor = Couleur
                index = RichTextBox1.Text.IndexOf(Word, index) + 1
            End While

Tiens... j'ai de suite vu une application pratique dans ce cas spécifique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
            RichTextBox1.Text = "je me suis alors tourner vers un module mini traitement de texte (personnel et simplifié) avec un Richtextbox , qui me permet donc de pouvoir enrichir le texte (gras, souligné,.... )Lorsque je place une variable dans mon texte (ex: @MaVariableNom ) et que je fais une recherche pour la remplacer par le contenu du programme avec"
            RichTextBox1.Text = RichTextBox1.Text.Replace("je me suis alors tourner", "je me suis alors tourner tourné")
 
            RichTextBox1.SelectionStart = RichTextBox1.Find("tourné", RichTextBoxFinds.WholeWord)
            RichTextBox1.SelectionLength = "tourné".Length
            RichTextBox1.SelectionBackColor = Color.Pink
 
            RichTextBox1.SelectionStart = RichTextBox1.Find("tourner", RichTextBoxFinds.WholeWord)
            RichTextBox1.SelectionLength = "tourner".Length
            Dim f As New System.Drawing.Font("Arial", 8, FontStyle.Strikeout)
            RichTextBox1.SelectionFont = f

[thierry007]

Merci bien de votre aide et suivit
je suis l'initiative de MacTwist69 une boucle "Do Loop" avec ceci qui fonctionne très bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 Do
                  If InStr(TxtMainTexte.Text, NameFieds) > 0 Then
                            TxtMainTexte.Select(TxtMainTexte.Find(MaVariable), Len(MaVariable))
                            TxtMainTexte.SelectedText = "Ce que je mets a la place"
                  else
                             exit Do
                  End if
 Loop

et cette façon, j'ai eu plus de liberté, soit :

- J'imprime mon Richtextbox directement

- Je le sauve dans un fichier temp pour l'ouvrir avec WordPad ( Gratuit )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
TxtMainTexte.SaveFile(MonFichier.tmp)
Process.Start("winword.exe", MonFichier.tmp)

- Je peux aussi le coller dans Word

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
... Création object Word et Doc...
TxtMainTexte.SelectAll()
TxtMainTexte.Copy()
oWord.Selection.Paste()

Bien merci de votre participation
Th

PS: par contre je dois encore voir avec le Word , car lorsque je copie le contenu dans un nouveau document, et que je ferme l'appli Word , il me demande pour sauvegarder le .dotm

[ACIVE_CS]

Oui,
C'est bien ce que je je vois, une boucle pour faire quelque chose de très simple
ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TxtMainTexte.Select(TxtMainTexte.Find(MaVariable), Len(MaVariable))
          TxtMainTexte.SelectedText = "Ce que je mets a la place"

Se traduit par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 TxtMainTexte.Text = TxtMainTexte.Text.Replace(MaVariable, "Ce que je mets a la place")

Ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If InStr(TxtMainTexte.Text, NameFieds) > 0 Then

Se traduit par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If TxtMainTexte.Text.Contains(NameFieds) Then

D'ailleurs "InStr" c'est du VB6 pas du VB.Net

[thierry007]

D'ailleurs "InStr" c'est du VB6 pas du VB.Net

Peut être, mais très fonctionnel

Merci de ta remarque -> constructive

[clementmarcotte]

Bonjour,

C'est un peu en dehors de la question, mais il y a docx, un contrôle .net qui permet de jouer avec des documents Word, dans des applications Visual Studio. Il faut le Framework 4 et VS2010:

http://docx.codeplex.com/

Il y a des liens vers des exemples au bas de la page. Je ne suis pas allé vers les exemples, mais je ne sais pas si le monsieur en a fait en VB.net. Il a programmé sa dll en Caiguisé.

[thierry007]

bonjour clementmarcotte

Effectivement , ce n'est pas vraiment ce que je recherche, mais me semble être très utile dans le cadre d'un petit projet a venir
Je vais en faire le tour ce soir