Convertir un texte normale en ascii et vis versa

**koKoTis** · 07/08/2006, 20h01

Bonjour, j'ai besoin d'un script VBS pour convertir un texte normale (c'est-à-dire en langage humain) vers le format ascii et vis versa.
Y-a-t-il un furomeur ici qui puisse m'aider ?

**SfJ5Rpw8** · 07/08/2006, 20h09

tu ve quoi un les codes ascii composant le texte exemple
pour
Texte : ABC
Code Ascii decimal : 65 66 67
Code Ascii Hexadécimal.. : 41 42 43

?

**koKoTis** · 07/08/2006, 20h12

Ah oui désolén c'est Ascii decimal et Ascii Hexad

**SfJ5Rpw8** · 07/08/2006, 20h19

la fonction asc, permet de retrouver le code ascii d'un caractére..;

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
16
17
18
19
 
Dim st ' As string
Dim st2 ' As string 
Dim i ' As integer 
st = "ABC"
 
'en decimal
st2 =""
For i = 1 to Len( St)
 st2= st2 & Asc(Mid(st,i,1)) & " " 
Next
wscript.echo st & " ==> " & st2
 
'en Hexadecimal
st2 =""
For i = 1 to Len( St)
 st2= st2 &  Hex(Asc(Mid(st,i,1))) & " " 
Next
wscript.echo st & " ==> " & st2