Question

如何打开这类的readme文档

Answer 1

方法一:
用定长的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

方法三：
用StrConv函数将文档的控制字符串数据和Unicode码之间进行转换，从而达到打开文档的目的。可打开任意大小文档。此法笔者曾有一篇文章谈及，这里再给一个简单例子：
Private Sub Command1_Click()
Open "f:＼d.txt" For Input As #1
RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), VBUnicode)
Close #1
End Sub

方法四：
用Shell语句直接调出Windows的记事本，给个文档名即可轻而易举地打开文本文档。此法适合于打开程式的Readme文档(注意：在可执行文档和要打开的文本文档之间要有空格)：
Shell "NotePad.EXE f:＼d.txt",VBNormalFucus

方法五：
用RichTextBox控件自身的LoadFile属性打开文档：
RichTextBox1.LoadFile "f:＼d.txt", rtfText