Private Sub button1_Click (ByVal eventSender As System Object, By Val eventargs As System. EventArgs)Handles button 1. Click Dim b, fname, nextline As string Dim recordNumber As integer 用 Write及 Writeline写3行数据到 file. tx文件中,如图6-2所示: fname=file. txt FileOpen(1, fname, Open Mode output) For recordnumber =1 To 3 循环5次 nextline="Name"& recordNumber"定义字符串 Write(1, nextline) 将字符串 nextline写入文件后不 换行 WriteLine(1, recordNumber)"将整型数 recordNumber写入文 件后再换行 Next FileClose(1) 用Iput读出 Ifile. txt中的内容到文本框中显示,如图6-3的前3行 TextBox1 Text FileClose(1) FileOpen( 1, fname, Open Mode Input) b IIII
Private Sub button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles button1.Click Dim b, fname, nextline As String Dim recordNumber As Integer '用Write 及WriteLine写3行数据到file.txt文件中，如图6-2所示： fname = "file.txt" FileOpen(1, fname, OpenMode.Output) For recordNumber = 1 To 3 '循环5次 nextline = "Name " & recordNumber '定义字符串 Write (1, nextline) '将字符串nextline写入文件后不 换行 WriteLine(1, recordNumber) '将整型数recordNumber写入文 件后再换行 Next FileClose(1) '用Input读出file.txt中的内容到文本框中显示，如图6-3的前3行： TextBox1.Text = "" FileClose(1) FileOpen(1, fname, OpenMode.Input) b =
Do Until EOF(1) Input(1, nextline 读一个字段到 nextline中 b= b& nextline chr(13 )& chr(10) 将读出的字段连接到b中并加1个回车换行符 Loop File Close(1) TextBox1, Text= b 用 neInput再读flet中的内容到文本框中显示,如图63的后3行 FileOpen (1, fname, Open Mode Input) b Do Until EoF(1 nextline= LineInput(1) 读一行字符到 nextline中 b= b& nextline chr(13)& Chr(10) 将读出的这行字符连接到b中并加1个回车换行符 oop File Close(1) TextBox1 Text Text Box1. Text b End sub
Do Until EOF(1) Input(1, nextline) '读一个字段到nextline中 b = b & nextline & Chr(13) & Chr(10) '将读出的字段连接到b中并加1个回车换行符 Loop FileClose(1) TextBox1.Text = b '用LineInput再读file.txt中的内容到文本框中显示，如图6-3的后3行： FileOpen(1, fname, OpenMode.Input) b = "" Do Until EOF(1) nextline = LineInput(1) '读一行字符到 nextline中 b = b & nextline & Chr(13) & Chr(10) '将读出的这行字符连接到b中并加1个回车换行符 Loop FileClose(1) TextBox1.Text = TextBox1.Text & b End Sub
从本例输出的结果可以看出,Wite及 Writeline可以写入不同类型的数 据, Write写完后不换行,而 Writeline写完后要换行。Iηpu和 lLinelnput可 以读出不同类型的数据,Inpu读个字段, Linelnpu读行。 3随机文件的读写 随机文件是一种以记录形式组织数据的文件,其数据存储方式为随机存 储,可以随意读写文件中的记录数据。但所有记录的长度必须相同 1) FileSystem, FilePut方法 , FileSystem. FilePl址方法仅在Ram和B模式中有效。该方法将 量中的数据写入磁盘文件中,它被重载,其语法如下: File System. FilePut (Int32, Boolean, Int64) FileSystem. FilePut (Int32, Byte, Int64) File System. FilePut(Int32, Char, Int64) FileSystem. FilePut(Int32, DateT ime, Int64) File System. FilePut(Int32, Decimal, Int64) File System. FilePut(Int32, Double, Int64) File system. FilePut (Int32, Int16, Int64) FileSystem. FilePut(Int32, Int32, Int64)
从本例输出的结果可以看出，Write 及WriteLine可以写入不同类型的数 据，Write写完后不换行，而WriteLine写完后要换行。Input和LineInput可 以读出不同类型的数据，Input读一个字段，LineInput读一行。 3 随机文件的读写 随机文件是一种以记录形式组织数据的文件，其数据存储方式为随机存 储，可以随意读写文件中的记录数据。但所有记录的长度必须相同 1) FileSystem.FilePut方法 FileSystem.FilePut 方法仅在 Random 和 Binary 模式中有效。该方法将 变量中的数据写入磁盘文件中，它被重载，其语法如下： FileSystem.FilePut (Int32, Boolean, Int64) FileSystem.FilePut (Int32, Byte, Int64) FileSystem.FilePut (Int32, Char, Int64) FileSystem.FilePut (Int32, DateTime, Int64) FileSystem.FilePut (Int32, Decimal, Int64) FileSystem.FilePut (Int32, Double, Int64) FileSystem.FilePut (Int32, Int16, Int64) FileSystem.FilePut (Int32, Int32, Int64)
File System. FilePut(Int32, Int64, Int64 File system. FilePut(Int32, Single, Int64) Filesystem. FilePut(Int32, ValueType, Int64 File System. FilePut(Int32, Object, object File System. FilePut (Int32, String, Int64, Boolean) File system. FilePut(Int32, Array, Int64, Boolean, Boolean) 其中前3个参数: Int32:必选。任何有效的文件号。 Single等:必选。有效变量名,它包含写入磁盘的数据。 Int64:可选。开始写入处的记录号( Random模式文件)或字节号 ( Binary模式文件) 最后两个重载方法中的最后一个参数 Boolean:可选。仅在写入字符串 时适用。指定是否将字符串的双字节字符串长度说明符写入文件中。默认 值为 False 最后一个重载方法中的第4个参数 Boolean:可选。仅当写入数组时使用。 指定是否将数组视为动态数组,以及是否写入用于描述字符串长度的数组 说明符。默认值为 False
FileSystem.FilePut (Int32, Int64, Int64) FileSystem.FilePut (Int32, Single, Int64) FileSystem.FilePut (Int32, ValueType, Int64) FileSystem.FilePut (Int32, Object, Object) FileSystem.FilePut (Int32, String, Int64, Boolean) FileSystem.FilePut (Int32, Array, Int64, Boolean, Boolean) 其中前3个参数： -- Int32：必选。任何有效的文件号。 -- Single等：必选。有效变量名，它包含写入磁盘的数据。 -- Int64：可选。开始写入处的记录号（Random 模式文件）或字节号 （Binary 模式文件）。 最后两个重载方法中的最后一个参数Boolean ：可选。仅在写入字符串 时适用。指定是否将字符串的双字节字符串长度说明符写入文件中。默认 值为 False。 最后一个重载方法中的第4个参数Boolean ：可选。仅当写入数组时使用。 指定是否将数组视为动态数组，以及是否写入用于描述字符串长度的数组 说明符。默认值为 False
如果写入的变量是一个数组,则可以选择是否写入数组大小和维度的说 明符。Ⅴ Visual basic2005默认情况下不写入说明符。若要写入说明符,可 将 Boolean参数设置为True。在写入数组时,写入方式需要与读取数组的 方式匹配,如果读取它时将利用说明符,则写入时需要同时写入说明符。 该说明符指定数组的秩、大小和每个秩的下限。其长度等于2加上维数的 8倍:(2+8* NumberofDimensions)。 FileOpen函数中的 RecordLength子句指定的记录长度必须大于或等于写入数组数据和数组说 明符所需的全部字节数的总和 2) FileSystem. FileGet方法 , FileSystem. FileGet方法将打开的磁盘文件中的数据读耿到变量中。 leget方法的重载列表与上述 Filep吐t方法一样,只是读而已。 3)举例 例6-2利用随机文件保存员工的成绩,可以输入员工的编号(ID) 姓名(Name)以及月薪。 建立应用程序用户界面与设置对象属性。建立4个Labe、3个 TextBox、2 个 Button控件,界面如图6-4际示
如果写入的变量是一个数组，则可以选择是否写入数组大小和维度的说 明符。Visual Basic 2005 默认情况下不写入说明符。若要写入说明符，可 将 Boolean参数设置为 True。在写入数组时，写入方式需要与读取数组的 方式匹配，如果读取它时将利用说明符，则写入时需要同时写入说明符。 该说明符指定数组的秩、大小和每个秩的下限。其长度等于 2 加上维数的 8 倍：（2 + 8 * NumberOfDimensions）。FileOpen函数中的 RecordLength 子句指定的记录长度必须大于或等于写入数组数据和数组说 明符所需的全部字节数的总和。 2) FileSystem.FileGet 方法 FileSystem.FileGet 方法将打开的磁盘文件中的数据读取到变量中。 FileGet 方法的重载列表与上述FilePut 方法一样，只是读而已。 3) 举例 例6-2 利用随机文件保存员工的成绩，可以输入员工的编号（ID）、 姓名（Name）以及月薪。 建立应用程序用户界面与设置对象属性。建立4个Label、3个TextBox、2 个Button控件，界面如图6-4所示