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
de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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