文字檔快速讀入TextBox (VB)

mini · 2005-06-20, 05:45 PM

txtContent.Text = "" '清除內容
Open sFile$ For Input As #1 '開啟文字檔
txtContent.Text = StrConv(InputB(LOF(F), #1), vbUnicode) '一次讀入整個檔案
Close #1 '關閉檔案

出自:
http://yes.nctu.edu.tw/VB/A1_Tips/Fi...tBox/Index.htm

=========================

其實捨去 Unicode 轉換很簡單可知原理
就是
Input(number, [#]filenumber)

Input 函數的語法具有以下幾個單元：
單元說明
number 必要的引數。任何正確的數值運算式，用來指出欲傳回的字元個數。
filenumber 必要的引數。任何正確的檔案代碼。

配合用 LOF 來得到檔案的長度

附註: InputB 函數是用來讀取文字檔中的位元組資料。不過在 InputB 函數中的引數 number 不是用來指出欲傳回的字元個數，而是用來指出欲傳回的位元組個數。

2005-06-20, 05:45 PM	#1
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13341 精華: 0 現金: 26444 金幣資產: 3024304 金幣	文字檔快速讀入TextBox (VB) txtContent.Text = "" '清除內容 Open sFile$ For Input As #1 '開啟文字檔 txtContent.Text = StrConv(InputB(LOF(F), #1), vbUnicode) '一次讀入整個檔案 Close #1 '關閉檔案出自: http://yes.nctu.edu.tw/VB/A1_Tips/Fi...tBox/Index.htm ========================= 其實捨去 Unicode 轉換很簡單可知原理就是 Input(number, [#]filenumber) Input 函數的語法具有以下幾個單元：單元說明 number 必要的引數。任何正確的數值運算式，用來指出欲傳回的字元個數。 filenumber 必要的引數。任何正確的檔案代碼。配合用 LOF 來得到檔案的長度附註: InputB 函數是用來讀取文字檔中的位元組資料。不過在 InputB 函數中的引數 number 不是用來指出欲傳回的字元個數，而是用來指出欲傳回的位元組個數。

	送花文章: 2013, 收花文章: 8001 篇, 收花: 26805 次

Google 提供的廣告