Đọc/phân tích cú pháp dòng tệp văn bản theo dòng trong VBA

Question

Tôi đang cố gắng phân tích cú pháp tài liệu văn bản bằng VBA và trả về đường dẫn được đưa ra trong tệp văn bản.
Ví dụ, các tập tin văn bản sẽ trông như thế:

*Blah blah instructions 
*Blah blah instructions on line 2 
G:\\Folder\...\data.xls 
D:\\AnotherFolder\...\moredata.xls 

Tôi muốn VBA để tải 1 dòng tại một thời điểm, và nếu nó bắt đầu với một * sau đó di chuyển đến dòng kế tiếp (tương tự như dòng đó là nhận xét). Đối với các dòng với một đường dẫn tập tin, tôi muốn viết rằng đường dẫn đến tế bào, nói A2 cho đường dẫn đầu tiên, B2 cho tới vv

Những điều chính tôi đã hy vọng đã trả lời là:
1. Cách tốt nhất/đơn giản để đọc thông qua một tập tin văn bản bằng cách sử dụng VBA là gì?
2. Làm thế nào tôi có thể làm điều đó từng dòng?

Answer 1

cho đọc cơ bản nhất của một tập tin văn bản, sử dụng open

dụ:

Dim FileNum As Integer 
Dim DataLine As String 

FileNum = FreeFile() 
Open "Filename" For Input As #FileNum 

While Not EOF(FileNum) 
    Line Input #FileNum, DataLine ' read in data 1 line at a time 
    ' decide what to do with dataline, 
    ' depending on what processing you need to do for each case 
Wend 

Answer 2

tôi tìm ra FileSystemObject với một TxtStream cách dễ nhất để đọc các file

Dim fso As FileSystemObject: Set fso = New FileSystemObject 
Set txtStream = fso.OpenTextFile(filePath, ForReading, False) 

Sau đó, với đối tượng txtStream này, bạn có tất cả các loại công cụ mà intellisense chọn lên (không giống như phương pháp FreeFile()) để có ít màu sắc hơn sswork. Thêm vào đó bạn không phải gán một FreeFile và hy vọng nó thực sự vẫn miễn phí kể từ khi bạn gán nó.

Bạn có thể đọc một tập tin như:

Do While Not txtStream.AtEndOfStream 
    txtStream.ReadLine 
Loop 
txtStream.Close 

Chú ý: Điều này đòi hỏi một tham chiếu đến Microsoft Scripting Runtime.

Answer 3

Để hoàn chỉnh; làm việc với dữ liệu được nạp vào bộ nhớ;

dim hf As integer: hf = freefile 
dim lines() as string, i as long 

open "c:\bla\bla.bla" for input as #hf 
    lines = Split(input$(LOF(hf), #hf), vbnewline) 
close #hf 

for i = 0 to ubound(lines) 
    debug.? "Line"; i; "="; lines(i) 
next 

Answer 4

Bạn có thể sử dụng mã này để đọc từng dòng trong tập tin văn bản và Bạn cũng có thể kiểm tra về nhân vật đầu tiên được "*" thì bạn có thể rời khỏi đó ..

Public Sub Test() 

    Dim ReadData as String 

    Open "C:\satheesh\myfile\file.txt" For Input As #1 

    Do Until EOF(1) 
     Line Input #1, ReadData 'Adding Line to read the whole line, not only first 128 positions 
    If Not Left(ReadData, 1) = "*" then 
     '' you can write the variable ReadData into the database or file 
    End If 

    Loop 

    Close #1 

End Sub