Alors c'est tout simple. Tu parcours la chaine à la recherche du signe égal (=), puis tu lis les 2 caractères suivants, ce qui te donne une valeur en hexa, et tu fais un remplacement du "=" suivi des 2 caractères par le caractère obtenu en trouvant le caractère corresondant à ce code en UTF8. pour la valeur décimal du code, un simple: Val("&H" & code)
Par exemple Val("&H" & "3D") ==> 61
Bref, pas compliqué, juste un peu chiant.
Voici un canevas: rivate Function DecodeHexaEncoded(ByVal s As String) As String Dim p As Long Dim sDecoded As String Dim code As String
p = InStr(s, "=") While p <> 0 sDecoded = sDecoded & Mid$(s, 1, p - 1) code = Mid$(s, p + 1, 2) sDecoded = sDecoded & Chr$(Val("&h" & code)) s = Mid$(s, p + 3) p = InStr(p + 1, s, "=") Wend DecodeHexaEncoded = sDecoded End Function
Si tu fais tourner ceci, ça marche sauf pour les caractères accentués. Il suffit d'adapter la ligne: sDecoded = sDecoded & Chr$(Val("&h" & code))
en remplacant le Chr$() par la fonction de remplacement qui va recalculer le bon caractère.
Alors c'est tout simple. Tu parcours la chaine à la recherche du signe
égal (=), puis tu lis les 2 caractères suivants, ce qui te donne une
valeur en hexa, et tu fais un remplacement du "=" suivi des 2 caractères
par le caractère obtenu en trouvant le caractère corresondant à ce
code en UTF8.
pour la valeur décimal du code, un simple:
Val("&H" & code)
Par exemple Val("&H" & "3D") ==> 61
Bref, pas compliqué, juste un peu chiant.
Voici un canevas:
rivate Function DecodeHexaEncoded(ByVal s As String) As String
Dim p As Long
Dim sDecoded As String
Dim code As String
p = InStr(s, "=")
While p <> 0
sDecoded = sDecoded & Mid$(s, 1, p - 1)
code = Mid$(s, p + 1, 2)
sDecoded = sDecoded & Chr$(Val("&h" & code))
s = Mid$(s, p + 3)
p = InStr(p + 1, s, "=")
Wend
DecodeHexaEncoded = sDecoded
End Function
Si tu fais tourner ceci, ça marche sauf pour les caractères accentués.
Il suffit d'adapter la ligne:
sDecoded = sDecoded & Chr$(Val("&h" & code))
en remplacant le Chr$() par la fonction de remplacement qui
va recalculer le bon caractère.
Alors c'est tout simple. Tu parcours la chaine à la recherche du signe égal (=), puis tu lis les 2 caractères suivants, ce qui te donne une valeur en hexa, et tu fais un remplacement du "=" suivi des 2 caractères par le caractère obtenu en trouvant le caractère corresondant à ce code en UTF8. pour la valeur décimal du code, un simple: Val("&H" & code)
Par exemple Val("&H" & "3D") ==> 61
Bref, pas compliqué, juste un peu chiant.
Voici un canevas: rivate Function DecodeHexaEncoded(ByVal s As String) As String Dim p As Long Dim sDecoded As String Dim code As String
p = InStr(s, "=") While p <> 0 sDecoded = sDecoded & Mid$(s, 1, p - 1) code = Mid$(s, p + 1, 2) sDecoded = sDecoded & Chr$(Val("&h" & code)) s = Mid$(s, p + 3) p = InStr(p + 1, s, "=") Wend DecodeHexaEncoded = sDecoded End Function
Si tu fais tourner ceci, ça marche sauf pour les caractères accentués. Il suffit d'adapter la ligne: sDecoded = sDecoded & Chr$(Val("&h" & code))
en remplacant le Chr$() par la fonction de remplacement qui va recalculer le bon caractère.
Alors c'est tout simple. Tu parcours la chaine à la recherche du signe égal (=), puis tu lis les 2 caractères suivants, ce qui te donne une valeur en hexa, et tu fais un remplacement du "=" suivi des 2 caractères par le caractère obtenu en trouvant le caractère corresondant à ce code en UTF8. pour la valeur décimal du code, un simple: Val("&H" & code)
Par exemple Val("&H" & "3D") ==> 61
Bref, pas compliqué, juste un peu chiant.
Voici un canevas: rivate Function DecodeHexaEncoded(ByVal s As String) As String Dim p As Long Dim sDecoded As String Dim code As String
p = InStr(s, "=") While p <> 0 sDecoded = sDecoded & Mid$(s, 1, p - 1) code = Mid$(s, p + 1, 2) sDecoded = sDecoded & Chr$(Val("&h" & code)) s = Mid$(s, p + 3) p = InStr(p + 1, s, "=") Wend DecodeHexaEncoded = sDecoded End Function
Si tu fais tourner ceci, ça marche sauf pour les caractères accentués. Il suffit d'adapter la ligne: sDecoded = sDecoded & Chr$(Val("&h" & code))
en remplacant le Chr$() par la fonction de remplacement qui va recalculer le bon caractère.
Pourquoi ne pas utiliser la fonction Replace ? Je l'ai fait dans un module de décodage de messages eml/nws en utilisant également "Select Case"
Hello Jean-marc,
Tu as savamment écrit :
Marc wrote:
Alors c'est tout simple. Tu parcours la chaine à la recherche du signe
égal (=), puis tu lis les 2 caractères suivants, ce qui te donne une
valeur en hexa, et tu fais un remplacement du "=" suivi des 2
caractères par le caractère obtenu en trouvant le caractère
corresondant à ce code en UTF8.
pour la valeur décimal du code, un simple:
Val("&H" & code)
Par exemple Val("&H" & "3D") ==> 61
Bref, pas compliqué, juste un peu chiant.
Voici un canevas:
rivate Function DecodeHexaEncoded(ByVal s As String) As String
Dim p As Long
Dim sDecoded As String
Dim code As String
p = InStr(s, "=")
While p <> 0
sDecoded = sDecoded & Mid$(s, 1, p - 1)
code = Mid$(s, p + 1, 2)
sDecoded = sDecoded & Chr$(Val("&h" & code))
s = Mid$(s, p + 3)
p = InStr(p + 1, s, "=")
Wend
DecodeHexaEncoded = sDecoded
End Function
Si tu fais tourner ceci, ça marche sauf pour les caractères accentués.
Il suffit d'adapter la ligne:
sDecoded = sDecoded & Chr$(Val("&h" & code))
en remplacant le Chr$() par la fonction de remplacement qui
va recalculer le bon caractère.
Pourquoi ne pas utiliser la fonction Replace ?
Je l'ai fait dans un module de décodage de messages eml/nws en utilisant
également "Select Case"
Alors c'est tout simple. Tu parcours la chaine à la recherche du signe égal (=), puis tu lis les 2 caractères suivants, ce qui te donne une valeur en hexa, et tu fais un remplacement du "=" suivi des 2 caractères par le caractère obtenu en trouvant le caractère corresondant à ce code en UTF8. pour la valeur décimal du code, un simple: Val("&H" & code)
Par exemple Val("&H" & "3D") ==> 61
Bref, pas compliqué, juste un peu chiant.
Voici un canevas: rivate Function DecodeHexaEncoded(ByVal s As String) As String Dim p As Long Dim sDecoded As String Dim code As String
p = InStr(s, "=") While p <> 0 sDecoded = sDecoded & Mid$(s, 1, p - 1) code = Mid$(s, p + 1, 2) sDecoded = sDecoded & Chr$(Val("&h" & code)) s = Mid$(s, p + 3) p = InStr(p + 1, s, "=") Wend DecodeHexaEncoded = sDecoded End Function
Si tu fais tourner ceci, ça marche sauf pour les caractères accentués. Il suffit d'adapter la ligne: sDecoded = sDecoded & Chr$(Val("&h" & code))
en remplacant le Chr$() par la fonction de remplacement qui va recalculer le bon caractère.
Pourquoi ne pas utiliser la fonction Replace ? Je l'ai fait dans un module de décodage de messages eml/nws en utilisant également "Select Case"
Fred
Dans : news:46421557$0$14233$, Jean-marc écrivait :
Hello Jean-Marc
Alors c'est tout simple. Tu parcours la chaine à la recherche du signe égal (=), puis tu lis les 2 caractères suivants, ce qui te donne une valeur en hexa,
Attention, le signe égal peut-être seul en fin de ligne. C'est utilisé lorsqu'une ligne coupée se termine par un espace ou une tabulation. http://www.ietf.org/rfc/rfc2045.txt (page 18)
C'est d'ailleurs le cas dans l'exemple donné par Marc.
-- Fred http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)
Dans : news:46421557$0$14233$ba620e4c@news.skynet.be,
Jean-marc écrivait :
Hello Jean-Marc
Alors c'est tout simple. Tu parcours la chaine à la recherche du signe
égal (=), puis tu lis les 2 caractères suivants, ce qui te donne une
valeur en hexa,
Attention, le signe égal peut-être seul en fin de ligne. C'est utilisé
lorsqu'une ligne coupée se termine par un espace ou une tabulation.
http://www.ietf.org/rfc/rfc2045.txt (page 18)
C'est d'ailleurs le cas dans l'exemple donné par Marc.
--
Fred
http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)
Dans : news:46421557$0$14233$, Jean-marc écrivait :
Hello Jean-Marc
Alors c'est tout simple. Tu parcours la chaine à la recherche du signe égal (=), puis tu lis les 2 caractères suivants, ce qui te donne une valeur en hexa,
Attention, le signe égal peut-être seul en fin de ligne. C'est utilisé lorsqu'une ligne coupée se termine par un espace ou une tabulation. http://www.ietf.org/rfc/rfc2045.txt (page 18)
C'est d'ailleurs le cas dans l'exemple donné par Marc.
-- Fred http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)
Gloops
Aski a écrit, le 09/05/2007 20:54 :
Pourquoi ne pas utiliser la fonction Replace ? Je l'ai fait dans un module de décodage de messages eml/nws en utilis ant également "Select Case"
Salut,
Oui, ça me rappelle des trucs, ça. ça veut dire qu'il ne faut pas oublier un cas. Un jour tu as un nouveau caractère qui apparaît, tu retouches ton cod e, ça marche, et pareil à la fois suivante.
En maths on connaît les deux méthodes, et on dit qu'un ensemble peut être défini en extension ou en compréhension. En extension on donne la liste complète de ce qu'on est susceptible de trouver (Select Case), en compréhension on donne une règle générale.
Aski a écrit, le 09/05/2007 20:54 :
Pourquoi ne pas utiliser la fonction Replace ?
Je l'ai fait dans un module de décodage de messages eml/nws en utilis ant
également "Select Case"
Salut,
Oui, ça me rappelle des trucs, ça.
ça veut dire qu'il ne faut pas oublier un cas.
Un jour tu as un nouveau caractère qui apparaît, tu retouches ton cod e,
ça marche, et pareil à la fois suivante.
En maths on connaît les deux méthodes, et on dit qu'un ensemble peut
être défini en extension ou en compréhension. En extension on donne la
liste complète de ce qu'on est susceptible de trouver (Select Case), en
compréhension on donne une règle générale.
Pourquoi ne pas utiliser la fonction Replace ? Je l'ai fait dans un module de décodage de messages eml/nws en utilis ant également "Select Case"
Salut,
Oui, ça me rappelle des trucs, ça. ça veut dire qu'il ne faut pas oublier un cas. Un jour tu as un nouveau caractère qui apparaît, tu retouches ton cod e, ça marche, et pareil à la fois suivante.
En maths on connaît les deux méthodes, et on dit qu'un ensemble peut être défini en extension ou en compréhension. En extension on donne la liste complète de ce qu'on est susceptible de trouver (Select Case), en compréhension on donne une règle générale.
Aski
Hello Gloops,
Tu as savamment écrit :
Aski a écrit, le 09/05/2007 20:54 :
Pourquoi ne pas utiliser la fonction Replace ? Je l'ai fait dans un module de décodage de messages eml/nws en utilisant également "Select Case"
Salut,
Oui, ça me rappelle des trucs, ça. ça veut dire qu'il ne faut pas oublier un cas. Un jour tu as un nouveau caractère qui apparaît, tu retouches ton code, ça marche, et pareil à la fois suivante.
C'est effectivement la méthode que j'ai utilisée car on en oublie toujours un.
En maths on connaît les deux méthodes, et on dit qu'un ensemble peut être défini en extension ou en compréhension. En extension on donne la liste complète de ce qu'on est susceptible de trouver (Select Case), en compréhension on donne une règle générale.
Bourbaki à la poubelle ....
Hello Gloops,
Tu as savamment écrit :
Aski a écrit, le 09/05/2007 20:54 :
Pourquoi ne pas utiliser la fonction Replace ?
Je l'ai fait dans un module de décodage de messages eml/nws en
utilisant également "Select Case"
Salut,
Oui, ça me rappelle des trucs, ça.
ça veut dire qu'il ne faut pas oublier un cas.
Un jour tu as un nouveau caractère qui apparaît, tu retouches ton
code, ça marche, et pareil à la fois suivante.
C'est effectivement la méthode que j'ai utilisée car on en oublie toujours
un.
En maths on connaît les deux méthodes, et on dit qu'un ensemble peut
être défini en extension ou en compréhension. En extension on donne la
liste complète de ce qu'on est susceptible de trouver (Select Case),
en compréhension on donne une règle générale.
Pourquoi ne pas utiliser la fonction Replace ? Je l'ai fait dans un module de décodage de messages eml/nws en utilisant également "Select Case"
Salut,
Oui, ça me rappelle des trucs, ça. ça veut dire qu'il ne faut pas oublier un cas. Un jour tu as un nouveau caractère qui apparaît, tu retouches ton code, ça marche, et pareil à la fois suivante.
C'est effectivement la méthode que j'ai utilisée car on en oublie toujours un.
En maths on connaît les deux méthodes, et on dit qu'un ensemble peut être défini en extension ou en compréhension. En extension on donne la liste complète de ce qu'on est susceptible de trouver (Select Case), en compréhension on donne une règle générale.
Bourbaki à la poubelle ....
Aski
Hello Fred,
Tu as savamment écrit :
Dans : news:46421557$0$14233$, Jean-marc écrivait :
Hello Jean-Marc
Alors c'est tout simple. Tu parcours la chaine à la recherche du signe égal (=), puis tu lis les 2 caractères suivants, ce qui te donne une valeur en hexa,
Attention, le signe égal peut-être seul en fin de ligne. C'est utilisé lorsqu'une ligne coupée se termine par un espace ou une tabulation. http://www.ietf.org/rfc/rfc2045.txt (page 18)
C'est d'ailleurs le cas dans l'exemple donné par Marc.
Il faut donc commencer à rechercher ce signe suivi d'un retour ligne et l'éliminer.
Hello Fred,
Tu as savamment écrit :
Dans : news:46421557$0$14233$ba620e4c@news.skynet.be,
Jean-marc écrivait :
Hello Jean-Marc
Alors c'est tout simple. Tu parcours la chaine à la recherche du
signe égal (=), puis tu lis les 2 caractères suivants, ce qui te
donne une valeur en hexa,
Attention, le signe égal peut-être seul en fin de ligne. C'est utilisé
lorsqu'une ligne coupée se termine par un espace ou une tabulation.
http://www.ietf.org/rfc/rfc2045.txt (page 18)
C'est d'ailleurs le cas dans l'exemple donné par Marc.
Il faut donc commencer à rechercher ce signe suivi d'un retour ligne et
l'éliminer.
Dans : news:46421557$0$14233$, Jean-marc écrivait :
Hello Jean-Marc
Alors c'est tout simple. Tu parcours la chaine à la recherche du signe égal (=), puis tu lis les 2 caractères suivants, ce qui te donne une valeur en hexa,
Attention, le signe égal peut-être seul en fin de ligne. C'est utilisé lorsqu'une ligne coupée se termine par un espace ou une tabulation. http://www.ietf.org/rfc/rfc2045.txt (page 18)
C'est d'ailleurs le cas dans l'exemple donné par Marc.
Il faut donc commencer à rechercher ce signe suivi d'un retour ligne et l'éliminer.
Fred
Dans : news:, Aski disait :
Hello Fred,
Hello Henri,
Il faut donc commencer à rechercher ce signe suivi d'un retour ligne et l'éliminer.
Pas exactement. Sinon ce signe serait inutile. Il est placé là pour éviter les erreurs lorsque que certains agents de transferts complémentent la ligne avec des espaces, plutôt que de tronquer. Je ne sais pas si cela peut toujours se produire à l'heure actuelle mais c'est ce qui est dit dans la référence.
Il faut plutôt chercher les signes «=» non suivis d'un chiffre hexa et supprimer toute la fin de la ligne.
-- Fred http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)
Dans : news:e3ruGRskHHA.4900@TK2MSFTNGP05.phx.gbl,
Aski disait :
Hello Fred,
Hello Henri,
Il faut donc commencer à rechercher ce signe suivi d'un retour ligne
et l'éliminer.
Pas exactement. Sinon ce signe serait inutile.
Il est placé là pour éviter les erreurs lorsque que certains agents de
transferts complémentent la ligne avec des espaces, plutôt que de
tronquer.
Je ne sais pas si cela peut toujours se produire à l'heure actuelle mais
c'est ce qui est dit dans la référence.
Il faut plutôt chercher les signes «=» non suivis d'un chiffre hexa et
supprimer toute la fin de la ligne.
--
Fred
http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)
Il faut donc commencer à rechercher ce signe suivi d'un retour ligne et l'éliminer.
Pas exactement. Sinon ce signe serait inutile. Il est placé là pour éviter les erreurs lorsque que certains agents de transferts complémentent la ligne avec des espaces, plutôt que de tronquer. Je ne sais pas si cela peut toujours se produire à l'heure actuelle mais c'est ce qui est dit dans la référence.
Il faut plutôt chercher les signes «=» non suivis d'un chiffre hexa et supprimer toute la fin de la ligne.
-- Fred http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)
Aski
Hello Fred,
Tu as savamment écrit :
Dans : news:, Aski disait :
Hello Fred,
Hello Henri,
Il faut donc commencer à rechercher ce signe suivi d'un retour ligne et l'éliminer.
Pas exactement. Sinon ce signe serait inutile. Il est placé là pour éviter les erreurs lorsque que certains agents de transferts complémentent la ligne avec des espaces, plutôt que de tronquer. Je ne sais pas si cela peut toujours se produire à l'heure actuelle mais c'est ce qui est dit dans la référence.
Il faut plutôt chercher les signes «=» non suivis d'un chiffre hexa et supprimer toute la fin de la ligne.
Pourtant des extraits du décodage dans XtractOE sont S = Replace(S, "=" & vbCrLf, "") puis (partiel) For i = &H20 To &H2F S = Replace(S, "=" & Format$(Hex$(i)), Chr$(i)) '32 à 47 Next i
et ce décodage fonctionne assez bien.
Henri
Hello Fred,
Tu as savamment écrit :
Dans : news:e3ruGRskHHA.4900@TK2MSFTNGP05.phx.gbl,
Aski disait :
Hello Fred,
Hello Henri,
Il faut donc commencer à rechercher ce signe suivi d'un retour ligne
et l'éliminer.
Pas exactement. Sinon ce signe serait inutile.
Il est placé là pour éviter les erreurs lorsque que certains agents de
transferts complémentent la ligne avec des espaces, plutôt que de
tronquer.
Je ne sais pas si cela peut toujours se produire à l'heure actuelle
mais c'est ce qui est dit dans la référence.
Il faut plutôt chercher les signes «=» non suivis d'un chiffre hexa et
supprimer toute la fin de la ligne.
Pourtant des extraits du décodage dans XtractOE sont
S = Replace(S, "=" & vbCrLf, "")
puis (partiel)
For i = &H20 To &H2F
S = Replace(S, "=" & Format$(Hex$(i)), Chr$(i)) '32 à 47
Next i
Il faut donc commencer à rechercher ce signe suivi d'un retour ligne et l'éliminer.
Pas exactement. Sinon ce signe serait inutile. Il est placé là pour éviter les erreurs lorsque que certains agents de transferts complémentent la ligne avec des espaces, plutôt que de tronquer. Je ne sais pas si cela peut toujours se produire à l'heure actuelle mais c'est ce qui est dit dans la référence.
Il faut plutôt chercher les signes «=» non suivis d'un chiffre hexa et supprimer toute la fin de la ligne.
Pourtant des extraits du décodage dans XtractOE sont S = Replace(S, "=" & vbCrLf, "") puis (partiel) For i = &H20 To &H2F S = Replace(S, "=" & Format$(Hex$(i)), Chr$(i)) '32 à 47 Next i
