VBSが置かれたフォルダと同じフォルダに
shift_jisで書かれている a.htmlファイルがあるのですが
これの文字コードを変換して UTF-8で書かれた b.htmlに変換するコードを教えて下さい。
iphoneからだとUTF-8以外で書かれたページだと文字化けしてしまうので変換したいと思っています
No.1
4972
2154
300pt
前にこんなのを回答したことがありました。
同じような感じでいけますよ。
Set objStream = WScript.CreateObject("adodb.stream") objStream.Type = 2 objStream.Charset = "Shift_JIS" objStream.Open objStream.LoadFromFile("a.html") ' Shift-JIS のファイルを読み込み txt = objStream.ReadText() objStream.Close() objStream.Open() objStream.Position = 0 objStream.Charset = "UTF-8" ' UTF-8 でファイルへ書き込み objStream.WriteText txt objStream.SaveToFile("b.html") objStream.Close Set objStream = Nothing
1
1
1
2
2
1
3
240
228
ありがとうございました！
2013/07/12 04:30:14