Mac版での動作確認はできていません。自己責任でお願いします。 Option Explicit Sub UpdateRawFileByte() Dim filePath As String Dim fileNum As Integer Dim targetPosition As Long Dim newValue As Byte ' 【設定】書き換えたい内容を指定 targetPosition = &H9EF + 1 ' 例:先頭から9EFHバイト目(1番目のバイトは 1 ) + 1 newValue = &H31 ' 例:書き換える値(16進数でFF、10進数なら255) ' 1. ファイル選択ダイアログの表示 filePath = Application.GetOpenFilename("RAW Files, *.ORF") If filePath = "False" Or filePath = "" Then Exit Sub ' キャンセル時 ' 2. 空いているファイル番号を取得してバイナリモードで開く fileNum = FreeFile Open filePath For Binary As #fileNum ' 3. 指定した位置へ1バイト書き込み Put #fileNum, targetPosition, newValue ' 4. ファイルを閉じる Close #fileNum ...
コメント
コメントを投稿