Discussion :

[philippef]

Bonjour.

Je voudrais savoir comment remplacer n'importe chaîne de caractères comprise entre 2 balises:

ex :
text = replace(montexte,'<chaîne 1>',"")
text = replace(montexte,'<chaîne 2>',"")

ce qui pourrait donner text = replace(montexte,'<n'importe quelle chaîne>',"")

Merci

[ouskel'n'or]

En utilisant une variable tableau, ça ne marcherait pas ?

Juste une idée comme ça...

[philippef]

Est ce que je peux avoir un peu plus de détail?

[Megaxel]

Hello!
Bon, je sais qu'elle n'existe pas sous 97, mais après, pour les gens qui sont à jour de version ( ), la fonction Replace existe en VBA.
Elle permet de remplacer, dans une chaine de caractères C, une chaine A par une chaine B, en commençant au n ième caractère:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
C = Replace(C,A,B,n)

[ouskel'n'or]

Hello MegaSel,

Je crois que philippef sait ça...

Ce n'est qu'une suggestion, si ce n'est pas bon, c'est que je n'ai pas compris le pb...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
MonTableau = Array("chaîne 1", "chaîne 2","chaîne 3","chaîne 4", "etc") 
i = 3 
text = replace(montexte,MonTableau(i),"")

Exemple dans lequel tu vires "chaîne 4" de montexte... si "chaîne 4" existe.

Ai-je bien compris ?

A+

[random]

pour une chaîne donnée
"il pleut < mais la télé fonctionne > et ma copine a mal à la tête
<mais il y a france culture>"
si j'ai bien compris tu veux remplacer ce qui est entre les balises par
une autre chaîne
le problème est à peu près de savoir si c'est balise comprise
je pense que c'est hors balise
il suffit d'écrire une fonction

repérer la position du premier < avec la fonction instr
repérer la position du premier > avec la fonction instr
réecrire la lachaine
nouvelle chaine=left(instr(1,exchaine,"<")) & chainederemplacement &
rigt(exchaine, lenexchaine - instr(1,exchaine,">")

si les balises peuvent se répter plusieurs fois dans la chaine
on remplacera le 1 par la position du dernier < rencontré

[leroissejp]

Bonsoir,
Ce code fonctionne très bien sur un fichier .txt, je ne sais pas sur un fichier .HTM. Tu peux faire l'essai.

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
 
Private Sub Command1_Click()
Dim texte
Open "c:\Text1.txt" For Input As #1
texte = Input(LOF(1), 1)
Close #1
texte = Replace(texte, "<", "")
Open "c:\Text1.txt" For Output As #1
Print #1, texte
Close #1
texte = Replace(texte, ">", "")
Open "c:\Text1.txt" For Output As #1
Print #1, texte
Close #1
 
End Sub

jpleroisse

[SfJ5Rpw8]

Bonsoir,
Ce code fonctionne très bien sur un fichier .txt, je ne sais pas sur un fichier .HTM. Tu peux faire l'essai.

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
 
Private Sub Command1_Click()
Dim texte
Open "c:\Text1.txt" For Input As #1
texte = Input(LOF(1), 1)
Close #1
texte = Replace(texte, "<", "")
Open "c:\Text1.txt" For Output As #1
Print #1, texte
Close #1
texte = Replace(texte, ">", "")
Open "c:\Text1.txt" For Output As #1
Print #1, texte
Close #1
 
End Sub

jpleroisse

Je suis pas sur qu'il effectue l'opération souhaité..

• Ouverture fichier "text1.txt" en lecture
  charge contenu dans variable texte
  ferme fichier "texte1.txt"
  Supprime les "<" de la variable texte..
  Ouverture fichier "text1.txt" en ecriture
  ecrit variable texte dans fichier text1
  ferme fichier text1
  Supprime les ">" de la variable texte
  Ouverture fichier "text1.txt" en ecriture
  ecrit variable texte dans fichier text1
  ferme fichier text1

..donc en fait il supprime les < et > du fichier donnée en paramétre, et de plus il ouvre 2 fois en écriture ce fichier ...


.

[leroissejp]

Bonsoir,
Effectivement le fichier est ouvert 2 fois, la première il supprime tous les < et la deuxième il supprime tous les >.
Ce n'est pas possible de faire l'opération en une seule fois
Crée un fichier d'exemple, mets y des < et > avec entre une données et tu verras que celà va très vite et marche très bien.

jpleroiss

[SfJ5Rpw8]

Bonsoir,
Effectivement le fichier est ouvert 2 fois, la première il supprime tous les < et la deuxième il supprime tous les >.
Ce n'est pas possible de faire l'opération en une seule fois
Crée un fichier d'exemple, mets y des < et > avec entre une données et tu verras que celà va très vite et marche très bien.

jpleroiss

bon ben je crois qu'on va attendre que philippef repasse pour nous dire ce qu'il veu exactement...

PS : pour ce qui est de l'écriture dans le fichier elle peu ce faire en une seule fois ... suffit de faire les 2 remplacement dans la variable texte .. avant de l'écriture... l'écriture intermédiare (entre les 2 remplacements) n'as pas de raison d'être...

[leroissejp]

Bonsoir,
Effectivement bbil, en placant les deux formules dans texte celà fonctionne également.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Command1_Click()
Dim texte
Open "c:\Text1.txt" For Input As #1
texte = Input(LOF(1), 1)
Close #1
texte = Replace(texte, "<", "")
texte = Replace(texte, ">", "")
Open "c:\Text1.txt" For Output As #1
Print #1, texte
Close #1

jpleroisse

[philippef]

Merci à tous, je vais regarder tout ça et je reviens

[Xo]

Histoire d'en remettre une petite couche, un sujet relativement similaire a été traité il y a peu de temps : http://www.developpez.net/forums/vie...ghlight=balise