Ouvrir un fichier dans une fonction ?

Bonjour,

Pourquoi "ça marche pas" svp ?

Code:

---

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 :cry:

Merci.

Citation:

---

Envoyé par Toulousaing

Bonjour,
Pourquoi "ça marche pas" svp ?

Code:

---

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 :cry:
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 :ccool:

Code:

---

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

---

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

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)

Bonjour;

Si tu essaies ce

Code:

---

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

---