chaine de caractere

Bonjour

je lis dans un fichier texte des données du type

Code:

---

1 2	http://localhost:8000/NmConsole/Reports/Full/Device/Performance/RptInterfaceUtilization/RptInterfaceUtilization.asp?_nDeviceID=3133&_sStartDate=1%2F31%2F2011&_sStartTime=00%3A00&_sEndDate=1%2F31%2F2011& _oComboDateRange=Custom

---

je souhaiterai récupérer les données située de http à custom

j'ai utilisé

Code:

---

nStr([start, ]string1, string2[, compare])

---

Sans succès

quelqu'un pour m'aider ?

Il faut lire la position de départ (et la position de fin) :

Code:

---

1 2 3 4 5 6 7 8 9

Dim pos1, pos2, St, Ret St = "http://localhost:8000/NmConsole/Reports/Full/Device/Performance/RptInterfaceUtilization/RptInterfaceUtilization.asp?_nDeviceID=3133&_sStartDate=1%2F31%2F2011&_sStartTime=00%3A00&_sEndDate=1%2F31%2F2011 oComboDateRange=Custom" pos1 = InStr(1, St, "://") Ret = Mid(St, pos1, Len(St) - (Len("Custom") + pos1)+1) MsgBox Ret ' ou encore : pos2 = InStr(1, St, "Custom") Ret = Mid(St, pos1, (pos2 - pos1)) MsgBox Ret

---