OpenAsTextStream, méthode

Microsoft VBScript

previous page next page
Microsoft® Visual Basic® Scripting Edition OpenAsTextStream, méthode  Référence de la bibliothèque d'exécution Scripting
Version 3

Voir aussi                  Application

Description
Ouvre un fichier spécifié et renvoie un objet TextStream pouvant être utilisé pour lire le fichier, écrire ou insérer un élément dans le fichier.
Syntaxe
object.OpenAsTextStream([iomode, [format]])

La méthode OpenAsTextStream comprend les éléments suivants :

Élément Description
object Correspond toujours au nom d'un objet File.
iomode Facultatif. Indique le mode entrée/sortie. Cet argument peut être une des trois constantes : ForReading, ForWriting ou ForAppending.
format Facultatif. L'une des trois valeurs 3-états permettant d'indiquer le format du fichier ouvert. Si cette valeur est omise, le fichier est ouvert en mode ASCII.

Valeurs
L'argument iomode peut prendre les valeurs suivantes :

Constante Valeur Description
ForReading 1 Ouvre un fichier en lecture seule. Vous ne pouvez pas écrire dans ce fichier.
ForWriting 2 Ouvre un fichier en écriture. Si un fichier existe sous le même nom, son contenu est écrasé.
ForAppending 8 Ouvre un fichier et écrit à la fin du fichier.

L'argument format peut prendre l'une des valeurs suivantes :

Constante Valeur Description
TristateUseDefault -2 Ouvre le fichier avec la valeur par défaut du système.
TristateTrue -1 Ouvre le fichier comme de l'Unicode.
TristateFalse  0 Ouvre le fichier comme de l'ASCII.

Notes
La méthode OpenAsTextStream offre la même fonctionnalité que la méthode OpenTextFile du FileSystemObject. En outre, la méthode OpenAsTextStream permet d'écrire dans un fichier.

Le code suivant illustre l'emploi de la méthode OpenAsTextStream : 

Function TextStreamTest
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
  Dim fso, f, ts
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.CreateTextFile "test1.txt"            ' Crée un fichier.
  Set f = fso.GetFile("test1.txt")
  Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
  ts.Write "Bonjour"
  ts.Close
  Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
  TextStreamTest = ts.ReadLine
  ts.Close
End Function

previous page start next page