VB.NET でﾒｰﾙｻﾌﾞｼﾞｪｸﾄの B ﾃﾞｺｰﾄﾞ[ﾌﾟﾛｸﾞﾗﾐﾝｸﾞ]
(2015-09-19 11:23:01) by shinoda
VB.NET でﾒｰﾙｻﾌﾞｼﾞｪｸﾄをﾃﾞｺｰﾄﾞ(Bｴﾝｺｰﾄﾞされたものだけ)したいんで､こんな感じで組んでみたけど､何か今ひとつだな｡
ちなみに前処理で､
Subject: =?UTF-8?B?5pyA5paw44Gu44OK44Kk44Kt44Ki44Kk44OG44Og44KS44K344Or?=
=?UTF-8?B?44OQ44O844Km44Kj44O844Kv44Gu44GK5L6b44Gr?=
みたいに長いｻﾌﾞｼﾞｪｸﾄが複数行に渡るものは､
=?UTF-8?B?5pyA5paw44Gu44OK44Kk44Kt44Ki44Kk44OG44Og44KS44K344Or?==?UTF-8?B?44OQ44O844Km44Kj44O844Kv44Gu44GK5L6b44Gr?=
のように､一行のﾃｷｽﾄにまとめてある｡
で､該当処理をまとめた Function がこれ｡
Private Function decodeMailSubject(ByVal subject As String) As String
Dim tmp As String = subject
Dim pattern As New System.Text.RegularExpressions.Regex("^(.*?)(\=+\?.+?\?\=)(.*)$") ' ｴﾝｺｰﾄﾞ部分全体にﾏｯﾁ
Dim pattern2 As New System.Text.RegularExpressions.Regex("^\=+\?(.+?)\?B\?(.+?)\?\=$", System.Text.RegularExpressions.RegexOptions.IgnoreCase) ' ｴﾝｺｰﾄﾞされた本文部分にﾏｯﾁ
subject = String.Empty
Do Until tmp = String.Empty
Dim m As System.Text.RegularExpressions.Match = pattern.Match(tmp)
If m.Success Then ' ﾏｯﾁした
subject &= m.Groups.Item(1).Value
' =?〜?=部分の要素分解
Dim m2 As System.Text.RegularExpressions.Match = pattern2.Match(m.Groups.Item(2).Value)
If m2.Groups(1).Value <> String.Empty Then
' ﾃﾞｺｰﾄﾞ
Dim b() As Byte = System.Convert.FromBase64String(m2.Groups(2).Value)
subject &= System.Text.Encoding.GetEncoding(m2.Groups(1).Value).GetString(b)
Else
subject &= m.Groups.Item(2).Value
End If
tmp = m.Groups.Item(3).Value
Else
' ﾏｯﾁしなかったらもう終わり
subject &= tmp
tmp = String.Empty
End If
Loop
Return subject
End Function
ﾃｽﾄ結果は良好だけど､ｺｰﾄﾞとしての美しさに欠けるな(^^; ま､VB.NET をそんなに使い込んでないから仕方ないか(^^;
是非とも VB.NET ﾏｽﾀｰの方の｢これ､こう書いた方がいいよ｣というご指摘･ご指導をお待ちしております(笑)
ｺﾒﾝﾄ投稿
次の記事へ >
< 前の記事へ
TOPへ戻る
Powered by
MT4i 3.0.8