Đọc các dòng từ một tệp văn bản nhưng bỏ qua hai dòng đầu tiên

Question

Tôi đã có mã macro này trong Microsoft Office Word 2003 đọc dòng của tệp văn bản. Mỗi dòng đại diện cho một giá trị chuỗi mà tôi cần sử dụng sau này trong mã.

Tuy nhiên, hai dòng đầu tiên của tệp văn bản chứa một số nội dung tôi không cần. Làm cách nào để sửa đổi mã để bỏ qua hai dòng đầu tiên? Các "Intellisense" trong trình soạn thảo VBA trong Word hút cứng btw ..

Dù sao, mã trông giống như sau

Dim sFileName As String 
Dim iFileNum As Integer 
Dim sBuf As String 
Dim Fields as String 

sFileName = "c:\fields.ini" 
''//Does the file exist? 
If Len(Dir$(sFileName)) = 0 Then 
    MsgBox ("Cannot find fields.ini") 
End If 

iFileNum = FreeFile() 
Open sFileName For Input As iFileNum 
Do While Not EOF(iFileNum) 
    Line Input #iFileNum, Fields 

    MsgBox (Fields) 

Và mã này hiện đang mang lại cho tôi tất cả các dòng, và tôi không muốn hai cái đầu tiên.

Answer 1

Đó toàn Open <file path> For Input As <some number> điều nên năm 1990. Nó cũng chậm và rất dễ bị lỗi.

Trong trình soạn thảo VBA của bạn, chọn Tham khảo từ trình đơn Công cụ và tìm "Thời gian chạy Microsoft Scripting" (scrrun.dll) sẽ có sẵn trên hầu hết mọi máy XP hoặc Vista. Nó ở đó, chọn nó. Bây giờ bạn có thể vào (với tôi ít nhất) giải pháp khá mạnh mẽ hơn:

With New Scripting.FileSystemObject 
    With .OpenTextFile(sFilename, ForReading) 

     If Not .AtEndOfStream Then .SkipLine 
     If Not .AtEndOfStream Then .SkipLine 

     Do Until .AtEndOfStream 
      DoSomethingImportantTo .ReadLine 
     Loop 

    End With 
End With 

Answer 2

Tôi có thể đơn giản hóa không?

Chỉ cần thêm đoạn mã sau:

Open sFileName For Input as iFileNum 
Line Input #iFileNum, dummy1 
Line Input #iFileNum, dummy2 
........ 

Sundar

Answer 3

Open sFileName For Input As iFileNum 

Dim LineNum As Long 
LineNum = 0 

Do While Not EOF(iFileNum) 
    LineNum = LineNum + 1 
    Line Input #iFileNum, Fields 
    If LineNum > 2 Then 
    DoStuffWith(Fields) 
    End If 
Loop 

Answer 4

Bạn có thể sử dụng truy cập ngẫu nhiên.

Open "C:\docs\TESTFILE.txt" For Random As #1 

    Position = 3 ' Define record number. 
    Get #1, Position, ARecord ' Read record. 

Close #1 

Answer 5

Dim sFileName As String 
Dim iFileNum As Integer 
Dim sBuf As String 
Dim Fields as String 
Dim TempStr as String 

sFileName = "c:\fields.ini" 
''//Does the file exist? 
If Len(Dir$(sFileName)) = 0 Then 
    MsgBox ("Cannot find fields.ini") 
End If 

iFileNum = FreeFile() 
Open sFileName For Input As iFileNum 

''//This part skips the first two lines 
if not(EOF(iFileNum)) Then Line Input #iFilenum, TempStr 
if not(EOF(iFileNum)) Then Line Input #iFilenum, TempStr 

Do While Not EOF(iFileNum) 
    Line Input #iFileNum, Fields 

    MsgBox (Fields) 
Loop