Convertit une chaîne en UTF-8

J'ai une chaîne assignée à la variable qui est encodé en ansi, par exemple str = "Пирг"
Comment puis-je encoder en UTF-8?

Voir aussi cette nouvelle question.

OriginalL'auteur user2136786 | 2013-03-05

  1. 2

    Vous dire lors de l'écriture dans un fichier? Comme ceci:

    Set stream = CreateObject("ADODB.Stream")
stream.Open
stream.Type     = 2 'text
stream.Position = 0
stream.Charset  = "utf-8"
stream.WriteText str
stream.SaveToFile filename, 2
stream.Close

    Edit: Si vous voulez la chaîne UTF-8 pour aller dans une autre variable que vous pourriez faire comme ceci:

    Set stream = CreateObject("ADODB.Stream")
stream.Open
stream.Type     = 2 'text
stream.Position = 0
stream.Charset  = "utf-8"
stream.WriteText str
stream.Flush
stream.Position = 0
stream.Type     = 1 'binary
stream.Read(3)      'skip BOM
utfStr = stream.Read
stream.Close
    Non, je ne veux pas écrire dans un fichier. Je suis de passage à cette variable d'URL au serveur qui accepte seulement codé en utf-8 cordes. Par exemple, si je urlencode la chaîne, ou de l'utilisation Escape() fonction, le serveur renvoie une fausse qualité.

    OriginalL'auteur Ansgar Wiechers