Write、WriteLine 函数
更新：2007 年 11 月
将数据写入顺序文件。用 Write 写入的数据通常由 Input 从文件中读取。
Public Sub Write( _
ByVal FileNumber As Integer, _
ByVal ParamArray Output As Object _
)
' -or-
Public Sub WriteLine( _
ByVal FileNumber As Integer, _
ByVal ParamArray Output() As Object _
)
参数
FileNumber
必需。包含任何有效文件号的 Integer 表达式。Output
可选。要写入文件的一个或多个用逗号分隔的表达式。
异常
异常类型 |
错误号 |
条件 |
|---|---|---|
FileNumber 不存在。 |
||
文件模式无效。 |
如果正在升级使用非结构化错误处理方式的 Visual Basic 6.0 应用程序，请参见“错误号”一列。（您可以根据 Number 属性（Err 对象） 比较错误号。） 然而，如果可能，应当考虑用 Visual Basic 的结构化异常处理概述 替换这种错误控制。
备注
提供 Write 和 WriteLine 函数是为了实现向后兼容性，可能会影响性能。对于非旧式应用程序，My.Computer.FileSystem 对象将提供更好的性能。有关更多信息，请参见 使用 Visual Basic 访问文件。
如果省略 Output，则向文件输出一个空行。可以用逗号分隔多个表达式。
与 Print 函数不同，当将数据写入文件时，Write 函数会在各项和字符串两边的引号之间插入逗号。不必在列表中置入显式分隔符。使用 Write 将数据写入文件时，仅支持数字、Boolean、日期、Null 和 Error 数据格式。请遵照下面的通用假设，这样无论区域设置如何，都能使用 Input 读取和正确解释数据：
在写入数值数据时总是使用句点作为小数点分隔符。
对于 Boolean 数据，输出 #TRUE# 或 #FALSE#。无论区域设置如何，都不翻译关键字 True 和 False。
日期数据以通用日期格式写入文件。当日期或时间组件丢失或为零时，只有提供的部分写入文件。
如果 Output 数据为空，则不向文件写入任何内容。但是，对于 Null 数据，将写入 #NULL#。
对于 Error 数据，输出显示为 #ERROR errorcode#。无论区域设置如何，都不翻译关键字 Error。
WriteLine 在将 Output 中的最后一个字符写入文件后会插入一个换行符（即回车/换行，也就是 Chr(13) + Chr(10)）。
您可以通过使用双引号（即 ""）来将引号嵌入在字符串中。例如，
Dim x As String = "Double quotation marks aren't ""difficult"" to handle."
返回字符串 Double quotation marks aren't "difficult" to handle。
使用 Write 或 WriteLine 函数写入文件需要 FileIOPermissionAccess 枚举的 Append 访问权限。有关更多信息，请参见 FileIOPermissionAccess 枚举。
示例
本示例使用 Write 函数将原始数据写入顺序文件。
FileOpen(1, "TESTFILE", OpenMode.Output) ' Open file for output.
Write(1, "This is a test.") ' Print text to file.
WriteLine(1) ' Print blank line to file.
WriteLine(1, "Zone 1", TAB(), "Zone 2") ' Print in two print zones.
WriteLine(1, "Hello", " ", "World") ' Separate strings with space.
WriteLine(1, SPC(5), "5 leading spaces ") ' Print five leading spaces.
WriteLine(1, TAB(10), "Hello") ' Print word at column 10.
' Assign Boolean, Date, and Error values.
Dim aBool As Boolean
Dim aDate As DateTime
aBool = False
aDate = DateTime.Parse("February 12, 1969")
' Dates and Booleans are translated using locale settings of
' your system.
WriteLine(1, aBool, " is a Boolean value")
WriteLine(1, aDate, " is a date")
FileClose(1) ' Close file.
智能设备开发人员说明
不支持此函数。
要求
**模块：**FileSystem
**程序集：**Visual Basic 运行库（在 Microsoft.VisualBasic.dll 中）
请参见
任务
如何：在 Visual Basic 中使用 StreamWriter 向文件中写入文本