Discussion :

[elgordopresto]

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 :

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

<!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

[elgordopresto]

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

Code :

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

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

[ClaudeLELOUP]

Bonjour,

Une piste :



... 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

[elgordopresto]

Wow ! Merci Claude pour cette aide précieuse.

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

[elgordopresto]

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 :

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

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

[ClaudeLELOUP]

OK mais

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.

[elgordopresto]

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