VB打开文本文件的五种方法
方法一:
用定长的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
-----------------
本人试验:第一种方法和第四种方法不行,其它的都可以.
3 篇评论在 “VB打开文本文件的五种方法”
2
3
匿名
07/15 2008, 05:13 Say: [回复]
Gg67uik
aslong219
wow gold
wow gold
wow gold
股票软件
股票软件
黑马股推荐
黑马股推荐
大智慧
大智慧
英语口语
英语口语
阀门
阀门
油泵
油泵
炒股软件
炒股软件
黑马股
黑马股
中高年 転職
中高年 転職
出会い系
出会い系
毛穴 黒ずみ
毛穴 黒ずみ
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
黑马股
黑马股
黑马股
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
发表评论
Gg67uik
aslong219
wow gold
wow gold
wow gold
股票软件
股票软件
黑马股推荐
黑马股推荐
大智慧
大智慧
英语口语
英语口语
阀门
阀门
油泵
油泵
炒股软件
炒股软件
黑马股
黑马股
中高年 転職
中高年 転職
出会い系
出会い系
毛穴 黒ずみ
毛穴 黒ずみ
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
黑马股
黑马股
黑马股
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
wow gold
enemy in the zone.level wow One minute you are happily. lecteur mp3 beating down a Timber Worg to collect.
mp4 player his pelt, the next you are being attacked.wow lvl from behind by a Warp Stalker.mp3 Even with Track Beasts are able to sneak.
mp4 up on you with their 'warp' ability. wow powerlevel I thought I could seek solace in the Bone Wastes. mp4 player but I was wrong The Bois the.mp3 most hated area in to me.gold wow You end up making a lot of tripsand . mp4 compacted with lost souls. mp4 player buzzards and along wicked spiders.wow po which makes it hard to traverse this area.mp3 I don't know if it was just because I was playing.mp4 when there were not a lot of other players. wow powerleveling online but not counting Shattarath city. wow powerleveling this was thebeen in yet. powerleveling Maybe it was because, like me thejust wanted. wow power leveling to get their questand move on.lord of rings online gold I did not see hunters with any unique. lotro gold pets tamed I did howevertameable color. lotro gold of a wolf A level 64 "named"ronjaw. HDRO gold can be found wandering arnorthwestern.Der Herr der Ringe Gold. portions of Firewing .