程式是這樣的
Private Sub Command1_Click()
Dim id$, name$, price$, store$ '宣告變數屬性
Open "fetch.txt" For Input As #1
Do While Not EOF(1)
Input #1, id, name, price, store ' 將資料讀入到四個變數中
Print id, name, price, store '輸出資料
Loop
Close #1
MsgBox "完成"
End Sub
文本內容是
AUH,010000T15805,T155,20141019
AUH,010000T15805,T155,20141020
AUH,010000T15805,T155,20141021
AUH,2400000Z510A,Z51,20141019
AUH,2400000Z510A,Z51,20141020
AUH,2400000Z510A,Z51,20141021
uj5u.com熱心網友回復：
在線等 急用uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
你這個代碼，要正常讀取檔案內容但又不“出錯”，有一個限制條件：你那個文本檔案fetch.txt最后一行不能夠以“回車、換行”符結尾！
簡單的“感觀判斷”，就是你用記事本程式打開這個檔案后，
它的“最末尾”一行不是一個空行；
你按鍵盤“Ctrl + End”，游標在141021的“1”后面閃爍，而不是在一個空白行的起始處。
uj5u.com熱心網友回復：
剛才試運行了一下你的代碼，發現結果是：最后一行可以用“回車+換行”符結尾，也就是說檔案末尾可以有一個“空白行”；
但如果按回車鍵，在檔案末尾多增加一個空白行，就會出現“超如檔案結尾”的錯誤提示了。
uj5u.com熱心網友回復：
Private Sub Command1_Click()On Error Resume Next
Dim id$, name$, price$, store$ '宣告變數屬性
Open "fetch.txt" For Input As #1
Do While Not EOF(1)
Input #1, id, name, price, store ' 將資料讀入到四個變數中
Print id, name, price, store '輸出資料
Loop
Close #1
MsgBox "完成"
End Sub
uj5u.com熱心網友回復：
最討厭的就是這種“掩耳盜鈴”的做法！
uj5u.com熱心網友回復：
尺有所短，寸有所長。
uj5u.com熱心網友回復：
你這樣處理，長個狗Ｐ！！！
讀檔案的時候，“成員值”沒讀取到、甚至出現“指鹿為馬”都不知道！
樓主的檔案內容，可以認定是“資料記錄表”，具有“欄位”屬性。
我覺得真正要“嚴謹處理”，根本不應該用Input陳述句直接讀取。
因為檔案是純文本的內容，格式可能出現“隨意性”：
若是中間出現空行，或者某行多了（或者少了）一、兩個逗號，
結果就是直接導致讀取到的成員值“張冠李戴”！
然而，出現這些現象時，讀資料的程序表現出來是“正常的”，出了錯都不知道！
讀取到的資料都錯了，“后續處理”能夠正確嗎？？？
應該用 Line Input陳述句讀取、用Split拆分成員（欄位）、再給各個變數分別賦值。
這樣的程序雖然繁瑣點，但是有一些好處：
1. 檔案中的空行，可以直接跳過。這樣無論中間還是末尾的空行，不影響運行。
同時，直接解決了樓主遇到的這種“超出檔案結尾”的例外。
2. 每行有多少個“欄位”，可以檢查一下，不符合要求即可提示出錯。
如果讀取時對“行號”進行累加，還可以提示是在檔案的第幾行出錯。
3. 可以對每行的“特定欄位”進行格式校驗，如果不符合要求，同樣可以提示出錯。
樓主的檔案，最明顯的是第4個欄位，應該是“日期格式”；
第3個欄位，應該是特定的幾個字母+數字的格式；
第1個欄位，應該是特定的一組代號中的某一個。
這3個欄位都是很容易進行校驗的地方，如果有必要就可以加到讀取程序中，不能通過校驗就可提示內容出錯。
uj5u.com熱心網友回復：
樓主別不吱聲，回來好好看看樓上的答復。。話說我基本從來沒用過inpu陳述句，都是line input或者就是input函式。
Dim id$
Open "c:\1.txt" For Input As #1
id = Input(LOF(1), #1)
Close #1
Print id
建議樓主都全部讀取到字串里，然后用字串分割的方式進行處理。 不知道樓主貼出的代碼的背景關系是什么，為什么說“內容要賦值給變數這個不能改”，如果樓主是對vb一竅不通而不敢動隨便動前人留下的代碼那么建議貴司找vb專業的人來搞好了，因為對于小白的話上面幾位說的每一句話估計都很難消化，所以直接不吱聲了。。
uj5u.com熱心網友回復：
這種人最TM會誤匯入,人家說東他說西.
還老喜歡亂教人
我都懶得和他說話.
uj5u.com熱心網友回復：
對于樓主的內容我建議這樣處理
用Lineinput
然后每行讀入的資料再進行判斷
如果是格式不對的話,就丟棄掉.
下面是偽代碼,懶得開vb了
line input#1,data1
Dim x() as string
x=Split(data1,",")
if ubound(x)=4'如果他分出來是4項就說明格式正常
id=x(0)
name=x(1)
price=x(2)
store=x(3)
Print id, name, price, store '輸出資料
end if
uj5u.com熱心網友回復：
Private Sub Command1_Click()
Dim FileName as string,FN as integer,DataStr as string,DaraArr() as string
Dim I As integer,Arr() As string
FileName=App.Path &"\fetch.txt"
FN=FreeFile
Open FileName For Binary As FN
DataStr=Space(LOF(FN))
Get #FN,,DataStr
Close #fn
DataArr=Split(DataStr,vbCrLf)
For I=0 To Ubound(DataArr)
if Len(DataArr(i))>0 Then
Arr=Split(DataArr(i),",")
Print Arr(0),Arr(1),Arr(2),Arr(3)
End if
next
MsgBox "完成"
End Sub
uj5u.com熱心網友回復：
我個人不喜歡用open陳述句，更喜歡用FSO，因為open太難以理解了。如果僅僅是為了輸出資料我覺得有一個更好的辦法，就是用excel，打開文本檔案的同時進行分列操作，然后就呈現出一個二維表了。這樣代碼也不會太多，5行應該可以了。uj5u.com熱心網友回復：
Private Sub Command1_Click()
Dim id As String, name As String, price As String, store As String 'éù?÷±?á?ê?D?
Dim strLine As String, strCol() As String
Open "c:/test/fetch.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strLine
If strLine > "" Then
strCol = Split(strLine, ",")
id = strCol(0)
name = strCol(1)
price = strCol(2)
store = strCol(3)
Debug.Print id, name, price, store 'ê?3?êy?Y
End If
Loop
Close #1
MsgBox "完成"
End Sub
AUH 010000T15805 T155 20141019
AUH 010000T15805 T155 20141020
AUH 010000T15805 T155 20141021
AUH 2400000Z510A Z51 20141019
AUH 2400000Z510A Z51 20141020
AUH 2400000Z510A Z51 20141021
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/79584.html
標籤：VBA
上一篇：有誰懂得vb對IE開發的求教下
下一篇：圖片移動閃爍