一次讀取一個字符，直到VBA中的'*'，'％*'或'/ *'

Question

我正在嘗試對VBA中的某些SAS代碼進行一些文本分析。我想跳過評論。

但我只能找到一種方式來讀取一條線，使用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