Passage de variable d'un fichier bat vers une fichier VBS

Version imprimable

Bonjour,
J'ai défini des variables dans un fichier bat, puis j'appelle mon script VBS en lui affectant ces variables pour pouvoir faire mon traitement.

Comment dois-je faire pour passer mes variables et les récupérer dans mon VBS ?

Voici mon fichier batch

Code:

1
2
3
4
5
6
7
':variables
set FichierSource=c:\temp\tnsnames.ora
set FichierDest=c:\temp\tnsnames.txt
set NomValeur=CODR
 
':appel du script vbs
"C:\Applis Packagees\script\Supprime_ligne_fichier2.vbs" /%FichierSource% /%FichierDest% /%NomValeur%

Ci-dessous le contenu du

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub supprimeligne (FichierSource, FichierDest, NomValeur)
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fichier_lecture_1, fichier_lecture_2, fichier_ecriture_1, fichier_ecriture_2
Dim fso, fso1
Dim compteur
Dim chaine, machaine
 
fichier_lecture_1 = WScript.Arguments(0)
fichier_ecriture_1 = WScript.Arguments(1)
mot_cherche = WScript.Arguments(3)
compteur = 0
 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set fso1 = CreateObject("Scripting.FileSystemObject") 
set fichier_lecture_2 = fso.opentextfile(fichier_lecture_1, 1, true)
set fichier_ecriture_2 = fso1.opentextfile(fichier_ecriture_1, 2, true)
 
' Copie ligne à ligne du fichier source sans la ligne contenant le mot recherche vers un fichier destination
do until fichier_lecture_2.atendofstream 
  chaine = fichier_lecture_2.readline()
  machaine = chaine  
  if instr(1, chaine, mot_cherche) > 0 then
     compteur = compteur + 1
	 machaine = fichier_lecture_2.readline()
  end if
  fichier_ecriture_2.writeline machaine
loop
 
fichier_lecture_2.close
fichier_ecriture_2.close
 
' Suppression du fichier source puis renommage du fichier destination avec le nom du fichier origine
fso.deletefile fichier_lecture_1
fso.movefile fichier_ecriture_1, fichier_lecture_1
 
set fichier_lecture_2 = nothing
set fso = nothing 
set fichier_ecriture_2 = nothing
set fso1 = nothing 
 
wscript.echo "mot trouvé " & compteur & " fois !!"
end sub

Par avance, merci de votre aide.

13/03/2010, 01h15
SfJ5Rpw8

Citation:

Envoyé par bbil

c'est quoi tous ces / ?

http://vb.developpez.com/faqvbs/?page=II.1#vbsArguments
13/03/2010, 11h07
kingseb

Tous ces / sont des tests effectué pour essayer de faire comprendre à mon script vbs qu'il doit prendre les variable que j'ai défini dans mon batch. Pour info, j'ai essayer sans les / mais cela ne fonctionne pas non plus :(

Je suis bien conscient que j'ai une anomalie dans la syntaxe que se soit au niveau du batch et/ou du vbs. Sinon je ne serais pas venu poser ma question :lol:

Alors ma question est simple que dois je faire pour récupérer mes variable du batch dans mon script vbs ?

Par avance, merci
13/03/2010, 11h29
SfJ5Rpw8
Citation:

Envoyé par kingseb

...
Alors ma question est simple que dois je faire pour récupérer mes variable du batch dans mon script vbs ?
...

ta lecture des arguments devrait fonctionner ... qu'est ce qui te dit que cela ne fonctionne pas ..?

un message d'erreur ?

ne peu-tu pas afficher dans le VBS ces arguments histoire de contrôler ...

voir :
Citation:
Envoyé par beandev

....

Code:

1 2 3 4 Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 WScript.Echo objArgs(I) Next

...
13/03/2010, 11h50
kingseb

Non justement je n'ai aucun message d'erreur.

Je sais que mon script vbs fonctionne lorsque je mets en dur mes variables sans les lignes "sub" et "end sub" bien sûr. En plus, à la fin il m'affiche qu'il a trouvé x fois la valeur ou 0 fois (si pas trouvé la valeur) que je souhaite éliminer.

Ce qui me porte à croire que les variables ne sont pas prises en compte dans mon script vbs ; c'est le fait que je n'est aucun affichage à la fin lde mon script.

Là c'est le weekend et je fais une pause jusqu'à Lundi. Et je ferai des tests avec ta suggestion : à savoir afficher mes arguments pour voir ce que cela donne.

A suivre.....
13/03/2010, 15h11
SfJ5Rpw8

Citation:

Envoyé par kingseb

....Je sais que mon script vbs fonctionne lorsque je mets en dur mes variables sans les lignes "sub" et "end sub" bien sûr. En plus, à la fin il m'affiche qu'il a trouvé x fois la valeur ou 0 fois (si pas trouvé la valeur) que je souhaite éliminer....

et pourquoi tu as rajouté ces lignes sub et endsub ??? si tu créé une procédure il faut ensuite qu'elle soit appelée quelque part !

En effet, ta remarque est judicieuse mais cela fait tres longtemps que je n'avais pas fait de programmation. J'ai donc perdu certains de mes reflexes.

Pour en revenir à mon passage de variables et/ou paramètres de Batch DOS vers mon script VBS, j'ai enfin trouvé la solution en ayant mieux éplucher le Forum.

Voici le code que j'utilise dans mon Bat

Code:

1
2
3
4
5
6
7
8
 
:variables
set FichierSource=c:\temp\tnsnames.ora
set FichierDest=c:\temp\tnsnames.txt
set NomValeur=CODR
 
:appel du script vbs
"C:\Applis Packagees\script\Supprime_ligne_fichier2.vbs" %FichierSource% %FichierDest% %NomValeur%

Puis voici mon script VBS qui receptionne mes variables et/ou paramètres

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fichier_lecture_1, fichier_lecture_2, fichier_ecriture_1, fichier_ecriture_2
Dim fso, fso1
Dim compteur
Dim chaine, machaine
 
set args = WScript.Arguments
fichier_lecture_1 = args(0)
fichier_ecriture_1 = args(1)
mot_cherche = args(2)
compteur = 0
 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set fso1 = CreateObject("Scripting.FileSystemObject") 
set fichier_lecture_2 = fso.opentextfile(fichier_lecture_1, 1, true)
set fichier_ecriture_2 = fso1.opentextfile(fichier_ecriture_1, 2, true)
 
' Copie ligne à ligne du fichier source sans la ligne contenant le mot recherche vers un fichier destination
do until fichier_lecture_2.atendofstream 
  chaine = fichier_lecture_2.readline()
  machaine = chaine  
  if instr(1, chaine, mot_cherche) > 0 then
     compteur = compteur + 1
	 machaine = fichier_lecture_2.readline()
  end if
  fichier_ecriture_2.writeline machaine
loop
 
fichier_lecture_2.close
fichier_ecriture_2.close
 
' Suppression du fichier source puis renommage du fichier destination avec le nom du fichier origine
fso.deletefile fichier_lecture_1
fso.movefile fichier_ecriture_1, fichier_lecture_1
 
set fichier_lecture_2 = nothing
set fso = nothing 
set fichier_ecriture_2 = nothing
set fso1 = nothing 
 
' la ligne suivante affiche le nombre de fois qu'il a trouve la variable y compris si elle n'existe pas
wscript.echo "mot trouvé " & compteur & " fois !!"

Donc du coup, je peux mettre un résolu sur mon problème.

Merci pour ton aide