Remplacement de mot dans un richtextbox

Version imprimable

12/01/2015, 10h20
thierry007

Remplacement de mot dans un richtextbox
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:

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
12/01/2015, 10h47
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...
12/01/2015, 11h19
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
12/01/2015, 13h28
mactwist69

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

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

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

13/01/2015, 08h47
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
13/01/2015, 09h08
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.

Bonjour,

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

Citation:

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

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

Code:

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: :lol:

Code:

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

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:

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:

1 2 3 TxtMainTexte.SaveFile(MonFichier.tmp) Process.Start("winword.exe", MonFichier.tmp)
- Je peux aussi le coller dans Word
Code:

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 :roll:

13/01/2015, 15h11
ACIVE_CS
Oui,
C'est bien ce que je je vois, une boucle pour faire quelque chose de très simple
ceci:
Code:

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

Code:

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

Ceci:

Code:

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

Se traduit par:

Code:

If TxtMainTexte.Text.Contains(NameFieds) Then

D'ailleurs "InStr" c'est du VB6 pas du VB.Net
13/01/2015, 19h57
thierry007

Citation:

Envoyé par ACIVE_CS

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

Peut être, mais très fonctionnel

Merci de ta remarque -> constructive
13/01/2015, 20h59
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é.
14/01/2015, 09h05
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