- 追加された行はこのように表示されます。
- 削除された行は
このように表示されます。
!!!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