Comment transformer les caractéres en Unicode et vice versa ?

Version imprimable

:salut:
J'ai ce Vbscript qui transforme les caractéres en code ANSI.
je veux faire la même chose mais en le transformant en Unicode (Caractéres Arabes) et vice versa !
Est-ce-qu'il y a une fonction qui peut faire cette transformation ? j'ai aucune idée à ce sujet :koi:
:merci: de votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim i,x,a i = InputBox("Entrer un caractére ou une phrase pour obtenir son Code ANSI Correspondant !") If i <> "" Then For x = 1 To Len(i) If x <> Len(i) Then a = a & "Chr(" & Asc(Mid(i,x,1)) & ")" & "&" Else a = a & "Chr(" & Asc(Mid(i,x,1)) & ")" End if Next Inputbox "Le Code ANSI Correspondant pour " & qq(i) & " est:",,a End If Function qq(strIn) qq = Chr(34) & strIn & Chr(34) End Function

Bonjour,

Je ne sais pas si ça peut aider, mais il y a peut-être une piste à suivre en passant par des fichiers textes :

Code:

1
2
3
4
5
Const FOR_READING = 1, FOR_WRITING = 2, BOOL_CREATION = True, BOOL_TRISTATETRUE = -1, BOOL_NO_CREATION = False
strIn = InputBox("Entrer un caractére ou une phrase pour obtenir son Code ANSI Correspondant !")
Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.OpenTextFile("c:\testfile.txt", FOR_WRITING, BOOL_CREATION, BOOL_TRISTATETRUE).Write strIn
WScript.Echo objFso.OpenTextFile("c:\testfile.txt", FOR_READING, BOOL_NO_CREATION, BOOL_TRISTATETRUE).ReadAll

Bonne continuation.

Citation:
Envoyé par pitchalov
Bonjour,
Je ne sais pas si ça peut aider, mais il y a peut-être une piste à suivre en passant par des fichiers textes :
Code:

1 2 3 4 5 Const FOR_READING = 1, FOR_WRITING = 2, BOOL_CREATION = True, BOOL_TRISTATETRUE = -1, BOOL_NO_CREATION = False strIn = InputBox("Entrer un caractére ou une phrase pour obtenir son Code ANSI Correspondant !") Set objFso = CreateObject("Scripting.FileSystemObject") objFso.OpenTextFile("c:\testfile.txt", FOR_WRITING, BOOL_CREATION, BOOL_TRISTATETRUE).Write strIn WScript.Echo objFso.OpenTextFile("c:\testfile.txt", FOR_READING, BOOL_NO_CREATION, BOOL_TRISTATETRUE).ReadAll
Bonne continuation.
:merci: bien pitchalov pour ce code car il est trés interéssant de manipuler ce probléme avec les fichiers aussi et je vous donne +1 :ccool: :mouarf:
Ce que j'ai remarqué aussi c'est que la fonction InputBox accepte bien les caractéres Unicode et ils m'ont suggérer d'utiliser ces deux fonctions ChrW(), AscW() au lieu de Chr(), Asc() dans un autre forum anglais et le code alors devient comme ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim i,x,a i = InputBox("Entrer un caractére ou une phrase pour obtenir son Code Unicode Correspondant !") If i <> "" Then For x = 1 To Len(i) If x <> Len(i) Then a = a & "ChrW(" & AscW(Mid(i,x,1)) & ")" & "&" Else a = a & "ChrW(" & AscW(Mid(i,x,1)) & ")" End if Next Inputbox "Le Code Unicode Correspondant pour " & qq(i) & " est:",,a End If Function qq(strIn) qq = Chr(34) & strIn & Chr(34) End Function
Donc Probléme est :resolu: :mouarf: :ccool: