📄 m17.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=14>
<div align=center class=H1> <font color="#FFFFFF">VB打开文本文件各种方法</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=236>
<p align="left"> <font color="#000000" class="unnamed1">来源：www.vbeden.com<br>
<br>
打开文本文件是不少程序必须处理的问题。如何更有效地打开文本文件应该是一个值得研究的课题。为此，笔者将自己搜集到的几种方法无私地奉献出来(-_-)，供各位参考。同时期盼大家也来参与，借VB编程乐园这块宝地互相交流。如您有这份心，土人在这里先说声谢谢！<br>
下面所举的例子均假设F盘下有一个名为d.txt的文本文件，若需要尝试这些例子请作相应的改动。<br>
<br>
方法一:<br>
用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取:<br>
Private Sub Command1_Cliack()<br>
Dim sA As String * 65400 '声明定长String变量 <br>
Open "F:\d.txt" For Binary As #1 '用二进制打开文件<br>
Get #1, , sA '用Get语句从文件中获取字节<br>
Text1 = sA '显示打开的文件<br>
Close #1 '关闭文件<br>
End Sub<br>
<br>
方法二:<br>
先声明一字符串变量，然后用空格填充字符串，使变量大小与文件大小一致，再通过Get语句将文件全部数据存储到变量中，从而达到获取整个文件字节数的目的。此法可以打开大于32K的文件，但应该注意的是，装载文件的容器必须能装载大于32K的文件，下例用RichTextBox控件显示打开的文件：<br>
Private Sub Command1_Click() <br>
Dim sA As String<br>
Open "f:\d.txt" For Binary As #1<br>
sA = Space(LOF(1)) '用空格填充sA变量<br>
Get #1, , sA '用Get语句获取文件全部内容<br>
RichTextBox1.Text = sA<br>
Close #1<br>
End Sub<br>
<br>
方法三：<br>
用StrConv函数将文件的控制字符串数据和Unicode码之间进行转换，从而达到打开文件的目的。可打开任意大小文件。此法笔者曾有一篇文章谈及，这里再给一个简单例子：<br>
Private Sub Command1_Click()<br>
Open "f:\d.txt" For Input As #1<br>
RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)<br>
Close #1<br>
End Sub<br>
<br>
方法四：<br>
用Shell语句直接调出Windows的记事本，给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意：在可执行文件和要打开的文本文件之间要有空格)：<br>
Shell "NotePad.EXE f:\d.txt",vbNormalFucus<br>
<br>
方法五：<br>
用RichTextBox控件自身的LoadFile属性打开文件：<br>
RichTextBox1.LoadFile "f:\d.txt", rtfText </font><br>
</p>
</td>
</tr>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -