FileSystem.Write(Int32, Object[]) 方法

定义

将数据写入一个顺序文件。 通常使用 Input 从文件中读取使用 Write 编写的数据。

public:
 static void Write(int FileNumber, ... cli::array <System::Object ^> ^ Output);
public static void Write (int FileNumber, params object[] Output);
static member Write : int * obj[] -> unit
Public Sub Write (FileNumber As Integer, ParamArray Output As Object())

参数

FileNumber
Int32

必需。 包含任何有效文件数的 Integer 表达式。

Output
Object[]

可选。 要写入文件的一个或多个由逗号分隔的表达式。

例外

文件模式无效。

示例

此示例使用 Write 函数将原始数据写入顺序文件。

' Open file for output.
FileOpen(1, "TestFile.txt", OpenMode.Output)
' Print text to the file. The quotation marks will be in the display.
Write(1, "This is a test.")
' Go to the next line.
WriteLine(1)
' Skip a line.
WriteLine(1)
' Print in two print zones. You will see commas and quotation marks
' in the output file.
WriteLine(1, "Zone 1", SPC(10), "Zone 2")
' Build a longer string before calling WriteLine.
WriteLine(1, "Hello" & "  " & "World")
' Include five leading spaces.
WriteLine(1, SPC(5), "Leading spaces")
' Print a word starting at column 10.
WriteLine(1, TAB(10), "Hello")

' Assign Boolean and Date 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.")
' Close the file.
FileClose(1)

' Contents of TestFile.txt
'"This is a test.",
'
'"Zone 1",          "Zone 2"
'"Hello  World"
'     "Leading spaces"
'         ,"Hello"
'"False is a Boolean value."
'"2/12/1969 is a date."

注解

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 无论区域设置如何,都不会翻译关键字 (keyword) 。

WriteLine 插入换行符 (,即回车符/换行符或 Chr(13) + Chr(10)) ,在文件中写入最后一个字符 Output 后。

可以使用双引号或“”在字符串中嵌入引号。 例如,

Dim x As String = "Double quotation marks aren't ""difficult"" to handle."

返回值为 的 Double quotation marks aren't "difficult" to handle字符串。

使用 WriteWriteLine 函数写入文件需要 AppendFileIOPermissionAccess 枚举进行访问。 有关更多信息,请参见FileIOPermissionAccess

适用于

另请参阅