| ページ一覧 | ブログ | twitter |  書式 | 書式(表) |

MyMemoWiki

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

提供: MyMemoWiki
2020年2月16日 (日) 04:25時点におけるPiroto (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
ナビゲーションに移動 検索に移動

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