Discussion :

[t-die]

Bonjour,

Voilà j'exécute une requête http en VBScript et j'aimerai rechercher une châine de caractère dans la réponse, je voudrais savoir comment faire si il existe un fonction find?.

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
16
17
18
19
20
 
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
urlCert = "http://monsite.com"
xmlHttp.Open "GET", urlCert, False
xmlHttp.Send ""
getHTML = xmlHttp.responseText
status = xmlHttp.status
charge = xmlHttp.readyState
'if charge = 4 Then
'	MsgBox("ok")
'End If
xmlHttp.Abort
Set xmlHttp = Nothing
If status = 200 Then
    If Len(getHTML) > 0 Then
        MsgBox(getHTML)
    End If
End If
 
'getHTML

Pour l'instant j'affiche le getHTML qui contient le contenu HTML de ma page.
Cette page Web s'occupe de l'insertion dans une base de données, une fois que tout est bon, j'affiche un 'Ok'. Et via le script j'aimerai trouver le Ok

Merci d'avance.

[pc75]

Bonjour,

Regarde les fonctions InStr() et Mid()

[t-die]

Merci,

Pour info voici comment j'ai fait en fait j'ai besoin que de Instr

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
16
17
18
19
20
21
 
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
urlCert = "https://monsite.com"
xmlHttp.Open "GET", urlCert, False
xmlHttp.Send ""
getHTML = xmlHttp.responseText
status = xmlHttp.status
charge = xmlHttp.readyState
'if charge = 4 Then
'	MsgBox("ok")
'End If
xmlHttp.Abort
Set xmlHttp = Nothing
If status = 200 Then
    If Len(getHTML) > 0 Then
		'MsgBox(getHTML)
        MsgBox(inStr(getHTML,"chaîne à chercher"))		
    End If
End If
 
'getHTML

Si la valeur est 0, c'est que la châine n'a pas à été trouvé, sinon la valeur retrounée est l'emplacement du premier caractère de la chaine.

Maintenant la page html est très grande pour faire le test que la page soit entièrement chargé le

Code :

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

if status =200

suffit ou je dois aussi vérifié que le ReadyState est à 4.

Car je m'explique je dois chargé cette page et si c'est bon je dois faire d'autre requête. donc dans mon code lorsque je fais le test si la châine a été trouvé il sera pas tout de suite ok, il y a quelque seconde d'attente.
Donc avant de faire le test j'aimerai savoir si la page a été correctement chargée..