ab.com コミュニティ

コード: 全て選択

' ファイルの内容を16進数で表示
' ※エラー処理等はすべて省略
hFile=CreateFile(...)
dwSize=GetFileSize(hFile, NULL)

Dim databuf As BytePtr
databuf=malloc(dwSize)
ReadFile(hFile, databuf, dwSize, VarPtr(dwRead), ByVal NULL)
CloseHandle(hFile)

For i=0 To dwRead-1
    Print "["+Hex$(databuf)+"]";
Next

free(databuf)

コード: 全て選択

databuf= fload(buf)
fb=lstrlen(databuf)
msgbox 0,Str$(fb)

コード: 全て選択

'■ファイル内バッファを取り込む
Function fload ( ByVal lpstrFileName As BytePtr) As BytePtr
	Dim hFile		As HFILE
	Dim dwSizeOver	As DWord
	Dim dwSizeLower	As DWord
	Dim	qwSize		As QWord

	fload	= NULL
	hFile	= CreateFile( lpstrFileName, GENERIC_READ, 0,ByVal 0,OPEN_EXISTING,FILE_FLAG_SEQUENTIAL_SCAN,0)
	If hFile = INVALID_HANDLE_VALUE Then Exit Function
	dwSizeOver	= 0
	dwSizeLower	= GetFileSize( hFile, VarPtr(dwSizeOver))
	If dwSizeOver = 0 Then
		qwSize	= dwSizeLower
	Else
		qwSize	= (dwSizeOver * &h100000000) + dwSizeLower
	End If
	fload		= HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, qwSize)
	ReadFile( hFile, fload, qwSize, VarPtr(dwSizeOver), ByVal 0)
	CloseHandle (hFile)
End Function

'■バッファを開放する
Function fclose ( ByVal lpstrBuffer As BytePtr) As Long
	fclose	= HeapFree( GetProcessHeap(), 0, lpstrBuffer)
End Function


'■--- ここからが実装部 ---
Dim buf	As BytePtr

'■バッファ取り込み
buf	= fload("sample.txt")
'--- ここでファイル内バッファに対する処理を書きます ---
'■取り込んだバッファの開放
fclose (buf)

'■終了
End

コード: 全て選択

Function File_Open(Path As String)As String
   Dim File          As DWord
   Dim dwFileSize    As DWord
   Dim dum           As Long
   Dim buffer        As String
   File=CreateFile(Path,GENERIC_READ,FILE_SHARE_READ,_
      ByVal NULL,OPEN_ALWAYS,FILE_ATTRIBUTE_ARCHIVE,0)
   If File=INVALID_HANDLE_VALUE  Then File_Open="":ExitFunction
   dwFileSize=GetFileSize(File,0)
   buffer=String$(dwFileSize,Chr$(0))
   ReadFile(File,buffer,dwFileSize,VarPtr(dum),ByVal NULL)
   CloseHandle(File)
   File_Open=String$(dwFileSize,Chr$(0))
   File_Open=buffer
EndFunction