掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VBA バイナリのデータを1byteずつファイルに書き出すには？（ADO使用） (ID:80387)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
上記関数に抜けがありました。 訂正します。 Public Sub WriteTest(sReadFile As String, sWriteFile As String) Dim StmRead As Object Dim vReadData As Variant Dim StmWrite As Object Dim b As Variant Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 '読み込むファイルの設定 Set StmRead = CreateObject("ADODB.Stream") StmRead.Open StmRead.Type = adTypeBinary StmRead.LoadFromFile sReadPath vReadData = StmRead.Read '一気に読み込む '作成するファイルの設定 Set StmWrite = CreateObject("ADODB.Stream") StmWrite.Open StmWrite.Type = adTypeBinary For i = 0 To Ubound(vReadData) b = vReadData(i) '1byteずつ取得 If (b = &H0A) then '〜 bを解析する処理 〜 End If StmWrite.Write b '1biteずつ書き込む Next i '一気にファイルに書き出す StmWrite.SaveToFile sWritePath, adSaveCreateOverWrite 'StmReadを閉じる StmRead.Close Set StmRead = Nothing 'StmReadを閉じる StmWrite.Close Set StmWrite = Nothing End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.