Discussion :

[debutVBA]

Bonjour à tous et à toutes.

j'expose mon petit problème :

j'ai donc une requete qui est ainsi (ci-dessous) et doit récupérer a l'aide d'un script VBS qu'un morceau de la requete.

requete = valeur1 ;valeur2;valeur3

valeur3 est ainsi :
sousChaineValeur3A\SousChaineValeurB\SousChaineValeur3C

Donc j'aimerai récupérer dans la requete uniquement sousChaineValeur3A de valeur3 .

Quelqu'un aurait une "tite " idée ??

Merci à tous et à toutes.

[pc75]

Bonjour,

Code :

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

1
2
 
mid(valeur3, 1, InStr(valeur3, "\"))

[debutVBA]

Salut pc75 et merci d'avoir répondu.

En faite j'ai oublié quelques détails dans la récupération de la chaine,lors de l'affichage j'obtiens ceci : sousChaineValeur3A\



requete = valeur1 ;valeur2;valeur3

valeur3 est ainsi :
sousChaineValeur3A\SousChaineValeurB\SousChaineValeur3C


j'ai oublié de préciser qu'il faut que je récupère uniquement
sousChaineValeur3A de valeur 3 sans le "\" et qu'il se peut que valeur3
peut etre aussi ainsi:

sousChaineValeur3A
mais encore ainsi :sousChaineValeur3A\sousChaineValeur3B
mais encore sousChaineValeur3A\sousChaineValeur3B\sousChaineValeur3C

Comment faire pour récupérer uniquement sousChaineValeur3A si elle est egale à la chaine que je recherche ??

Merci par avance

[pc75]

Re,

Pour le caractère "\"

Code :

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

1
2
 
mid(valeur3, 1, InStr(valeur3, "\") - 1)

Pour la suite, tu peux donner un exemple concret ?

[debutVBA]

re

Code :

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

1
2
3
4
5
 
 
    c =  mid(chaine, 1, InStr(chaine, "\")) 
 
    wscript.echo c

lorsque je j'utilise la fonction mid sans le - 1 cela m'affiche

souschaineDeChaine\ or que je souhaite juste obtenir souschaineDeChaine

Code :

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

1
2
3
4
5
 
 
   c = mid(chaine, 1, InStr(chaine, "\") - 1) 
 
   wscript.echo c

lorsque j'utilise la fonction avec le -1 ca m'affiche cela
Argument ou appel de procédure incorrect



Donc comme tu me l'as suggéré voici des exemples concrets

ResultatRequete 1 ===> 12;Abcdefgh;ab\pa\ma

Resultatrequete 2 ===> 4;papapap;bebebebe\pa\ma

Resultatrequete 3 ====> 12;popopiuuu;njj

Resultatrequete 4 ====> 369;lololompo;bidule\pa

Resultatrequete N ====> 588;sololkiuj;chouette\pa\ma


donc je souhaiterai recuperer la premiere valeur apres le 2 eme point virgule sans le "\"

donc pour requete1 ab
pour requete 2 bebebebe
requete3 njj
requete4 bidule
requete n chouette

En espérant avoir été plus clair dans mon explication

[tsuji]

>En espérant avoir été plus clair dans mon explication
Je crois pour le première fois c'est plus clair.

On peut le faire utilsant regexp.

Code :

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

1
2
3
4
5
6
7
8
 
dim rx, t
set rx=new regexp
with rx
    .pattern="^([^\\]*;)?(.*?)(\\.*)?$"
end with
t=rx.replace(requete, "$2")
wscript.echo t    'le resultat