"=?HZ-GB-2312?B?" 解码

aflower 2000-02-08 11:43:00
我有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
...全文
266 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
aflower 2000-02-10
  • 打赏
  • 举报
回复
谢谢
radish 2000-02-09
  • 打赏
  • 举报
回复
BIG5我不知道,"=?HZ-GB-2312?B?" 应该先将B?到=?中间的文本用BASE64解码,然后将~{和}~间的字符加0X80就成了中文了
radish 2000-02-09
  • 打赏
  • 举报
回复
BIG5
radish 2000-02-09
  • 打赏
  • 举报
回复
BIG5

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧