Discussion :

[Anthony_office]

Bonjour à tous,

J'utilise cette fonction

Code :

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

(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

[MarcelG]

Bonjour

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

Code :

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

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.

[MarcelG]

Salut,

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 :

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

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

[Anthony_office]

Super merci beaucoup, cela fonctionne

[tototiti2008]

Bonjour,

Peut-être, une ligne avant,

Code :

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

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

[Anthony_office]

Merci pour ton retour mais cela ne fonctionne pas

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