fukuriko

日記とか

広告

※このエリアは、60日間投稿が無い場合に表示されます。記事を投稿すると、表示されなくなります。

VBScriptによる文字コード変換

2008-04-10 10:59:44 |  プログラミング

1.プログラミングメモ









    


     


       

【VBScriptによる文字コード変換】
Function Encode(strUni,cset) 
    Set objStm = CreateObject("ADODB.Stream")
    objStm.Open
    objStm.Type = 2
    objStm.Charset = cset
    objStm.WriteText strUni

    objStm.Position = 0
    objStm.Type = 1
    Select Case UCase(cset)
      Case "UNICODE", "UTF-16"
        objStm.Position = 2
      Case "UTF-8"
        objStm.Position = 3
    End Select
    Encode = objStm.Read()


    objStm.Close
    Set objStm = Nothing
End Function

【使用例】
  ' 変数str は Shift_JIS に変換された "あういうえお" が代入される
  str = Encode("あいうえお","Shift_JIS")


ジャンル:
ウェブログ
コメント   この記事についてブログを書く
この記事をはてなブックマークに追加
«  PDF作成 | トップ |  あわてなくていいですよ »
最近の画像もっと見る

コメントを投稿


コメント利用規約に同意の上コメント投稿を行ってください。

数字4桁を入力し、投稿ボタンを押してください。

あわせて読む

トラックバック

この記事のトラックバック  Ping-URL