supprimer du texte entre 2 titres

Question

bon je pensais que r&#233;soudre ce probl&#232;me serait simple. Malheureusement, j'ai envoy&#233; ce message sur 2 ou 3 forums de ce site... et aucune r&#233;ponse....
Donc je suis un peu emb&#234;t&#233;e. 

En fait ,il faut que je supprime du texte sur un doc word.
Ce texte se situe entre 2 titres, de format 'titre', et qui seront toujours les m&#234;mes.
Par contre, la longueur de mon texte, je ne la connais pas.
donc je ne connais pas le nombred e lignes qui s&#233;pare les deux titres.
J'avais pens&#233; &#224; faire une recherche de titres avec l'outil de recherche de texte, puis rep&#233;rer la place du cursuer &#224; chaque fois. 
ensuite, il me suffirait d'effacer ce texte entre les deux positions rep&#233;r&#233;es...
Le probl&#232;me, c'est que je ne sais oas comment r&#233;cup&#233;rer la valeur de la position du curseur &#224; partir d'un doc word....

bon, si vous avez une id&#233;e pour me donner la facon de trouver cette position ou une autre mani&#232;re de proc&#233;der &#224; cette suppression....MERCIIIIIIIIIIIII

  Daydayerement V&#244;tre

Daydayer · Answer

je pr&#233;cise que je bosse sur VB6

  Daydayerement V&#244;tre

Gobillot · Answer

Private Sub Command1_Click()
    Dim s1 As String
    Dim s2 As String
    Dim b  As Boolean
    Dim i  As Integer
    Dim j  As Integer
    Dim k  As Integer
    
    s1 = Text1.Text
    i = 1
    While b = False
        b = True
        j = InStr(i, s1, "titre")
        If j > 0 Then
           j = j + 5
           k = InStr(j, s1, "titre")
           If k > 0 Then
              s2 = s2 & Mid$(s1, i, j - i) & "titre"
              i = k + 5
              b = False
              End If
           End If
         Wend
     Text1.Text = s2 & Mid$(s1, i)
End Sub

Daniel

Daydayer · Answer

merci pour ton code, ms pourrai tu me le commenter un peu s'il te plait?
pourrais -tu m'expliquer &#233;galement comment se servir des fonction 'mid' et 'instr'?

merci beaucoup!

  Daydayerement V&#244;tre

Gobillot · Answer

commentaires:
plut&#244;t que de travailler sur l'object lui m&#234;me, il vaut mieux travailler sur des cha&#238;nes, c'est plus rapide.
s1 sera la cha&#238;ne d'origine et s2 la cha&#238;ne r&#233;ceptrice.
&#224; partir de la position i = 1 on recherche la premi&#232;re occurence de "titre" gr&#226;ce &#224; l'instruction Instr (position de d&#233;part,"cha&#238;ne &#224; parcourir","cha&#238;ne &#224; trouver") si pas trouv&#233; on obtient z&#233;ro, si trouv&#233; on obtient la position j.
&#224; partir de j + longueur de la cha&#238;ne &#224; trouver, on cherche toujours avec Instr la deuxi&#232;me occurrence de "titre", si trouv&#233; on obtient la position k.
si on a trouv&#233; les deux occurences (j et k > 0) on recopie dans s2, la cha&#238;ne s1 &#224; partir de i jusqu'&#224; j, donc de longueur j - i , gr&#226;ce &#224; l'instruction Mid$("cha&#238;ne origine",position de d&#233;part, longueur) faut pas oublier que la premi&#232;re occurence de titre est d&#233;j&#224; comprise puisqu'on a fait j = j + 5, &#224; cel&#224; j'ajoute la deuxi&#232;me occurence de "titre" on a donc dans s1:
d&#233;butdelacha&#238;netitretitre
ensuite on red&#233;marre avec position de d&#233;part derri&#232;re la deuxi&#232;me occurence de "titre" donc avec i = k + 5on s'arr&#234;te quand on a pas trouv&#233; les deux occurences, soit j 0, soit j > 0 et k 0, pour faire plus simple quand b = false
&#224; la fin faut pas oublier d'ajouter la fin de cha&#238;ne &#224; partir de i et cel&#224; grace &#224; l'instruction Mid$ mais cette fois ci sans la longueur ce qui signifie tout le reste de la cha&#238;ne &#224; partir de la position indiqu&#233;e.

Daniel

Daydayer · Answer

je regarde ce que cela donne et je te fais signe!

merci pour tes comentaires, c'est plus facile &#224; comprendre!

  Daydayerement V&#244;tre

Supprimer du texte entre 2 titres

5 réponses

Discussions similaires