建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
大家都知道打開(kāi)文本文件是不少程序必須處理的問(wèn)題。如何快速的打開(kāi)文本文件這個(gè)還是值得我們深入的探討研究的。
作為一家“創(chuàng)意+整合+營(yíng)銷(xiāo)”的成都網(wǎng)站建設(shè)機(jī)構(gòu)，我們?cè)跇I(yè)內(nèi)良好的客戶(hù)口碑。創(chuàng)新互聯(lián)提供從前期的網(wǎng)站品牌分析策劃、網(wǎng)站設(shè)計(jì)、成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、創(chuàng)意表現(xiàn)、網(wǎng)頁(yè)制作、系統(tǒng)開(kāi)發(fā)以及后續(xù)網(wǎng)站營(yíng)銷(xiāo)運(yùn)營(yíng)等一系列服務(wù)，幫助企業(yè)打造創(chuàng)新的互聯(lián)網(wǎng)品牌經(jīng)營(yíng)模式與有效的網(wǎng)絡(luò)營(yíng)銷(xiāo)方法,創(chuàng)造更大的價(jià)值。
#T#為此，將自己搜集到的幾種VB.NET OPEN語(yǔ)句方法無(wú)私地奉獻(xiàn)出來(lái)，供各位參考。同時(shí)期盼大家也來(lái)參與，。如您有這份心，土人在這里先說(shuō)聲謝謝！下面所舉的例子均假設(shè)F盤(pán)下有一個(gè)名為d.txt的文本文件，若需要嘗試這些例子請(qǐng)作相應(yīng)的改動(dòng)。
VB.NET OPEN語(yǔ)句方法一:
用定長(zhǎng)的String變量獲取文本內(nèi)容。由于定長(zhǎng)String變量支持的下界為65400,所以在打開(kāi)超過(guò)32K字節(jié)的文件時(shí)超出部分的字節(jié)將無(wú)法獲取:
- Private Sub Command1_Cliack()
- Dim sA As String * 65400 '聲明定長(zhǎng)String變量
- Open "F:\d.txt" For Binary As #1 '用二進(jìn)制打開(kāi)文件
- Get #1, , sA '用Get語(yǔ)句從文件中獲取字節(jié)
- Text1 = sA '顯示打開(kāi)的文件
- Close #1 '關(guān)閉文件
- End Sub
VB.NET OPEN語(yǔ)句方法二:
先聲明一字符串變量，然后用空格填充字符串，使變量大小與文件大小一致，再通過(guò)Get語(yǔ)句將文件全部數(shù)據(jù)存儲(chǔ)到變量中，從而達(dá)到獲取整個(gè)文件字節(jié)數(shù)的目的。此法可以打開(kāi)大于32K的文件，但應(yīng)該注意的是，裝載文件的容器必須能裝載大于32K的文件，下例用RichTextBox控件顯示打開(kāi)的文件：
- 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語(yǔ)句獲取文件全部?jī)?nèi)容
- RichTextBox1.Text = sA
- Close #1
- End Sub
VB.NET OPEN語(yǔ)句方法三：
用StrConv函數(shù)將文件的控制字符串?dāng)?shù)據(jù)和Unicode碼之間進(jìn)行轉(zhuǎn)換，從而達(dá)到打開(kāi)文件的目的?？纱蜷_(kāi)任意大小文件。此法筆者曾有一篇文章談及，這里再給一個(gè)簡(jiǎ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語(yǔ)句方法四：
用Shell語(yǔ)句直接調(diào)出Windows的記事本，給個(gè)文件名即可輕而易舉地打開(kāi)文本文件。此法適合于打開(kāi)程序的Readme文件(注意：在可執(zhí)行文件和要打開(kāi)的文本文件之間要有空格)：
- Shell "NotePad.EXE f:\d.txt",vbNormalFucus
VB.NET OPEN語(yǔ)句方法五：
- 用RichTextBox控件自身的LoadFile屬性打開(kāi)文件：
- RichTextBox1.LoadFile "f:\d.txt", rtfText
當(dāng)前題目：概括總結(jié)VB.NETOPEN語(yǔ)句5個(gè)方法
地址分享：http://m.5511xx.com/article/cdescds.html
