MoveFirstr
DoWhileNotData1RecordsetEOFr
Pri
t1Data1Recorr
dsetquot字段1quotquotquot39不换行r
Pri
t1FormatData1Recordsetquot字段2quotquotquotr
Data1RecordsetMoveNextr
Loopr
Close1r
r
下面所举的例子均假设F盘下有一个名为dtxt的文本文件，若需要尝试这些例子请作相应的改动。r
r
方法一r
用定长的Stri
g变量获取文本内容。由于定长Stri
g变量支持的下界为65400所以在打开超过32K字节的文件时超出部分的字节将无法获取r
PrivateSubComma
d1_Cliackr
DimsAAsStri
g6540039声明定长Stri
g变量r
Ope
quotFdtxtquotForBi
aryAs139用二进制打开文件r
Get1sA39用Get语句从文件中获取字节r
Text1sA39显示打开的文件r
Close139关闭文件r
E
dSubr
r
方法二r
先声明一字符串变量，然后用空格填充字符串，使变量大小与文件大小一致，再通过Get语句将文件全部数据存储到变量中，从而达到获取整个文件字节数的目的。此法可以打开大于32K的文件，但应该注意的是，装载文件的容器必须能装载大于32K的文件，下例用RichTextBox控件显示打开的文件：r
PrivateSubComma
d1_Clickr
DimsAAsStri
gr
Ope
quotfdtxtquotForBi
aryAs1r
sASpaceLOF139用空格填充sA变量r
Get1sA39用Get语句获取文件全部内容r
RichTextBox1TextsAr
Close1r
E
dSubr
r
方法三：r
用StrCo
v函数将文件的控制字符串数据和U
icode码之间进行转换，从而达到打开文件的目的。可打开任意大小文件。此法笔者曾有一篇文章谈及，这里再给一个简单例子：r
PrivateSubComma
d1_Clickr
Ope
quotfdtxtquotForI
putAs1r
RichTextBox1TextStrCo
vI
putBLOF11vbU
icoder
Close1r
E
dSubr
r
方法四：r
用Shell语句直接调出Wi
dows的记事本，给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件注意：在可执行文件和要打开的文本文件之间要有空格：r
ShellquotNotePadEXEfdtxtquotvbNormalFucusr
r
方法五：r
用RichTextBox控件自身的LoadFile属性打开文件：r
RichTextBox1LoadFilequotfdtxtquotrtfTextr
r
dim
FileasI
tegerstrTmpasStri
gr
dimarTmpasStri
gr
FileFreeFiler
Ope
文本文件全路径名ForI
putAs
Filer
DoWhileNotEOF
Filer
Li
eI
put
FilestrTmpr
arTmpSplitstrTmp分隔符39不知道你分隔符是空格还是TABr
分析该数组（arTmp0对应第一个字段，依次类推）r
Loopr
Close
Filer
r
r
r
39假设要得到多个空格分隔的内容r
Dimstr1AsStri
gr
Dimastr1AsStri
g，astr2AsStri
gr
DimiasLo
gr
Ope
quotctmptxtquotForI
putAs1r
str1Strco
vI
putBLOF11vbU
icoder
astr1splitr