Rechercher/Supprimer une portion de texte dans une chaîne de texte

Bonsoir,

Je cherche à supprimer dans un texte une portion de ce dernier pour n'intégrer que ce qui est utile dans une table de ma BDD.

Il s'agit en fait du code source d'une page web, dont je souhaite supprimer un lien, situé toujours au même endroit mais dont l'url n'est jamais la même.

Dans le code source de la page, j'ai délimité l'emplacement via une balise commentaire du style :

Code:

---

<!Blablabla><a href="http://www.toto.fr">toto</a><!Bliblibli>

---

Je peux donc précisément dire à vba de rechercher <!Blablabla> ou <!Bliblibli> mais comment faire pour lui demander de supprimer tout ce qui commence par <!Blablabla> et se termine par <!Bliblibli> et uniquement cela. Je sèche un peu alors toute aide sera la bienvenue.

Bien à vous.
el

Bon, en bidouillant un peu j'ai trouvé une solution qui semble marcher...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim lnDebut as long, lnFin as long, strSuppr as string   ' Détermination du rang du premier caractère à supprimer lnDebut = InStr(MaChaineHTML,"<!Blablabla>")   ' Détermination du rang du dernier caractère à supprimer lnFin = InStrRev(MaChaineHTML, "<!Bliblibli>") + 12   ' Récupération de la chaîne à supprimer strSuppr = Mid(MaChaineHTML, lnDebut, lnFin - lnDebut)   ' Suppression de la chaîne dans le code source de la page MaChaineHTML = Replace(MaChaineHTML, strSuppr, "")

---

Je testerai sur des cas concrets prochainement, si vous avez une façon plus élégante de parvenir au même résultat, je suis 1000 fois preneur ! :)
el

Bonjour,

Une piste :

http://claudeleloup.developpez.com/&99/L1455.jpg

... mais il y a ce problème des guillemets dans l'original.

Edit
Pas de problème, si on passe l’argument via une variable

http://claudeleloup.developpez.com/&99/L1456.jpg

http://claudeleloup.developpez.com/&99/L1457.jpg

Wow ! Merci Claude pour cette aide précieuse.

Je regarde cela de plus près et reviens pour commenter/clôturer cette demande.
el

Bonjour Claude,

J'ai testé et ça marche parfaitement. J'ai aménagé ta fonction afin de pouvoir passer en paramètres les portions de textes qui délimitent le découpage. Voilà ce que cela donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Function Expurge(strO As String, strD As String, Optional strF As String) As String   On Error Resume Next   Dim Part1() As String, Part2() As String   Part1 = Split(strO, strD) If Nz(strF, "") <> "" Then Part2 = Split(strO, strF) Expurge = Part1(0) & Part2(1) Else Expurge = Part1(0) End If   End Function

---

Je ne connaissais pas cette fonction Split()

Merci pour ton aide. Je clôture cette demande.
el

OK mais

Citation:

---

On Error Resume Next

---

me paraît bien téméraire : ça correspond à casser le thermomètre quand il indique que tu as de la fièvre.
Quoi qu'il en soit, chacun ses remèdes.

À la prochaine.

Tu as raison, j'ai supprimé le on error...