Discussion :

[Toulousaing]

Bonjour,

Pourquoi "ça marche pas" svp ?

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
 
Const ForReading = 1
strFile = "toto.vbs"
 
objInLine = OpenTextFileForReading(strFile)
line = objInLine.ReadLine
wscript.echo line
objInLine.Close
wscript.quit 
 
'-------------------------------------------------------
Function OpenTextFileForReading(strFile)
 
set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.GetFile(strFile)
set objInLine = objFile.OpenAsTextStream(ForReading)
OpenTextFileForReading = objInLine                    ' <== bug
 
End Function

C:\vbs\test.vbs(15, 1) Erreur d'exécution Microsoft VBScript: Cet objet ne gère pas cette propriété ou cette méthode

Merci.

[hackoofr]

Bonjour,
Pourquoi "ça marche pas" svp ?

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
 
Const ForReading = 1
strFile = "toto.vbs"
objInLine = OpenTextFileForReading(strFile)
line = objInLine.ReadLine
wscript.echo line
objInLine.Close
wscript.quit 
'-------------------------------------------------------
Function OpenTextFileForReading(strFile)
set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.GetFile(strFile)
set objInLine = objFile.OpenAsTextStream(ForReading)
OpenTextFileForReading = objInLine                    ' <== bug
End Function

C:\vbs\test.vbs(15, 1) Erreur d'exécution Microsoft VBScript: Cet objet ne gère pas cette propriété ou cette méthode
Merci.

Salut ! Pour lire un fichier ligne par ligne il te faut une boucle non ?
alors essaye ce petit script : Lecture ligne à ligne d'un fichier texte

Code :

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

1
2
3
4
5
6
7
8
9
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
  strFile = "toto.vbs"
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile(strFile, ForReading)
  while Not f.AtEndOfStream 
     wscript.echo f.ReadLine
  Wend
  f.Close

[Toulousaing]

bonjour Hackoofr,
Merci pour ta réponse, mais je crois qu'elle ne concerne pas ma question...

La question est : pourquoi ne peut-on pas ouvrir un fichier dans une subroutine, ou plutôt pourquoi *mon* code n'ouvre pas un fichier dans une subroutine.

A+
D.
(auteur de Gestion d'erreurs et scripts Windows)

[l_autodidacte]

Bonjour;

Si tu essaies ce

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
Const ForReading = 1
strFile = "toto.vbs"
 
msgbox OpenTextFileForReading(strFile)
wscript.quit 
 
'-------------------------------------------------------
Function OpenTextFileForReading(strFile)
 
 set objFSO = CreateObject("Scripting.FileSystemObject")
 set objFile = objFSO.GetFile(strFile)
 set objInLine = objFile.OpenAsTextStream(ForReading)
 OpenTextFileForReading = objInLine.ReadAll                  
 objInLine.Close
End Function