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

ファイルを作成し、構造体のデータを書き込むサンプルです。

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

Private Sub WriteData()
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)
' 5つの構造体のデータを書き込む
For i = 1 To 5
' 構造体のintIDの要素を設定
objTestStruct.intID = i
' 構造体のstrNameの要素を設定
objTestStruct.strName = "テスト" + CStr(i)
' ファイルに構造体のデータを書き込む
Put #intFileNum, i, objTestStruct
Next
' ファイルを閉じる
Close #intFileNum
End Sub

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

void WriteData()
{
// ファイルを開く
HANDLE hFile;
hFile = CreateFile(
"D:\\aaa.dat",
GENERIC_READ | GENERIC_WRITE,
FILE_SHARE_READ,
NULL,
CREATE_ALWAYS,
FILE_ATTRIBUTE_NORMAL,
NULL);
if (hFile != INVALID_HANDLE_VALUE)
{
TestStruct objTestStruct;
DWORD NumberOfBytesWritten;

// 5つの構造体のデータを書き込む
for (int i = 1; i <= 5; i ++)
{
// 構造体のintIDの要素を設定
objTestStruct.intID = i;
// 構造体のstrNameの要素をスペース' 'で初期化
memset(objTestStruct.strName,
' ', sizeof(objTestStruct.strName));
// 構造体のstrNameの要素を設定
sprintf(objTestStruct.strName, "テスト%d", i);
// ファイルに構造体のデータを書き込む
WriteFile(hFile, &objTestStruct,
sizeof(objTestStruct),
&NumberOfBytesWritten, NULL);
}
// ファイルハンドルを閉じる
CloseHandle(hFile);
}
}