2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« IE8の履歴の在処(その3)削減 | トップページ | IEでJISコードのWebページを印刷すると文字化けする。 »

2011年1月 7日 (金)

VBScriptで16進ダンプする。

cscript dump.vbs ファイル

set re=new regexp
re.global=true
re.pattern="[\x00-\x1c]"
set stream2=createobject("adodb.stream")
set stream=createobject("adodb.stream")
stream.open
stream.type=1
stream.loadfromfile wscript.arguments.item(0)
for p=0 to stream.size-1 step 16
  buf=stream.read(16)
  txt=mid(hex(&H1000000+p),2)
  for k=0 to 15
    if p+k<stream.size then
      txt=txt & " " & mid(hex(&h100+ascb(midb(buf,k+1,1))),2)
    else
      txt=txt & "   "
    end if
  next
  stream2.open
  stream2.type=1
  stream2.write buf
  stream2.position=0
  stream2.type=2
  stream2.charset="shift_jis"
  wscript.echo txt,re.replace(stream2.readtext(-1),"?")
  stream2.close
next

« IE8の履歴の在処(その3)削減 | トップページ | IEでJISコードのWebページを印刷すると文字化けする。 »