Shulou(Shulou.com)06/03 Report--

This article introduces the relevant knowledge of "the use of OpenAsTextStream method in VBS". In the operation of actual cases, many people will encounter such a dilemma, so let the editor lead you to learn how to deal with these situations. I hope you can read it carefully and be able to achieve something!

Opens the specified file and returns a TextStream object that is used to read, write, or append the file.

Object.OpenAsTextStream ([iomode, [format]])

Parameter object

Required. Expected the name of the File object.

Iomode

Optional. The input / output mode is one of the following three constants: ForReading, ForWriting, or ForAppending.

Format

Optional. One of the three Tristate values indicating the format in which to open the file. Ignore this parameter, the file is opened in ASCII format.

Set up

The iomode parameter can be one of the following settings:

The constant value describes that ForReading1 opens the file in read-only mode. You cannot write to this file. ForWriting2 opens the file in read-write mode. If a file with the same name already exists, the old file is overwritten. ForAppending8 opens the file and writes at the end of the file.

The format parameter can be one of the following settings:

The constant value description TristateUseDefault-2 opens the file in the system default format. TristateTrue-1 opens the file in Unicode format. TristateFalse0 opens the file in ASCII format. Description

The OpenAsTextStream method provides the same functionality as the OpenTextFile method of the FileSystemObject object. In addition, you can write to the file using the OpenAsTextStream method.

The following code illustrates how to use the OpenAsTextStream method:

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" 'create a file. Set f = fso.GetFile ("test1.txt") Set ts = f.OpenAsTextStream (ForWriting, TristateUseDefault) ts.Write "Hi, hello!" Ts.Close Set ts = f.OpenAsTextStream (ForReading, TristateUseDefault) TextStreamTest = ts.ReadLine ts.CloseEnd Function "use of the OpenAsTextStream method in VBS" ends here. Thank you for reading. If you want to know more about the industry, you can follow the website, the editor will output more high-quality practical articles for you!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.