Section courante

A propos

Section administrative du site

En Visual Basic .NET (VB .Net), 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 .NET (VB .NET) permet de convertir un caractère ISO 8859 en format ANSI :

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

on obtiendra le résultat suivant :

Message ayant été envoyé par courriel

Dernière mise à jour : Samedi, le 22 octobre 2016