谁能告诉我？（2）

Question

Private Sub cmd1_Click()
no = Text1.Text
na = Text2.Text
Open "C:\a.txt" For Output As #2
Write #2, no, na
Close #2
End Sub
他可以记录2组数据~但是在txt文件中无法多行记录~为什么？

Answer 1

无法多行记录?
是不是说打开txt文件后没有换行?
要是这样的话要注意在 text1.text后加上vbcrlf
既:no=text1.text & vbcrlf

Answer 2

不好意思错了
应该是:
na=text2.text & vbcrlf
no 应该是纪录号之类的数值

Answer 3

' 用Print吧,用Write加上vbcrlf后会缺少引号.Option ExplicitPrivate Sub cmd1_Click()
Dim no As String, na As String
no = Text1.Text
na = Text2.Text
Open "C:\a.txt" For Output As #2
    Print #2, no & vbCrLf & na
Close #2
End Sub

Answer 4

' 用Print吧,用Write加上vbcrlf后会缺少引号Option ExplicitPrivate Sub cmd1_Click()
Dim no As String, na As String
no = Text1.Text
na = Text2.Text
Open "C:\a.txt" For Output As #2
    Print #2, no & vbCrLf & na
Close #2
End Sub

Answer 5

Print # 语句
      将格式化显示的数据写入顺序文件中。语法Print #filenumber, [outputlist]Print # 语句的语法具有以下几个部分：部分 描述 
filenumber 必要。任何有效的文件号。 
outputlist 可选。表达式或是要打印的表达式列表。 
设置outputlist 参数的设置如下：[{Spc(n) | Tab[(n)]}] [expression] [charpos]设置 描述 
Spc(n) 用来在输出数据中插入空白字符，而 n 指的是要插入的空白字符数。 
Tab(n) 用来将插入点定位在某一绝对列号上，这里，n 是列号。使用无参数的 Tab 将插入点定位在下一个打印区的起始位置。 
expression 要打印的数值表达式或字符串表达式。 
charpos 指定下一个字符的插入点。使用分号将插入点定位在上一个显示字符之后。用 Tab(n) 将插入点定位在某一绝对的列号上，用无参数的 Tab 将插入点定位在下一个打印区的起始处。如果省略 charpos，则在下一行打印下一个字符。 
说明通常用 Line Input # 或 Input 读出 Print # 在文件中写入的数据。如果省略参数 outputlist，而且，filenumber 之后只含有一个列表分隔符，则将一空白行打印到文件中。多个表达式之间可用一个空白或一个分号隔开。空白与分号等效。对于 Boolean 类型的数据，打印的是 True 或 False。无论在什么国别，都不将 True 和 False 这两个关键字翻译出来。使用操作系统所能够辨认的标准短日期格式可将 Date 类型的数据写入文件中。在未指定日期或时间部件或这些部件的设置为零时，只将指定的部分写入文件中。如果 outputlist 的数据是 Empty，则不将任何数据写入文件。但是，如果 outputlist 的数据是 Null，则将 Null 写入文件。对于 Error 类型的数据而言，输出的数据看起来与 Error errorcode 一样。而且无论在什么地区，都不将 Error 关键字翻译出来。用 Print # 写入文件的所有数据都是国际通用的；也就是说，可以正确利用十进制分隔符将这些数据格式化。因为 Print # 将数据的图像写入文件，所以必须将各项数据分隔开来，以便正确打印。如果使用无参数的 Tab 将打印位置移动到下一个打印区，则 Print # 也会将打印字段之间的空白写入文件中。注意 如果今后想用 Input # 语句读出文件的数据，就要用 Write # 语句而不用 Print # 语句将数据写入文件。因为在使用 Write # 时，将数据域分界就可确保每个数据域的完整性，因此可用 Input # 再将数据读出来。使用 Write # 还能确保任何地区的数据都被正确读出。