ランダムアクセスファイル読み込み

ファイルから構造体にデータを読み込むサンプルです。

Type TestStruct
intID As Integer
strName As String * 32
End Type

Private Sub ReadData()
Dim i As Integer
Dim intFileNum As Integer
Dim objTestStruct As TestStruct

intFileNum = FreeFile
' ファイルをランダムアクセスモードで開く
Open "D:\aaa.dat" For Random _
As #intFileNum Len = Len(objTestStruct)
' ファイルから構造体にデータを読み込む
Get #intFileNum, 3, objTestStruct
' ファイルを閉じる
Close #intFileNum
End Sub

struct TestStruct
{
short intID;
char strName[32];
};

void ReadData()
{
// ファイルを開く
HANDLE hFile;
hFile = CreateFile(
"D:\\aaa.dat",
GENERIC_READ,
FILE_SHARE_READ,
NULL,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
NULL);
if (hFile != INVALID_HANDLE_VALUE)
{
TestStruct objTestStruct;
DWORD NumberOfBytesRead;
// ファイルポインタを3番目のデータの先頭に移動
SetFilePointer(hFile, sizeof(objTestStruct) * 2,
NULL, FILE_BEGIN);
// ファイルから構造体にデータを読み込む
ReadFile(hFile, &objTestStruct,
sizeof(objTestStruct),
&NumberOfBytesRead, NULL);
// ファイルハンドルを閉じる
CloseHandle(hFile);
}
}