VBSの質問です

VBSが置かれたフォルダと同じフォルダに
shift_jisで書かれている a.htmlファイルがあるのですが
これの文字コードを変換して UTF-8で書かれた b.htmlに変換するコードを教えて下さい。
iphoneからだとUTF-8以外で書かれたページだと文字化けしてしまうので変換したいと思っています

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/07/10 11:53:37
  • 終了:2013/07/12 04:30:20

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4488ベストアンサー獲得回数18572013/07/10 12:24:15

ポイント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
id:takanii

ありがとうございました!

2013/07/12 04:30:14

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません