Récupérer le texte entre deux mots

Bonsoir

Alors voilà, je développe un logiciel qui a pour but en gros d'editer certaines choses...

Je cherche à récupérer le texte contenu entre 2 mots dans un Richtextbox

Donc dans mon module j'ai :

Code:

---

1 2 3 4 5 6 7

Public Function Extrait(TxtSrc As String, Départ As String, Arriver As String) pos1% = InStr(1, TxtSrc, Départ) If pos1% = 0 Then Exit Function pos2% = InStr(pos1%, TxtSrc, Arriver) If pos2% = 0 Then Exit Function Extrait = Mid(TxtSrc, pos1% + Len(Départ), pos2% - pos1% - Len(Arriver)) End Function

---

Et ensuite dans mon CommandButton :

Code:

---

1 2 3

Private Sub Command1_Click() Text3 = Extrait(Text1, Text2.Text, Text4.Text) End Sub

---

Seulement a chaque fois par exemple, si les contenus de mes text2 et text4 sont respectivements : "Coucou" et ">" et que la phrase est "<Coucou je suis x>" bah ca me met comme resultat " je suis x>
\p".

Donc ça c'est la première erreur, donc \p désigne le saut d'une ligne, et jveux pas qu'il apparaisse, jveux juste qu'il y ai un saut de ligne normal...

Ensuite la seconde erreur, c'est que par exemple si le texte est "- Faire une version Vista (Program au lieu de Program Files)" et que les mots sont "Faire" et "Program Files", bah le résultat sera " une version Vista (Program au "... louche hein ?

Donc voilà, quelqu'un aurai une solution pour résoudre ces satanés problèmes ?

Merci d'avance

Amicalement, Pablo

Je suis pas sur d'avoir tout compris mais essai :

Code:

---

1 2 3 4 5 6 7 8

Public Function Extrait2(TxtSrc As String, Départ As String, Arriver As String) pos1% = InStr(1, TxtSrc, Départ) If pos1% = 0 Then Exit Function pos1% = pos1% + Len(Départ) pos2% = InStr(pos1%, TxtSrc, Arriver) If pos2% = 0 Then Exit Function Extrait2 = Mid(TxtSrc, pos1%, pos2% - pos1%) End Function

---

j'ai juste un peu modifier ton code..

Parfais ca marche

Merci beaucoup =D

Désolé d'avoir réouvert ce topic mais j'ai un autre problème.

Alors voilà, j'aimerai que si par exemple on modifie ce qu'il y a entre les 2 mots qu'on a inscrit, que ça affiche ensuite le resultat sous un textbox donc Le début du texte de départ + La modif + La fin du texte de départ.

Si vous ne comprenez pas n'hesitez pas à le dire ^^'

merci d'avance

si je ne fais pas erreur dans tes variables et que j'ai bien compris la demande

Code:

---

1 2 3 4 5

Dim Txt_Msgbox as string   Txt_Msgbox =Text2.Text & Text3 & Text4.Text Msgbox Txt_Msgbox

---

Merci pour ta réponse

Ca ne marche pas, j'obtiens un résultat genre "FAIRE{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\lang1036\f0\fs17 UNE TCHOUBIDOU
\par }
Vista"

Enfaite, ca affiche bien les mots etc...mais avec les font etc...=x
("Vista" est en trop...)

Mais limite il faudrait que lorsque on récupère ce qu'il y a entre les 2 mots qu'on a choisi, ca fasse un Couper/Coller dans le 2ème textbox, et que quand on le modifie dans le 2eme textbox, ca affiche le contenu du 1er textbox (donc sans ce qu'il y avait entre les 2 mots)dans le textbox 3, et ça fait un couper/coller du contenu du 2eme textbox (ce qui a été modifié donc) entre les 2 mots de base dans le 3ème textbox.

Aïe Aïe Aïe j'ai du mal à etre plus explicite ='(

Pourquoi faire ton analyse a partir de la propriété .SelRTF ou .TextRTF (donc comprenant tous les codes .RTF), en faisant cette analyse depuis .SelText ou .Text, le probléme serait peut être plus facile a resoudre, et en tout cas les codes de formatage RTF n'apparaitront plus.