Прочитайте один символ за раз, пока '*', '% *' или '/ *' в VBA

Question

Я пытаюсь сделать некоторый текстовый анализ некоторого кода SAS в VBA. Я бы хотел пропустить комментарии.

Но я могу найти способ читать строки за раз, используя заявление Line Input. Но это делает его очень трудно избежать комментариев один и ту же линию, как незакомментированная код, как

data _null_; *Comment; 

Так что я хотел бы знать, если это возможно, чтобы прочитать один символ за один раз в Vba, пока комментарий старт не encounterd?

Answer 1

Поскольку файлы маленькие, один вариант, чтобы прочитать весь файл в массив байтов:

Dim handle As Long 
Dim bytes() As Byte 
Dim path As String 

path = "C:\somefile.txt" 
handle = FreeFile 
Open path For Binary Access Read As handle 
ReDim bytes(LOF(handle) - 1&) 
Get handle, , bytes 
Close handle 

Dim char As Variant 
For Each char In bytes 
    Debug.Print Chr$(char) 
Next char