人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBSの質問です
unicode UTF-16のほげ.txtがあるのですが
これをshift-jisのテキストファイルに変換するコードを教えて下さい

●質問者: takanii
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● きゃづみぃ
●50ポイント

http://d.hatena.ne.jp/chaichanPaPa/20081127/1227787285

ADODBが使えれば 上記のサイトのソースが 使えるようです。

なお、指定するキャラクタセットは 逆にしないとダメですが。


2 ● a-kuma3
●50ポイント ベストアンサー

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
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ