Excel VBA 固定長の構造体をファイルから読む

Excel VBA 固定長の構造体をファイルから読む

Excel VBA |

Type RecClass
    field01     as String * 10
    field02     as String * 5
    field03     as String * 2
End Type
 
Public Sub readReadData()
    Dim fno     As Integer
    Dim fname   As String
    Dim rec     As RecClass
    Dim recCnt  As Long
    Dim recLen  As Long
    Dim pos     As Long
    Dim i       As Integer
 
    fno = FreeFile
    Open fname For Binary As fno
 
    recLen = Len(rec)
    recCnt = FileLen(fname) / recLen
 
    pos = 1
    For i = 1 To recCnt
        Get #fno, pos, rec
        pos = pos + recLen
        
        Call SomeProcess(rec)
    Next
    
    Close #fno
End Sub