print # and input #

时　间:2008-09-01 16:00:38
作　者:suve   ID：364  城市：武汉
摘　要:print # input#
正　文:

学习进程记录：录入与导出的功能，我期待很久，终于偶然遇到，把f1帮助的例子留在这里，以做标识。

Open "TESTFILE" For Output As #1    ' 打开输出文件。
Print #1, "This is a test"    ' 将文本数据写入文件。
Print #1,    ' 将空白行写入文件。
Print #1, "Zone 1"; Tab; "Zone 2"     ' 数据写入两个区（print zones）。
Print #1, "Hello"; " "; "World"      ' 以空格隔开两个字符串。
Print #1, Spc(5); "5 leading spaces "     ' 在字符串之前写入五个空格。
Print #1, Tab(10); "Hello"     ' 将数据写在第十列。

' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False: MyDate = #2/12/1969#: MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
Print #1, MyBool; " is a Boolean value"
Print #1, MyDate; " is a date"
Print #1, MyNull; " is a null value"
Print #1, MyError; " is an error value"
Close #1    ' 关闭文件。

Dim MyString, MyNumber
Open "TESTFILE" For Input As #1    ' 打开输入文件。
Do While Not EOF(1)    ' 循环至文件尾。
    Input #1, MyString, MyNumber    ' 将数据读入两个变量。
    Debug.Print MyString, MyNumber    ' 在立即窗口中显示数据。

Loop
Close #1    ' 关闭文件。点击下载此附件