VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/12/21(Sat) 01:41
投稿者： taka
Ｅメール：
ＵＲＬ：
タイトル： ファイル反転処理

例：　中身が（バイナリでみて）「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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -