バイナリファイルのダンプ表示

HTML 上で表示

<SCRIPT language=VBScript>
 
' ------------------------------------------------------
' Stream オブジェクト の作成
Set Stream = CreateObject("ADODB.Stream")
 
' **********************************************************
' 16進数コード表示
' **********************************************************
function ShowDump()
 
	Dim LineBuffer,DispBuffer,CWork
 
	' ------------------------------------------------------
	' Stream のオープン
	Stream.Open
 
	' ------------------------------------------------------
	' Stream タイプの指定
	Stream.Type = 1		' StreamTypeEnum の adTypeBinary
 
	' ------------------------------------------------------
	' 既存ファイルの内容を Stream に読み込む
	Stream.LoadFromFile document.all("DumpFile").value
 
	' ------------------------------------------------------
	' バイナリ型の Stream オブジェクトからを読み取って加工
	DispBuffer = "<PRE style='font-family:""ＭＳ ゴシック""'>"
	Do while not Stream.EOS
		LineBuffer = Stream.Read(16)
 
		For i = 1 to LenB( LineBuffer )
			CWork = MidB(LineBuffer,i,1)
			Cwork = AscB(Cwork)
			Cwork = Hex(Cwork)
			Cwork = Ucase(Cwork)
			Cwork = Right( "0" & Cwork, 2 )
			DispBuffer = DispBuffer & Cwork & " "
		Next
		DispBuffer = DispBuffer & vbCrLf
 
	Loop
	DispBuffer = DispBuffer & "</PRE>"
 
	' ------------------------------------------------------
	' Stream を閉じる
	Stream.Close
 
	' ------------------------------------------------------
	' 結果をセット
	document.all("DumpArea").innerHTML = DispBuffer
 
end function
 
</SCRIPT>
<HTML>
<BODY>
<INPUT type=file name=DumpFile onChange='Call ShowDump()'>
<DIV id=DumpArea>
</DIV>
</BODY>
</HTML>