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