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(字节)的一个数。对于用随机访问方式打开的文件,该值就是记录长度。对于顺序文件,该值就是缓冲字符数。
If Dir(App.Path & "\sysupdate.txt") <> "" Then filenumber = FreeFile Open App.Path & "\sysupdate.txt" For Input As #filenumber If Not EOF(filenumber) Then Line Input #filenumber, nextline datetemp = Mid(Trim(nextline), 6) End If Close #filenumber End If
dim s as string Open "f:\abc.txt" For Input As #1 s = StrConv(InputB(LOF(1), #1), vbUnicode) Close #1 msgbox s
问一下,input是读文件内容还是写文件?
哦,谢谢 myhgyp !和 tztz520 ! 我先试试看。
input mean input something to var from file. print mean output var to file.
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(字节)的一个数。对于用随机访问方式打开的文件,该值就是记录长度。对于顺序文件,该值就是缓冲字符数。
filenumber = FreeFile
Open App.Path & "\sysupdate.txt" For Input As #filenumber
If Not EOF(filenumber) Then
Line Input #filenumber, nextline
datetemp = Mid(Trim(nextline), 6)
End If
Close #filenumber
End If
Open "f:\abc.txt" For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
msgbox s
我先试试看。
print mean output var to file.