大家都知道打開文本文件是不少程序必須處理的問題。如何快速的打開文本文件這個還是值得我們深入的探討研究的。

#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