※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
a-kuma3
満足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
その他の回答
-
きゃづみぃ
満足50pt
http://d.hatena.ne.jp/chaichanPaPa/20081127/1227787285
ADODBが使えれば 上記のサイトのソースが 使えるようです。
なお、指定するキャラクタセットは 逆にしないとダメですが。
この質問へのコメント
質問の情報
- 登録日時
- 2013-03-15 17:12:08
- 終了日時
- 2013-03-15 18:07:37
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
ブレインストーミングしてくれるサイト、webサービスがあったら色々教えてください 特定少数の人がアイデア…
tak
1
1
-
【今年の漢字】(2023年)を予想してみてください。 ※遠慮なく気軽にどうぞ。(^_^; ※参考URL http://www.ka…
rsc24
-
不満なことを周りに当たり散らして会社で浮いた存在になるのと、辛抱して鬱病になるのは、どちらがマシで…
coccinellab21
-
こんな親友がいます（付き合い５年） LINEで話してる途中にyoutubeを見にいって会話を途切れさす 約束の時…
匿名質問者1
-
ホセ・フェリシアーノのケサラをカタカナ歌詞で歌いたい
akoroma