unicode UTF-16のほげ.txtがあるのですが
これをshift-jisのテキストファイルに変換するコードを教えて下さい
No.2
4969
2152
50pt
UTF-16 で書かれた utf16.txt というファイルを、Shift-JIS に変換して sjis.txt に書き込む VBScript です。
Set objStream = WScript.CreateObject("adodb.stream") objStream.Type = 2 objStream.Charset = "UTF-16" objStream.Open objStream.LoadFromFile("utf16.txt") ' UTF-16 のファイルを読み込み txt = objStream.ReadText() objStream.Close() objStream.Open() objStream.Position = 0 objStream.Charset = "Shift_JIS" ' Shift-JIS でファイルへ書き込み objStream.WriteText txt objStream.SaveToFile("sjis.txt") objStream.Close Set objStream = Nothing
No.1
135391198
50pt
http://d.hatena.ne.jp/chaichanPaPa/20081127/1227787285
ADODBが使えれば 上記のサイトのソースが 使えるようです。
なお、指定するキャラクタセットは 逆にしないとダメですが。
No.2
49692152
ここでベストアンサー
50pt
UTF-16 で書かれた utf16.txt というファイルを、Shift-JIS に変換して sjis.txt に書き込む VBScript です。
Set objStream = WScript.CreateObject("adodb.stream") objStream.Type = 2 objStream.Charset = "UTF-16" objStream.Open objStream.LoadFromFile("utf16.txt") ' UTF-16 のファイルを読み込み txt = objStream.ReadText() objStream.Close() objStream.Open() objStream.Position = 0 objStream.Charset = "Shift_JIS" ' Shift-JIS でファイルへ書き込み objStream.WriteText txt objStream.SaveToFile("sjis.txt") objStream.Close Set objStream = Nothing
1
1
2
1
1
1
2
240
228
コメント（0件)