Discussion :

[micka180]

Bonjour

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

Code :

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

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 :

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

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

Sans succès

quelqu'un pour m'aider ?

[l_autodidacte]

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

Code :

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

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