"=?HZ-GB-2312?B?" 解码
我有base64.bas 里面有Base64Encode这个函数
可以对BIG5解码,程序在下面.
HZ-GB-2312 和BIG5 解码有什么不同
希望提供解GB-2312的原码?
Pos = InStr(UCase(Subject), "=?BIG5?B?")
If Pos > 0 Then '这段是处理寄信主题有BIG5编码的情况
Subject = Right(Subject, Len(Subject) - Pos - 8)
Pos = InStr(Subject, "?=")
Subject = Left(Subject, Pos - 1)
On Error Resume Next
fn1 = "temp1.txt"
fn2 = "temp2.txt"
Kill fn1
n1 = FreeFile
Open fn1 For Binary Access Write As n1
Put n1, , Subject
Close n1
Base64Decode fn1, fn2
Open fn2 For Input Access Read As #2
Input #2, Subject
Close #2
Kill fn1
Kill fn2
Subject = Mainform.Big2GB1.BigToGB(Subject)
SubjectDecode = Subject
GoTo SubjectDecodeEnd
End If