selectionner chaine de caractere entre 2

**micka180** · 03/02/2011, 14h00

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** · 03/02/2011, 17h12

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** · 03/02/2011, 21h35

merci je teste cela des demain

**micka180** · 04/02/2011, 17h54

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** · 04/02/2011, 18h29

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** · 08/02/2011, 10h30

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

**ThierryAIM** · 08/02/2011, 18h33

Code :

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

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

**micka180** · 09/02/2011, 11h18

ok je vais essayer ça.

Merci

**micka180** · 09/02/2011, 17h21

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

**ThierryAIM** · 09/02/2011, 18h28

Envoyé par micka180

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

Fallait le dire tout de suite

Code :

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

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

**micka180** · 10/02/2011, 17h28

ça marche !!!

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

bonne soirée

selectionner chaine de caractere entre 2

VBScript

Discussions similaires

Partager

Partager