MIME CODING
ATyrael
Messages postés
2
Date d'inscription
lundi 21 octobre 2002
Statut
Membre
Dernière intervention
24 octobre 2002
-
24 oct. 2002 à 23:51
jibob Messages postés 59 Date d'inscription mardi 10 mai 2005 Statut Membre Dernière intervention 4 juillet 2013 - 3 mai 2010 à 12:32
jibob Messages postés 59 Date d'inscription mardi 10 mai 2005 Statut Membre Dernière intervention 4 juillet 2013 - 3 mai 2010 à 12:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1654-mime-coding
https://codes-sources.commentcamarche.net/source/1654-mime-coding
3 mai 2010 à 12:32
Pour rendre le décodage base64 fonctionnel, corrigez la fonction suivante:
Private Function mimedecode(a As String) As Integer
If Len(a) 0 Then mimedecode -1: Exit Function
mimedecode = InStr(base64, a) - 1
End Function
' gestion des majuscules et minuscules.
mimedecode = InStr(1,base64, a,0) - 1
Cordialement.
8 mai 2005 à 23:30
5 janv. 2004 à 05:22
24 oct. 2002 à 23:51