您好,登錄后才能下訂單哦!
這篇文章將為大家詳細講解有關(guān)VB.NET中 OPEN語句如何使用,文章內(nèi)容質(zhì)量較高,因此小編分享給大家做個參考,希望大家閱讀完這篇文章后對相關(guān)知識有一定的了解。
VB.NET OPEN語句方法一:
用定長的String變量獲取文本內(nèi)容。由于定長String變量支持的下界為65400,所以在打開超過32K字節(jié)的文件時超出部分的字節(jié)將無法獲取:
Private Sub Command1_Cliack() Dim sA As String * 65400 '聲明定長String變量 Open "F:\d.txt" For Binary As #1 '用二進制打開文件 Get #1, , sA '用Get語句從文件中獲取字節(jié) Text1 = sA '顯示打開的文件 Close #1 '關(guān)閉文件 End Sub
VB.NET OPEN語句方法二:
先聲明一字符串變量,然后用空格填充字符串,使變量大小與文件大小一致,再通過Get語句將文件全部數(shù)據(jù)存儲到變量中,從而達到獲取整個文件字節(jié)數(shù)的目的。此法可以打開大于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語句獲取文件全部內(nèi)容 RichTextBox1.Text = sA Close #1 End Sub
VB.NET OPEN語句方法三:
用StrConv函數(shù)將文件的控制字符串數(shù)據(jù)和Unicode碼之間進行轉(zhuǎn)換,從而達到打開文件的目的??纱蜷_任意大小文件。此法筆者曾有一篇文章談及,這里再給一個簡單例子:
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語句直接調(diào)出Windows的記事本,給個文件名即可輕而易舉地打開文本文件。此法適合于打開程序的Readme文件(注意:在可執(zhí)行文件和要打開的文本文件之間要有空格):
Shell "NotePad.EXE f:\d.txt",vbNormalFucus
VB.NET OPEN語句方法五:
用RichTextBox控件自身的LoadFile屬性打開文件: RichTextBox1.LoadFile "f:\d.txt", rtfText
關(guān)于VB.NET中 OPEN語句如何使用就分享到這里了,希望以上內(nèi)容可以對大家有一定的幫助,可以學到更多知識。如果覺得文章不錯,可以把它分享出去讓更多的人看到。
免責聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進行舉報,并提供相關(guān)證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。