邮件附件base64解码的问题

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)