Discussion :

[hackoofr]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[hackoofr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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
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 :

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 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