Fonction INSTR pour récupérer TD d'une réponse HTML

Bonjour à tous,

J'utilise cette fonction

Code:

---

(Mid(xResponseText, InStr(1, xResponseText, "exemple=", 0) + 7, 7))

---

sur ma page de réponse HTML cela fonctionne très bien, je rencontre néanmoins un problème car je souhaiterai qu'il ne s'arrête pas au premier "exemple=" mais au second qu'il rencontre. Avez-vous une solution ?

Je vous remercie par avance

Bonjour

Tu peux utliser la fonction Split qui retournera un tableau à une dimension dont tu pourras interroger un item

Code:

---

1 2 3 4 5 6 7 8

Dim s As variant Dim i As Byte   s = Spli(lemessage,"exemple=")   For i = lbound(s) to Ubound(s) Debug.Print s(i) Next i

---

Je te laisse appliquer.

Bonjour,

Peut-être, une ligne avant,

Code:

---

xResponseText = replace(xResponseText, "exemple=", "toto=", , 1)

---

Citation:

---

Envoyé par tototiti2008

---

Merci pour ton retour mais cela ne fonctionne pas

Citation:

---

Envoyé par MarcelG

---

Désolé Marcel je n'ai pas réussi à mettre en application, merci beaucoup en tout cas de ton retour

Salut,

Citation:

---

Désolé Marcel je n'ai pas réussi à mettre en application

---

Au préalable,
Procède à l'affichage
- de la fenêtre VBE (ALT + F11)
- de la fenêtre Exécution (CTRL + G)

Place ce code dans un module standard

Code:

---

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

Public Sub Découpe_String()   Dim lemessage As String   lemessage = Range(adresse de la cellule qui comporte le texte).Value   Dim s As variant Dim i As Byte   s = Split(lemessage,"exemple=")   For i = lbound(s) to Ubound(s) Debug.Print "Le " & i & "ème élément " & s(i) Next i

---

Procède à son exécution pas à pas

De la fenêtre exécution, tu déduiras l'indice du tableau s à utiliser (s(0), s(1)...)

Super merci beaucoup, cela fonctionne