2018年10月
  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 31      
無料ブログはココログ

« ADODB.Streamを使って、UTF-8 の BOM を除去する。 | トップページ | ウィンドウタイトルが数字文字列のウィンドウをAppActivateする。 »

2009年5月19日 (火)

IEを使って、UTF-8 の BOM を除去する。

拡張子は .txt 限定ですが、IEで開いて、上書き保存すれば、UTF-8 の BOM を削除できます。

ie-utf8-bom.vbs ファイル...

Option Explicit
Const OLECMDID_SAVE=3
Const OLECMDEXECOPT_DODEFAULT=0
Dim ie
Dim Path

Set ie=CreateObject("InternetExplorer.Application")
For Each Path In WScript.Arguments
  ie.Navigate Path
  Do While ie.Busy Or ie.ReadyState<>4
    WScript.Sleep 100
  Loop
  if ie.Document.Charset="utf-8" Then ie.ExecWB OLECMDID_SAVE,OLECMDEXECOPT_DODEFAULT
Next
ie.Quit

« ADODB.Streamを使って、UTF-8 の BOM を除去する。 | トップページ | ウィンドウタイトルが数字文字列のウィンドウをAppActivateする。 »