在VB中,如何直接把多个Text
定义一数组变量,将TextBox控件的值赋值给数组变量,用Open语句以写文件方式将TextBox控件的内容输入到文本文件中。
Option Explicit
Dim sj(3) As Variant
Private Sub cmdSave_Click()
sj(0) = Text1。 Text
sj(1) = Text2。Text
sj(2) = Text3。Text
sj(3) = Text4。Text
Open "c:\testfirst。txt" For Output As #1
Write #1, sj(0), sj(1), sj(2), sj(3)
Close
End Sub...全部
定义一数组变量,将TextBox控件的值赋值给数组变量,用Open语句以写文件方式将TextBox控件的内容输入到文本文件中。
Option Explicit
Dim sj(3) As Variant
Private Sub cmdSave_Click()
sj(0) = Text1。
Text
sj(1) = Text2。Text
sj(2) = Text3。Text
sj(3) = Text4。Text
Open "c:\testfirst。txt" For Output As #1
Write #1, sj(0), sj(1), sj(2), sj(3)
Close
End Sub
VB的文件操作详细见如下MSDN的解释:
Open 语句
能够对文件输入/输出 (I/O)。
语法
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
Open 语句的语法具有以下几个部分：
部分 描述
pathname 必要。
字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器。
mode 必要。关键字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。
如果未指定方式，则以 Random 访问方式打开文件。
access 可选。关键字，说明打开的文件可以进行的操作，有 Read、Write、或 Read Write 操作。
lock 可选。
关键字，说明限定于其它进程打开的文件的操作，有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。
filenumber 必要。一个有效的文件号，范围在 1 到 511 之间。
使用 FreeFile 函数可得到下一个可用的文件号。
reclength 可选。小于或等于 32，767（字节）的一个数。对于用随机访问方式打开的文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。
说明
对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用，并决定缓冲区所使用的访问方式。
如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。
在OPEN语句中用Append替代Output,就能实现在原有记录后追加记录,也就是你想的每次写完 txt文件之后换到下一行,为下次的写入做准备,写入一次记录是换1行写下一次记录。
。
收起
