VB打开文件的代码该怎么写

如题所述

第1个回答  2020-06-30
方法一:
用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取:
Private
Sub
Command1_Cliack()
Dim
sA
As
String
*
65400
'声明定长String变量
Open
"F:\d.txt"
For
Binary
As
#1
'用二进制打开文件
Get
#1,
,
sA
'用Get语句从文件中获取字节
Text1
=
sA
'显示打开的文件
Close
#1
'关闭文件
End
Sub
方法二:
先声明一字符串变量,然后用空格填充字符串,使变量大小与文件大小一致,再通过Get语句将文件全部数据存储到变量中,从而达到获取整个文件字节数的目的。此法可以打开大于32K的文件,但应该注意的是,装载文件的容器必须能装载大于32K的文件,下例用RichTextBox控件显示打开的文件:
Private
Sub
Command1_Click()
Dim
sA
As
String
Open
"f:\d.txt"
For
Binary
As
#1
sA
=
Space(LOF(1))
'用空格填充sA变量
Get
#1,
,
sA
'用Get语句获取文件全部内容
RichTextBox1.Text
=
sA
Close
#1
End
Sub
相似回答