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

  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:""MS ゴシック""'>"
	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>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ