ここから本文です

VB6.0 で =?utf-8?B?OTk5OeODvDAx?= を 9999-01 に変換する方法を教えてくだ...

sob********さん

2018/5/117:00:04

VB6.0 で
=?utf-8?B?OTk5OeODvDAx?=

9999-01
に変換する方法を教えてください

閲覧数:
56
回答数:
1

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

hot********さん

2018/5/210:35:57

VBAで試してるんですが、VB6でも可能だと思います。

Sub sample()
Dim s As String
s = "=?utf-8?B?OTk5OeODvDAx?="

With CreateObject("Msxml2.DOMDocument").createElement("base64")
.DataType = "bin.base64"
.Text = Split(s, "?")(3)
s = CreateObject("System.Text.UTF8Encoding").GetString(.nodeTypedValue)
End With

MsgBox s
End Sub

  • hot********さん

    2018/5/211:14:39

    utf-8以外も対応版です。(たぶん)

    Sub sample()
    Dim s As String
    s = "=?utf-8?B?OTk5OeODvDAx?="

    Dim b() As Byte
    With CreateObject("Msxml2.DOMDocument").createElement("base64")
    .DataType = "bin.base64"
    .Text = Split(s, "?")(3)
    b = .nodeTypedValue
    End With
    With CreateObject("ADODB.Stream")
    .Open
    .Type = 1
    .Write b
    .Position = 0
    .Type = 2
    .Charset = Split(s, "?")(1)
    s = .ReadText
    End With

    MsgBox s
    End Sub


  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2018/5/3 22:19:03

出来ました!
とても困っていたので助かりました。
本当にありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる