1、附件的BASE64编码中可能含有空白字符(回车(2个字符),tab,空白),从而导致用length计算出来的不是实际的base串长度。如一段串,反复出错,原串是以=结束,最后是一个回车,
在word中,统计得到
而在调试中得到的值却是33027,刚好等于32221+403*2。
2、base串规定,只有A-Z,a-z,0-9,+/是合法字符,=是尾部填充字符,其余空白字符(Tab、空格、回车和换行)将被忽略。而允许的填充=只能是0,1,2。
3、显然原来的串的填充是有问题的,因而需要把原来串中的空白符和填充符去掉,重新计算。
4、不过,从web,foxmail,本程序中得到的附件文件居然都不一样,差几个字符!!!也不知道谁对?
代码为:
Dim i_add As Integer '补充的字符串的长度
Dim s_content As String
'过滤
s_content = buffer.Substring(start)
s_content = s_content.Replace(vbCrLf, "")
s_content = s_content.Replace(vbTab, "")
s_content = s_content.Replace(" ", "")
s_content = s_content.Replace("=", "")
'补充字符数
i_add = 4 - (s_content.Length Mod 4)
i_add = IIf(i_add = 4, 0, i_add)
'补齐
Dim s_add As String = New String("=", i_add)
s_content = s_content & s_add
Me.data = System.Convert.FromBase64String(s_content)