VB: remplacer n'importe quelle valeur

Question

Bonjour.


Je suis en train de d&#233;cortiquer un fichier source d'une page html et je voudrais savoir comment supprimer tout ce qui ce trouve entre 2 balises


ex: <toto va bien>




je veux remplacer tout &#231;a par ""


text= replace(masource, 'la je sais pas',"")

merci

cs_vpoyo · Answer

le html peut &#234;tre consid&#233;rer comme un document xml
une solution pourrait &#234;tre de le parser (DOM)

jpleroisse · Answer

Bosoir,

As-tu essayer le code que je t'ai mis sur developpez.com ??

Il agit diectement dans le fichier, dans l'exemple c'est un fichier
.txt, essaye avec ton fichier htm(perso, je n'en ai pas sur mon ordi.)

Je te remet quand m&#234;me le code.




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


End sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

VB: remplacer n'importe quelle valeur

2 réponses

Discussions similaires