Discussion :

[micka180]

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 :

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

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

voici le code que je tente d'intégrer

Code :

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

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

[omen999]

bonjour,

Code :

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

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"

[micka180]

merci je teste cela des demain

[micka180]

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 :

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

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)

[ProgElecT]

Salut

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

le jour n'est il pas 1 ?

Une autre approche

Code :

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

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

[micka180]

bonjour et merci pour votre aide,

j'ai pu adapter les fonctions mid comme cela,

Code :

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

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 :

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

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 :

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

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

Mois :1
Jour :31
Annee :2011
donc ok

pour la ligne 2%F07%F2011
j'ai

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