Section courante

A propos

Section administrative du site

En Visual Basic, lorsqu'on reçoit des courriels et qu'on souhaite les lires, il y a très peut de support permettant l'interprétation. Ainsi, il n'existe même pas de fonction permettant la conversion des caractères ISO 8859 à ANSI, lequel est pourtant très répandu sur le Web.

Voici maintenant le code source Visual Basic permet de convertir un caractère ISO 8859 en format ANSI :

  1. Function ISO8859ToAnsi(sText)
  2.  sText = Replace(sText,"=" & vbCRLF,"")
  3.  sText = Replace(sText,"=" & Chr(13),vbCRLF)
  4.  sText = Replace(sText,"=" & Chr(10),vbCRLF)
  5.  sText = Replace(sText,"=09"," ")
  6.  sText = Replace(sText,"=20"," ")
  7.  sText = Replace(sText,"=21","!")
  8.  sText = Replace(sText,"=28","(")
  9.  sText = Replace(sText,"=29",")")
  10.  sText = Replace(sText,"=2E",".")
  11.  sText = Replace(sText,"=3A",":")
  12.  sText = Replace(sText,"=3D","=")
  13.  sText = Replace(sText,"=92","'")
  14.  sText = Replace(sText,"=A0"," ")
  15.  sText = Replace(sText,"=AB","«")
  16.  sText = Replace(sText,"=AE","®")
  17.  sText = Replace(sText,"=BB","»")
  18.  sText = Replace(sText,"=C0","À")
  19.  sText = Replace(sText,"=C7","Ç")
  20.  sText = Replace(sText,"=C9","É")
  21.  sText = Replace(sText,"=CA","Ê")
  22.  sText = Replace(sText,"=CB","Ë")
  23.  sText = Replace(sText,"=CE","Î")
  24.  sText = Replace(sText,"=D4","Ô")
  25.  sText = Replace(sText,"=D6","Ö")
  26.  sText = Replace(sText,"=DB","Û")
  27.  sText = Replace(sText,"=E0","à")
  28.  sText = Replace(sText,"=E2","â")
  29.  sText = Replace(sText,"=E7","ç")
  30.  sText = Replace(sText,"=E8","è")
  31.  sText = Replace(sText,"=E9","é")
  32.  sText = Replace(sText,"=EA","ê")
  33.  sText = Replace(sText,"=EB","ë")
  34.  sText = Replace(sText,"=EE","î")
  35.  sText = Replace(sText,"=F4","ô")
  36.  sText = Replace(sText,"=F6","ö")
  37.  sText = Replace(sText,"=FB","û")
  38.  ISO8859ToAnsi = sText
  39. End Function
  40.  
  41. Sub Main()
  42.  MsgBox ISO8859ToAnsi("Message ayant =E9t=E9 envoy=E9 par courriel")
  43. End Sub

on obtiendra le résultat suivant :

Message ayant été envoyé par courriel

Dernière mise à jour : Lundi, le 19 novembre 2012