以 Input模式打开进行读取操作处理的文件名为 TestFile的顺序文件。 FileOpen (1, TESTFILE Open Mode Input 加入对 TestFile文件进行读取访问处理的代码 FileClose(1) 关闭 TestFile文件 以oυtpt模式打开该文件,任何进程都可以写入该文件。 FileOpen(1, TESTFILE Open Mode Output, OpenAccess Default, Open Share Shared) 加入对 TestFile文件进行写入访问处理的代码,文件关闭前可以用另 种模式打开 FileClose(1) 以 Random模式打开 TestFile随机文件进行读写操作,该文件含结构 Person的记录 Structure person <VBFixedString ( 30)> Dim Name As String Dim ID As Integer End structure Public Sub ExampleMethodo Len( Person)记录长度为Name和ID长度之和为34。 Access、 Share参 数省略,但“不能省
以 Input 模式打开进行读取操作处理的文件名为 TestFile的顺序文件。 FileOpen(1, "TESTFILE", OpenMode.Input) ' 加入对TestFile文件进行读取访问处理的代码 FileClose(1) ' 关闭TestFile文件 以 Output 模式打开该文件，任何进程都可以写入该文件。 FileOpen(1, "TESTFILE", OpenMode.Output, OpenAccess.Default, OpenShare.Shared) '加入对TestFile文件进行写入访问处理的代码，文件关闭前可以用另一 种模式打开 FileClose(1) 以 Random 模式打开TestFile随机文件进行读写操作，该文件含结构 Person 的记录。 Structure Person <VBFixedString(30)> Dim Name As String Dim ID As Integer End Structure Public Sub ExampleMethod() ' Len(Person)记录长度为Name和 ID长度之和为 34。Access、Share参 数省略，但“,”不能省
FileOpen(1," TESTFILE Open Mode. Random, ,, Len(person)) 加入对 TestFile随机文件进行读写处理的代码 FileClose (1) End sub 以 Binary模式打开进行只写操作处理的文件名为 Testfile的二进制文件。 FileOpen(1," TESTFILE Open Mode. Binary, OpenAccess. Write) 加入对 TestFile二进制文件进行写入访问处理的代码 File Close(1) 以 Binary模式打开该文件进行读取,其他进程无法读取该文件。 FileOpen(1," TESTFILE Open Mode. Binary, OpenAccess. Read, Open Share. LockRead) 2顺序文件的读写 顺序文件也就是普通的文本文件,文件里面的数据存取方式为顺序存取 即数据是一个接—一个地顺序写入文件中的。读数据时,也是一个接一个地 顺序读出文件的。 按顺序访问文件时,无法更改其数据,可以读取数据、并追加新数据 或用新数据改写。如果为了进行输入而打开该文件,即使不直接写入该文 件,文件的内容也将被改写
FileOpen(1, "TESTFILE", OpenMode.Random, , , Len(Person)) '加入对TestFile随机文件进行读写处理的代码 FileClose(1) End Sub 以 Binary 模式打开进行只写操作处理的文件名为 TestFile的二进制文件。 FileOpen(1, "TESTFILE", OpenMode.Binary,OpenAccess.Write) ' 加入对TestFile二进制文件进行写入访问处理的代码 FileClose(1) 以 Binary 模式打开该文件进行读取，其他进程无法读取该文件。 FileOpen(1, "TESTFILE", OpenMode.Binary, OpenAccess.Read, OpenShare._ LockRead) 2 顺序文件的读写 顺序文件也就是普通的文本文件，文件里面的数据存取方式为顺序存取， 即数据是一个接一个地顺序写入文件中的。读数据时，也是一个接一个地 顺序读出文件的。 按顺序访问文件时，无法更改其数据，可以读取数据、并追加新数据， 或用新数据改写。如果为了进行输入而打开该文件，即使不直接写入该文 件，文件的内容也将被改写
1) Write、 Writeline函数写操作 要向顺序文件中写入内容,应以 Output或 Append方式打开,然后使用 Write、 Writeline函数将数据写入文件中 Public Sub Write Byval FileNumber As Integer, ByVal ParamArray Output As Object Public Sub WriteLine( Byval FileNumber As Integer, ByVal ParamArray Output As_ object FileNumber:必选。包含任何有效文件号的 Integer表达式。 Output:可选。要写入文件的一个或多个用逗号分隔的表达式 将数据写入顺序文件。用 Write写入的数据通常由Inpυut从文件中读取。 2)儿 LineInput、 Input方法读操作 FileSystem. LineInput方法 从打开的顺序文件中读取一行并将其赋值给一个 String变量。 Public Shared Function LineInput ( FileNumber As Integer )As String Linelnput函数从文件中一次读取一个字符,直到它遇到回车符(Ch 3))或回车/换行符(Chr(13)+Chr(10))序列为止。该函数 跳过回车换行符序列,而不是将其附加到字符串中
1)Write、WriteLine 函数写操作 要向顺序文件中写入内容，应以Output或Append方式打开，然后使用 Write、WriteLine 函数将数据写入文件中： Public Sub Write( ByVal FileNumber As Integer, ByVal ParamArray Output As Object ) Public Sub WriteLine( ByVal FileNumber As Integer, ByVal ParamArray Output() As _ Object ) -- FileNumber：必选。包含任何有效文件号的 Integer 表达式。 -- Output：可选。要写入文件的一个或多个用逗号分隔的表达式。 将数据写入顺序文件。用 Write 写入的数据通常由 Input 从文件中读取。 2)LineInput 、Input 方法读操作 -- FileSystem.LineInput 方法 从打开的顺序文件中读取一行并将其赋值给一个 String 变量。 Public Shared Function LineInput (FileNumber As Integer ) As String LineInput 函数从文件中一次读取一个字符，直到它遇到回车符（Chr （13））或回车/换行符 （Chr（13） + Chr（10））序列为止。该函数 跳过回车/换行符序列，而不是将其附加到字符串中
File system. Input方法 读取打开的顺序文件中的数据,并将这些数据赋值给变量。 FileSystem. Input方法将磁盘文件中的数据读入变量中,它被重载,其 语法如下 File System Input(Int32, Boolean) File SystemInput (Int32, Byte) File System Input (Int32, Char) FileSystem. Input(Int32, DateTime) File System Input(Int32, Decimal) Ot(Int32, Double FileSystem. Input(Int32, Int16) File System Input (Int32, Int32 File System Input(Int32, Int64 File System Input(Int32, Object File System Input (Int32, Single FileSystem. Input(Int32, String
-- FileSystem.Input 方法 读取打开的顺序文件中的数据，并将这些数据赋值给变量。 FileSystem.Input方法将磁盘文件中的数据读入变量中，它被重载，其 语法如下： FileSystem.Input (Int32, Boolean) FileSystem.Input (Int32, Byte) FileSystem.Input (Int32, Char) FileSystem.Input (Int32, DateTime) FileSystem.Input (Int32, Decimal) Ot (Int32, Double) FileSystem.Input (Int32, Int16) FileSystem.Input (Int32, Int32) FileSystem.Input (Int32, Int64) FileSystem.Input (Int32, Object) FileSystem.Input (Int32, Single) FileSystem.Input (Int32, String)
举例 例6-1运用Wite及 WriteLine写3行字符到当前目录下的fett中,再分 别用Inpu和 Linelnpu分别读出 file. txt中的内容到文本框中显示,分析结果。 1e事本回回冈 團Fon1回区 文件)编辑〖)格式) Name 1 查看Q)帮助Q Nane1”,1 Name 2 Name 2.2 Name 3 Name 33 3 ame Name 2.2 "Name 3,3 but ton1 》 图62写入ftxt文件的内容图63读出的内容
-- 举例 例6-1 运用Write 及WriteLine 写3行字符到当前目录下的file.txt中，再分 别用Input和 LineInput分别读出file.txt中的内容到文本框中显示，分析结果