投稿日 | : 2002/12/21(Sat) 01:41 |
投稿者 | : taka |
Eメール | : |
URL | : |
タイトル | : ファイル反転処理 |
例: 中身が(バイナリでみて)「01 02 03」というファイルを 「03 02 01」にする。
というようなファイルの反転処理を試みているのですが自分でプログラムしたものだと
実行速度が遅いの(やその他の問題点もあると思うので)でこうしたほうがいいよ等
のアドバイスがあればどうぞお願いします。以下に自分でプログラムしたソースを
載せておきます。
'変数宣言
Dim in_file as string '入力ファイル名格納用
Dim out_file as string '出力ファイル名格納用
Dim tmp() As Byte
Dim j As Double
Dim i As Double
Dim ff1 As Integer
Dim ff2 As Integer
ff1 = FreeFile
Open in_file For Binary As #ff1
i = FileLen(in_file) 'i=入力ファイルの長さ取得
ReDim tmp(1 To i) '入力ファイルの長さ分配列を確保
For j = i To 1 Step -1
Get #ff1, , tmp(j) '入力ファイル最後から順番に配列の先頭から順番に1バイトずつ格納
Next
Close #ff1
ff2 = FreeFile
Open out_file For Binary As #ff2
Put #ff2, , tmp
Close #ff2