- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
7#
發表於 2014-6-10 20:30
| 只看該作者
回復 6# acdx
試試看- Option Explicit
- Sub Ex()
- Dim i As Integer, objFile As Object, A As Variant
- Set objFile = CreateObject("Scripting.FileSystemObject")
- Set objFile = objFile.OpenTextFile("D:\Test.txt", 1) '開啟文字檔
- A = objFile.READALL '讀取文字檔全部字串
- Do While InStr(A, vbCrLf) Or InStr(A, vbLf & vbLf)
- A = Replace(A, vbCrLf, vbLf) '消除復位字元
- A = Replace(A, vbLf & vbLf, vbLf) '消除空白列
- Loop
- If Mid(A, Len(A)) = vbLf Then A = Mid(A, 1, Len(A) - 1) '清除最後字元是換行字元。
- A = Split(A, vbLf) '檔案中有資料的行,置入陣列
- MsgBox A(UBound(A)) '檔案的最後有資料的那一行
- End Sub
複製代碼 |
|