概括总结VB.NETOPEN语句5个方法

大家都知道打开文本文件是不少程序必须处理的问题。如何快速的打开文本文件这个还是值得我们深入的探讨研究的。

作为一家“创意+整合+营销”的成都网站建设机构，我们在业内良好的客户口碑。创新互联提供从前期的网站品牌分析策划、网站设计、成都网站设计、成都网站制作、创意表现、网页制作、系统开发以及后续网站营销运营等一系列服务，帮助企业打造创新的互联网品牌经营模式与有效的网络营销方法,创造更大的价值。

#T#为此，将自己搜集到的几种VB.NET OPEN语句方法无私地奉献出来，供各位参考。同时期盼大家也来参与，。如您有这份心，土人在这里先说声谢谢！下面所举的例子均假设F盘下有一个名为d.txt的文本文件，若需要尝试这些例子请作相应的改动。

VB.NET OPEN语句方法一:

用定长的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
 
 

VB.NET OPEN语句方法二:

先声明一字符串变量，然后用空格填充字符串，使变量大小与文件大小一致，再通过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
 
 

VB.NET OPEN语句方法三：

用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
 
 

VB.NET OPEN语句方法四：

用Shell语句直接调出Windows的记事本，给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意：在可执行文件和要打开的文本文件之间要有空格)：

 
 

  
  
Shell "NotePad.EXE f:\d.txt",vbNormalFucus
 
 

VB.NET OPEN语句方法五：

 
 

  
  
用RichTextBox控件自身的LoadFile属性打开文件： 
  
  
RichTextBox1.LoadFile "f:\d.txt", rtfText 
 
 

本文题目：概括总结VB.NETOPEN语句5个方法
网页路径：http://www.shufengxianlan.com/qtweb/news41/64141.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联