Discussion :

[hungtuan]

Bonjour,

Je suis débutant en vbscript, j'ai commandé 2 livres afin d'apprendre.
J'aimerais faire un script qui me permet de lire la valeur qu il y a dans un fichier texte et de faire un IF, je m'explique :

$contenu = cat c:\fichier.txt #voir ce qu'il y a dans le fichier.txt
if $contenu = 0
then ok
else ko
Voyez vous ce que je veux faire ?

J'aimerais avoir un bout de script VBS pour avoir une base, le temps de recevoir mes livres. J'ai trouvé des commandes sur internet mais qui utilise le .net et je ne peux pas dans mon cas de figure utiliser ça.

Merci d'avance !

[hackoofr]

et soyez le Bienvenue dans notre Forum
Pour Commencer je vous recommande de consulter La FAQ Vbscript et voila Comment lire le contenu d'un fichier texte ? et vous pouvez aussi consulter INTRODUCTION AU LANGAGE VBSCRIPT

[hungtuan]

Merci de ta réponse rapide, j'avais déja trouvé ce bout de code dans la FAQ, mais quand je le met dans mon script editor ( outil de supervision Service Pilot ) et que je fais "test", il me dit, error compilation : 8.

POurrais tu m'éclairer ?

Merci

[hackoofr]

Merci de ta réponse rapide, j'avais déja trouvé ce bout de code dans la FAQ, mais quand je le met dans mon script editor ( outil de supervision Service Pilot ) et que je fais "test", il me dit, error compilation : 8.
POurrais tu m'éclairer ?
Merci

Si vous avez utiliser ce script :

Code :

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

1
2
3
4
5
6
Const ForReading = 1, ForWriting = 2 
  Dim oFso, f
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading)
  Wscript.echo f.ReadAll
  f.Close

et vous avez une erreur parce que le fichier1.txt n'existe pas donc il faut le créer et écrire dans ce dernier puis l'ouvrir en lecture seule et lire tout son contenu !

[hungtuan]

Dans mon outil de supervision j'ai essayé de mettre le bon fichier mais j'ai toujours l erreur compilation : 8.

Sinon dans notepad j'ai essayé de mettre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Variable 
 
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
 
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("C:\Supervision SDS\Script\partage1.txt", ForReading)
cscript.echo f.ReadAll
f.Close
 
If Variable = 0 Then
Wscript.echo "ok"
End if

et il me retourne une erreur : Microsoft VScript runtime error : object required "cscript"

[hungtuan]

j'ai trouvé la solution j'ai remplacé cscript.echo par wscript.echo et ça fonctionne avec notepad, par contre toujours pas pour mon outil de supervision qui me dit error 8 :s

[hackoofr]

Dans mon outil de supervision j'ai essayé de mettre le bon fichier mais j'ai toujours l erreur compilation : 8.

Sinon dans notepad j'ai essayé de mettre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim Variable 
 
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
 
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("C:\Supervision SDS\Script\partage1.txt", ForReading)
cscript.echo f.ReadAll
f.Close
 
If Variable = 0 Then
Wscript.echo "ok"
End if

et il me retourne une erreur : Microsoft VScript runtime error : object required "cscript"

Essaye ce code ci-dessous car il faut utiliser Wscript.echo ou bien un MsgBox et non cscript.echo :

Code :

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

1
2
3
4
5
6
Dim oFso, f
 
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("C:\Supervision SDS\Script\partage1.txt", ForReading)
Wscript.echo f.ReadAll
f.Close

[hackoofr]

Voici un petit exemple qui illustre bien ta requête càd "existence d'un caractère dans un fichier"
Dans cet exemple j'ai choisi la recherche du caractère "g" dans le contenu du fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
  Dim oFso, EcrireFichier, LireFichier, TitreMsgBox, ChoixCarac
  ChoixCarac = "g"
  TitreMsgBox = "Existence du caractère """& ChoixCarac &""" © hungtuan"
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set EcrireFichier = oFso.OpenTextFile("c:\fichier1.txt", ForWriting,True) 'Ouvrir le fichier en écriture
  EcrireFichier.Writeline "hungtuan" 'Ecrire une chaine de caractéres dans une ligne "hungtuan"
  EcrireFichier.Writeline "Hackoo" 'Ecrire une chaine de caractéres dans une ligne "Hackoo"
  Set LireFichier = oFso.OpenTextFile("c:\fichier1.txt", ForReading)'ouvrir le fichier en Lecutre seule
  strText = LireFichier.ReadAll'Lire tout le Contenu du fichier
  MsgBox "Le contenu du fichier est : " & vbcr & strText,64,TitreMsgBox'Affichage dans un MsgBox
  LireFichier.Close'Fermeture du fichier
If Instr(strText, ChoixCarac) > 0 Then 'Rechercher l'existence du caractère "g" dans le contenu du fichier
MsgBox "le caractère """& ChoixCarac &""" est Bien présent dans ce fichier !",64,TitreMsgBox
else
MsgBox "Non, Désolé, le caractère """& ChoixCarac &""" n'est pas présent dans ce fichier !",16,TitreMsgBox
end if

[hungtuan]

maintenant, j'aimerais déclarer en variable ce bout de script et faire un if comment faire svp ?

par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
$variable = Const ForReading = 1, ForWriting = 2
Dim oFso, f
 
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("C:\Supervision SDS\Script\partage1.txt", ForReading)
cscript.echo f.ReadAll
f.Close
 
if $variable = 0 then
....

comment faire en VBS?
Cdt

edit : je n'avais pas vu vos 2 dernières réponses.
Merci

[hackoofr]

maintenant, j'aimerais déclarer en variable ce bout de script et faire un if comment faire svp ?
par exemple
$variable = Const ForReading = 1, ForWriting = 2
Dim oFso, f

Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("C:\Supervision SDS\Script\partage1.txt", ForReading)
cscript.echo f.ReadAll
f.Close

if $variable = 0 then
....
comment faire en VBS?
Cdt

j'ai pas bien saisi ta requête ?? si tu reformules mieux ta question en mettant ton code entre les balises
est-ce-que tu as essayer le dernier script que j'ai poster "existence d'un caractère dans un fichier"

[hungtuan]

j'ai pas bien saisi ta requête ?? si tu reformules mieux ta question en mettant ton code entre les balises
est-ce-que tu as essayer le dernier script que j'ai poster "existence d'un caractère dans un fichier"

Oui j'ai essayé le dernier script que tu m'as donné mais ça ne fonctionne pas.Ca fonctionne en local avec CMD mais pas dans mon outil de supervision. Je crois que ce n'est pas du VBS qu'il faut utiliser dans mon outil de supervision mais du WSH. Voici un exemple de script qui marche dans mon outil de supervision.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function indicator(ByRef Nom As String, ByRef Object_1 As String, ByRef Object_2 As String, ByRef Object_3 As String, ByRef Object_4 As String, ByRef Object_5 As String, ByRef mSeconds As String, ByRef ObjectVar1 As String, ByRef ObjectVar2 As String, ByRef ObjectVar3 As String, ByRef ObjectVar4 As String, ByRef ObjectVar5 As String, ByRef ObjectVar6 As String, ByRef ClassVar1 As String, ByRef ClassVar2 As String, ByRef ClassVar3 As String, ByRef ClassVar4 As String, ByRef ClassVar5 As String, ByRef ClassVar6 As String, ByRef GlobalVar1 As String, ByRef GlobalVar2 As String, ByRef GlobalVar3 As String, ByRef GlobalVar4 As String, ByRef GlobalVar5 As String, ByRef GlobalVar6 As String) As String
 
indicator = vbnullstring
 
* indicator = "KO"
try
******* If My.Computer.FileSystem.DirectoryExists(Nom) Then
*********** Dim nbDirectories As Integer = My.Computer.FileSystem.GetDirectories(Nom).Count
*********** Dim nbFiles As Integer = My.Computer.FileSystem.GetFiles(Nom).Count
*********** If nbDirectories >= 0 OrElse nbFiles >= 0 Then
*************** indicator = "OK"
*********** End If
******* End If
catch e as exception
 
indicator = "KO"
 
end try
 
 
End Function

Est-ce bien du VBS pur ? et non une dérive comme WSH ou WSF ?!


Merci encore du temps que tu passes à me répondre.
Cdt,

[hackoofr]

Oui j'ai essayé le dernier script que tu m'as donné mais ça ne fonctionne pas.Ca fonctionne en local avec CMD mais pas dans mon outil de supervision. Je crois que ce n'est pas du VBS qu'il faut utiliser dans mon outil de supervision mais du WSH. Voici un exemple de script qui marche dans mon outil de supervision.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function indicator(ByRef Nom As String, ByRef Object_1 As String, ByRef Object_2 As String, ByRef Object_3 As String, ByRef Object_4 As String, ByRef Object_5 As String, ByRef mSeconds As String, ByRef ObjectVar1 As String, ByRef ObjectVar2 As String, ByRef ObjectVar3 As String, ByRef ObjectVar4 As String, ByRef ObjectVar5 As String, ByRef ObjectVar6 As String, ByRef ClassVar1 As String, ByRef ClassVar2 As String, ByRef ClassVar3 As String, ByRef ClassVar4 As String, ByRef ClassVar5 As String, ByRef ClassVar6 As String, ByRef GlobalVar1 As String, ByRef GlobalVar2 As String, ByRef GlobalVar3 As String, ByRef GlobalVar4 As String, ByRef GlobalVar5 As String, ByRef GlobalVar6 As String) As String
 
indicator = vbnullstring
 
* indicator = "KO"
try
******* If My.Computer.FileSystem.DirectoryExists(Nom) Then
*********** Dim nbDirectories As Integer = My.Computer.FileSystem.GetDirectories(Nom).Count
*********** Dim nbFiles As Integer = My.Computer.FileSystem.GetFiles(Nom).Count
*********** If nbDirectories >= 0 OrElse nbFiles >= 0 Then
*************** indicator = "OK"
*********** End If
******* End If
catch e as exception
 
indicator = "KO"
 
end try
 
 
End Function

Est-ce bien du VBS pur ? et non une dérive comme WSH ou WSF ?!


Merci encore du temps que tu passes à me répondre.
Cdt,

ceci n'est pas du VBscript mais du VB.net donc tu dois choisir si tu vas continuer à apprendre le Vbscript ou bien aborder le VB.net

[hungtuan]

Voici un bout de script qui marche dans mon outil de supervision, est ce bien du VBscript et pas WSF ??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function indicator(ByRef Nom As String, ByRef Object_1 As String, ByRef Object_2 As String, ByRef Object_3 As String, ByRef Object_4 As String, ByRef Object_5 As String, ByRef mSeconds As String, ByRef ObjectVar1 As String, ByRef ObjectVar2 As String, ByRef ObjectVar3 As String, ByRef ObjectVar4 As String, ByRef ObjectVar5 As String, ByRef ObjectVar6 As String, ByRef ClassVar1 As String, ByRef ClassVar2 As String, ByRef ClassVar3 As String, ByRef ClassVar4 As String, ByRef ClassVar5 As String, ByRef ClassVar6 As String, ByRef GlobalVar1 As String, ByRef GlobalVar2 As String, ByRef GlobalVar3 As String, ByRef GlobalVar4 As String, ByRef GlobalVar5 As String, ByRef GlobalVar6 As String) As String
 
indicator = vbnullstring
 
* indicator = "KO"
try
******* If My.Computer.FileSystem.DirectoryExists(Nom) Then
*********** Dim nbDirectories As Integer = My.Computer.FileSystem.GetDirectories(Nom).Count
*********** Dim nbFiles As Integer = My.Computer.FileSystem.GetFiles(Nom).Count
*********** If nbDirectories >= 0 OrElse nbFiles >= 0 Then
*************** indicator = "OK"
*********** End If
******* End If
catch e as exception
 
indicator = "KO"
 
end try
 
 
End Function

Merci d'avance