Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 096 fois - Téléchargée 29 fois
Private Function Quoteprint(xx As String) As String Dim Partie() As String k = 0 old = 1 For i = 1 To Len(xx) If Mid(xx, i, 2) = vbCrLf Then ReDim Preserve Partie(k): Partie(k) = Mid(xx, old, i - old): k = k + 1: old = i End If DoEvents Next i If k = 0 Then ReDim Preserve Partie(0): Partie(0) = xx Dim sortie As String For i = 0 To UBound(Partie) a = Partie(i) For k = 1 To Len(a) DoEvents If SafeChar(Mid(a, k, 1)) = True Or Mid(a, k, 1) = " " Or Mid(a, k, 1) = vbTab Then sortie = sortie & Mid(a, k, 1) GoTo 10 End If If Mid(a, k, 1) = "=" And k < Len(a) Then sortie = sortie & Chr(CLng("&H" & Mid(a, k + 1, 2))) If Err.Number <> 0 Then Err.Clear GoTo 10 End If k = k + 2 End If On Error Resume Next If Mid(a, k, 1) = "=" And k = Len(a) Then sortie = sortie & vbCrLf GoTo 10 End If 10 Next k DoEvents Next i Quoteprint = sortie End Function Function SafeChar(xx As String) As Boolean Dim a(92) As Integer For i = 0 To 27 a(i) = i + 33 Next i For i = 28 To UBound(a) a(i) = i + 34 Next i For i = 0 To UBound(a) If xx = Chr(a(i)) Then SafeChar = True: Exit Function End If Next i SafeChar = False End Function
-------------
Qualqu'un aurait-il une fonction qui fait l'inverse, pour coder en quotes-printable,
j'ai cherche, mais je ne trouve que de l'encodage base64.
Mais c'est une super idée ça !!!
je suis content que ça vous intéresse et je pense bientôt écrire un tutorial à propos tt ces types de codage.
Merci pour toutes ces précisions bien précieuses... Et surtout, bonne continuation... pour nous abreuver, en effet, de routines plutôt rares (d'où d'ailleurs toutes mes questions ;-)... Parce que en effet, Base64, Quoted Printable, ... on connait de nom lorsqu'on "paramètre" nos clients mails, mais comme y'a jamais d'aide, on sait pas trop quoi choisir... L'air de rien, comme ça, tu viens de m'en apprendre bien plus que tu ne peux te l'imaginer!!!
Encore merci ^_^
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.