goo
ブログ新規開設 記事を書く ログイン

fukuriko

日記とか

前日の閲覧数：
34PV
＋SHARE
Twitter Facebook RSS

ＶＢＳｃｒｉｐｔによる文字コード変換

2008-04-10 10:59:44

カテゴリー： プログラミング

１．プログラミングメモ









　　　　


　　　　　


     　　

 【ＶＢＳｃｒｉｐｔによる文字コード変換】
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")


ジャンル：
ウェブログ
キーワード：
文字コードあいうえお

「 プログラミング」カテゴリの最新記事

ただいま人気急上昇！ブログ

  • 7/12の日経 - 経済を良くするって、どうすれば
  • 笑の内閣『ツレがウヨになりまして。』 - 習慣ＨＩＲＯＳＥ
  • ニコンを狂わせたものは何か - 日刊イオ
  • 政策需要を扱う際の留意点 - 経済を良くするって、どうすれば
  • 結婚式！ - 小山剛志のNo Pain,No Life
  • 咲-Saki-　10巻/小林立 - 超進化アンチテーゼ

プロフィール

フォト アドバンス

ログイン

ログイン編集画面にログイン

60日間投稿が無いためテンプレートを切り替えております。ブログを更新いただくと元のデザインに戻ります。

関連リンク

文字コードあいうえお