ab.com コミュニティ

コード: 全て選択

PUT #2,COUNTER,K$2    'ＳＷＡＰデータ　ＰＵＴ
PUT #2,COUNTER+1,K$1

コード: 全て選択

Dim FilePath1 As String, FilePath2 As String, FilePathTemp As String
FilePath1 = PATH + "\" + FILE
FilePath2 = File1 + "_SW.BIN"
FilePathTemp = File1 + "_temp.$$$" ' とりあえずの適当な名前
MoveFile(FilePath1, FilePathTemp)
MoveFile(FilePath2, FilePath1)
MoveFile(FilePathTemp, FilePath2)

コード: 全て選択

#N88BASIC
Dim Buffer$ As String
Dim RecordSize As Long
Dim i As Long
Dim Work$ As Byte
'
'*　入力ファイル読み込み
'
Open "TestInfile.txt" For Input As #1
RecordSize=Lof(1)
Field #1,RecordSize
Get #1,1,Buffer$
Close #1
'
'*　スワップ処理（１⇔２，３⇔４・・・・）
'
For i=1 To RecordSize-1 Step 2
    Work$=Buffer$[i-1]
    Buffer$[i-1]=Buffer$
    Buffer$=Work$
Next i
'
'*　出力ファイル（ｂｉｎ）書き込み
'
Open "TestOutfile.txt" For Output As #2
Field #2,RecordSize
Put #2,1,Buffer$
Close #2
End

コード: 全て選択

#strict
#prompt

Const InputFile = "c:\temp\test_input.bin"
Const OutputFile = "c:\temp\test_output.bin"

Typedef BOOL = Long

timeBeginPeriod(1)'精度を1msに設定

Dim Time As DWord
Time = timeGetTime()
If BinarySwap(InputFile, OutputFile) <> FALSE Then
	Time = timeGetTime() - Time
	Print Time ' 所要時間の表示
End If
timeEndPeriod(1)'timeBeginPeriodで指定した値を渡す

Function BinarySwap(pszInputFile As *Char, pszOutputFile As *Char) As BOOL
	BinarySwap = FALSE
	' 入力ファイルのファイルマッピングオブジェクトを作成。
	Dim Input As egtra_FileMapping(pszInputFile, FALSE, OPEN_EXISTING)
	If Input.GetFileHandle() = INVALID_HANDLE_VALUE Then
		Print "入力ファイルが開けませんでした。"
		Exit Function
	End If

	' 入力ファイルのサイズを取得。
	Dim qwFileSize As QWord, pSize As *ULARGE_INTEGER
	pSize = VarPtr(qwFileSize)
	pSize->LowPart = GetFileSize(Input.GetFileHandle(), VarPtr(pSize->HighPart))
	If pSize->LowPart = &hffffffff And GetLastError() <> 0 Then
		Print "ファイルサイズが取得できませんでした。"
		Exit Function
	End If
#ifndef _WIN64
	If pSize->HighPart <> 0 Then
		Print "このプログラムは，Win32ではこんなに巨大なファイルに対応していません。"
		Exit Function
	End If
#endif
	' 出力ファイルのファイルマッピングオブジェクトを作成。入力ファイルと同じ大きさに設定。
	Dim Output As egtra_FileMapping(pszOutputFile, TRUE, CREATE_ALWAYS, pSize->HighPart, pSize->LowPart)
	If Input.GetFileHandle() = INVALID_HANDLE_VALUE Then
		Print "出力ファイルが開けませんでした。"
		Exit Function
	End If

	' ここで実際にメモリアドレスへ割り当てている。
	Dim pInput As *Byte, pOutput As *Byte
	pInput = Input.MapView()
	pOutput = Output.MapView()
	'
	'*　スワップ処理（１⇔２，３⇔４・・・・）
	'
	Dim FileSize As ULONG_PTR
	FileSize = qwFileSize As ULONG_PTR
	Dim i As ULONG_PTR
	For i = 0 To FileSize - 1 Step 2
	    pOutput = pInput[i + 1]
	    pOutput[i + 1] = pInput
	Next

	' マッピングの解除
	Input.UnmapView(pInput)
	Output.UnmapView(pOutput)

	BinarySwap = TRUE
End Function

コード: 全て選択

#N88BASIC
'
'グローバル変数領域定義
'
Dim RecordSize As QWord				' 18,446,744,073,709,551,616バイトまで
Const BunkatuSize=1024*1024*64		' 分割サイズを偶数で指定(K,M,64Mbyte)
'
Dim LoopCount As QWord
Dim i As QWord,j As QWord,k As QWord,q As String
Dim Buffer$ As String
Dim Work$ As Byte
'
'ファイルオープン
'
Open "TestInfile.txt" For Input As #1
Open "TestOutfile.txt" For Output As #2
'
'分割処理回数演算
'
RecordSize=Lof(1)
Field #1,BunkatuSize
LoopCount=(RecordSize\BunkatuSize)+Sgn(RecordSize Mod BunkatuSize)
Print RecordSize;"バイトのデータを";BunkatuSize;"バイトに分割して";LoopCount;"回で処理します。"
'
'スワップ処理
'
For i=1 To LoopCount
    Get #1,i,Buffer$
    j=1
    While (j<BunkatuSize) And (k<RecordSize-1)
        Work$=Buffer$[j-1]
        Buffer$[j-1]=Buffer$[j]
        Buffer$[j]=Work$
        j=j+2
        k=k+2
    Wend
    Field #2,Len(Buffer$)
    Put #2,i,Buffer$
    Print i;"回目"
Next i
'
'ファイルクローズ
'
Close #1
Close #2
'
'終了
'
Input "終了しました。(Hit Enter Key)";q
End