Discussion :

[Monky]

Bonjour,

Je développe un blog bilingue et je souhaite désormais diviser ce blog en deux pour avoir une partie "lang_fr", une partie "lang_en"...

Pour cela il faudrait que je puisse supprimer les articles entourés de la mention [lang_en]my post[/lang_en] de ma base que je possède en .txt (ou .xml...)

J'ai essayé de faire cette opération sous MWord, NotePad, Dreamweaver... mais je n'y parviens pas.

Comment et avec quoi pourrais je supprimer n'importe quel contenu (a-z , ! ...) entre mes [lang_en]Bla-bla-bla[/lang_en]

[Heureux-oli]

Salut,
C'est juste entre deux balises ou avec les balises.

On peut le faire avec Word, soit en VBA, soit en utilisant la fonction remplacement de l'interface graphique.

http://sepia.developpez.com/office/w...cherremplacer/

[Monky]

Oui, c'est pour également supprimer les balises...

Je ne parviens pas le faire avec la fonction remplacer de Word, il semblerait que le fait que mes balises [des crochets] posent un problème. Non ?

[Heureux-oli]

Salut,

Essaie avec ce code et Word.

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
Sub EffacerTexte()
Dim myR As Range
 
Do
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^91lang_en^93"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute
    Selection.Bookmarks.Add Name:="Start"
 
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^91/lang_en^93"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute
    Selection.Bookmarks.Add Name:="End"
 
Set myR = ActiveDocument.Range(Start:=ActiveDocument.Bookmarks("start").Start, End:=ActiveDocument.Bookmarks("end").End)
myR.Delete
Loop While Selection.Find.Execute
 
End Sub

[Sepia]

Salut,

Comme indiqué dans le tuto, les caractères réservés sont utilisables en les faisant précéder de "\" donc dans ton cas "\[" et "\]".

@+

[Monky]

Un grand merci Heureux-oli... Le code VBA fonctionne parfaitement !!

Merci !