selectionner chaine de caractere entre 2

Version imprimable

Bonjour,

je sèche sur une opération sur les chaines de caractères.
Je voudrai isoler les caractères situés entre sStartDate= et %2F

sur cette ligne de texte (contenue dans la variable section)

Code:

http://localhost:8000/NmConsole/_nDeviceID=3133&_sStartDate=1%2F31%2F2011

voici le code que je tente d'intégrer
Code:

1 2 3 4 5 6 7 8 Sub valeur(section) pass_val = InStr(section,"sStartDate=") pass_val1 = InStr(section,"%2F") pass_val_pos = Mid(pass_val,pass_val1) WScript.Echo "DECOUPAGE :" &"" &pass_val WScript.Echo "DECOUPAGE :" &"" &pass_val1 WScript.Echo "DECOUPAGE :" &"" &pass_val_pos End Sub
pouvez vous m'aider svp ?
Merci

03/02/2011, 17h12
omen999
bonjour,
Code:

1 2 Target = "http://localhost:8000/NmConsole/_nDeviceID=3133&_sStartDate=1%2F31%2F2011" sDate = Mid(Target,InStr(Target,"sStartDate=") + 11,InStr(Target,"%2F") - InStr(Target,"sStartDate=")-11)
sachant que la valeur 11 correspond à Len("sStartDate"), tu peux écrire un code + générique
ne fonctionne que pour la 1ère occurence de "sStartDate" et "%2F"
03/02/2011, 21h35
micka180

merci je teste cela des demain

bonjour,

la methode fontion j'arrive bien à isoler "2".
cependant j'ai voulus reproduire cette methode pour isoler "31" et l'année "2011",
pour cela j'ai recupéré ton bout de scripte et est changé le len(sStartDate) le faisant passer de +11 à +15
mais cela ne fonctionne pas le resultat est incohérent ou une erreur de compilation bad argument Mid apparait.

si tu peux me donner un coup de main stp

voici ce que j'ai tenté
Code:

1 2 3 4 5 6 7 Target = "http://localhost:8000/NmConsole/_nDeviceID=3133&_sStartDate=1%2F31%2F2011&_sStartTime=***" sMois = Mid(Target,InStr(Target,"sStartDate=") + 11,InStr(Target,"%2F") - InStr(Target,"sStartDate=")-11) sJour = Mid(Target,InStr(Target,"sStartDate=1%2F") + 15,InStr(Target,"%2F") - InStr(Target,"sStartDate=1%2F")-15) sAnnee = Mid(Target,InStr(Target,"sStartDate=1%2F31%2F") + 20,InStr(Target,"&_sStartTime=") - InStr(Target,"sStartDate=1%2F31%2F")-20)

Salut

Citation:

La méthode fonctionne j'arrive bien à isoler "2".

le jour n'est il pas 1 ?

Une autre approche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Target, sJour, sMois, sAnnee
Dim CompoDate
Target = "http://localhost:8000/NmConsole/_nDeviceID=3133&_sStartDate=1%2F31%2F2011&_sStartTime=***"
 
Target = Replace(Target, "http://localhost:8000/NmConsole/_nDeviceID=3133&_sStartDate=", "")
Target = Replace(Target, "&_sStartTime=***", "")
Target = Replace(Target, "%2F", "/")
msgbox Target
CompoDate = Split(Target, "/")
sJour = CompoDate(0)
sMois = CompoDate(1)
sAnnee = CompoDate(2)
msgbox "jour =" & sJour & "     M =" & sMois & "       année = " & sAnnee

bonjour et merci pour votre aide,

j'ai pu adapter les fonctions mid comme cela,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub valeur() section3 = section section1 = section sMois = Mid(section1,InStr(section1,"sStartDate=") + 11,InStr(section1,"%2F") - InStr(section1,"sStartDate=")-11) sJour = Mid(section,InStr(section,"sStartDate=1%2F") + 15,InStr(section,"%2F2011") - InStr(section,"sStartDate=1%2F")-15) sAnnee = Mid(section3,InStr(section3,"sStartDate=1%2F31%2F") + 20,InStr(section3,"&_sStartTime") - InStr(section3,"sStartDate=1%2F31%2F")-20) WScript.Echo "Mois :"&"" &sMois WScript.Echo "Jour :"&"" &sJour WScript.Echo "Annee :"&"" &sAnnee end Sub
section représente 2 ligne de mon fichier txt

Code:

http://localhost:8000/NmConsole/Reports/Full/Device/Performance/RptInterfaceUtilization/RptInterfaceUtilization.asp?_nDeviceID=2115&_sStartDate=2%2F07%2F2011&_sStartTime=00%3A00&_sEndDate=2%2F07%2F2011&

Code:

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

ces 2 lignes on le même nombre de caractères

et pourtant je n'ai pas le même résultat

pour la ligne 1%F31%F2011
j'ai

Citation:

Mois :1
Jour :31
Annee :2011
donc ok

pour la ligne 2%F07%F2011
j'ai

Citation:

Mois :2
Jour :st:8000/NmConsole/Reports/Full/Device/Performance/RptInterfaceUtilization/
RptInterfaceUtilization.asp?_nDeviceID=2115&_sStartDate=2%2F07
Annee :00/NmConsole/Reports/Full/Device/Performance/RptInterfaceUtilization/RptI
nterfaceUtilization.asp?_nDeviceID=2115&_sStartDate=2%2F07%2F2011

le but de tous cela étant de récupérer les sStartDate et sEndDate pour les modifier avec une date J - 1 et les réinjecter dans le fichier.

Merci a vous

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim url1, url2, date1, date2
url1 = "http://localhost:8000/NmConsole/Reports/Full/Device/Performance/RptInterfaceUtilization/RptInterfaceUtilization.asp?_nDeviceID=2115&_sStartDate=2%2F07%2F2011&_sStartTime=00%3A00&_sEndDate=2%2F07%2F2011&"
url2 = "http://localhost:8000/NmConsole/Reports/Full/Device/Performance/RptInterfaceUtilization/RptInterfaceUtilization.asp?_nDeviceID=3133&_sStartDate=1%2F31%2F2011&_sStartTime=00%3A00&_sEndDate=1%2F31%2F2011&_sEndTime=23%3A30&"
 
date1 = Mid(url1, InStr(1, url1, "sStartDate") + 11, InStr(1, url1, "&_sStartTime") - InStr(1, url1, "sStartDate") - 11)
date1 = Replace(date1, "%2F", "/")
 
date2 = Mid(url2, InStr(1, url2, "sStartDate") + 11, InStr(1, url2, "&_sStartTime") - InStr(1, url2, "sStartDate") - 11)
date2 = Replace(date2, "%2F", "/")
 
MsgBox date1
MsgBox date2

et utilise le split, comme l'a dit progElect pour replacer les valeurs dans l'ordre

09/02/2011, 11h18
micka180

ok je vais essayer ça.

Merci
09/02/2011, 17h21
micka180

si je comprends correctement les bouts de scripts fournis par ProgElect par toi ThierryAIM.

ils permettent de modifier le %2F par un "/"

or je ne cherche pas à modifier le %2f, mais à modifier par la date du "jour - 1" 02%2F07%2f2011
dans l'ordre jour mois année

c'est pour cela que je cherche à modifier les caractères se trouvant entre 2 chaines de caractères

"sStartDate=" et "%2F07%2F2011" => pour le cas 02 puis
"sStartDate=02%2F" et "%2F2011" => pour le cas 07 puis
"sStartDate=02%2F07%2F" et "&_sStartTime" => pour le cas 2011

Merci pour tout

Citation:

Envoyé par micka180

... à modifier par la date du "jour - 1" [

Fallait le dire tout de suite :mouarf:

Code:

1
2
3
4
5
6
7
8
Dim url1, date1
url1 = "http://localhost:8000/NmConsole/Reports/Full/Device/Performance/RptInterfaceUtilization/RptInterfaceUtilization.asp?_nDeviceID=2115&_sStartDate=2%2F07%2F2011&_sStartTime=00%3A00&_sEndDate=2%2F07%2F2011&"
 
date1=Replace(Date-1,"/","%2F")
msgbox date1
url1 = Left(url1, InStr(1, url1, "sStartDate") + 10) & date1 & Mid(url1, InStr(1, url1, "&_sStartTime"))
 
MsgBox url1

10/02/2011, 17h28
micka180

ça marche !!! :ccool:

Merci les gars!!, j'aurais surement encore besoin de vous pour la suite de mon programme.

bonne soirée