Convertir un texte normale en ascii et vis versa

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 ?

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

?

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

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

Code:

---

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

---

Merci beaucoup :D et on peut agir sur le contenu d'un fichier.txt ?

Citation:

---

Envoyé par koKoTis

Merci beaucoup :D et on peut agir sur le contenu d'un fichier.txt ?

---

la je vois pas bien le but...? il n'y aurai pas une méprise sur ce que tu ve faire..?

Non, c'est parce qu'il y a des clés dans le registre qui réfférence des cehmins de répertoire en ascii que je veut modifier, donc il faut dabords que je convertisse ses chemins en ascii, ça m'éviterat de faire les chemins un par un avec la variable.

Et au fait, on peut faire l'inverse ?

ça bug sur certains caractères, dans ce cas je reçois ce message d'erreur:

Code:

---

convertHxdcml.vbs(1, 45) Erreur de compilation Microsoft VBScript: Caractère incorrect

---

Y a pas un lexique pour savoir quel caractère représente le numéro (1, 45) ?

Fichier convertHxdcml.vbs
Ligne 1
Caractère 45

Ok, donc certains caractére comme % ~ ne peuvent être convertir en hexdecimale.

Il n'y a pas moyen de faire la conversion en sens inverse ?

OK, donc on m'a donner la solution pour convertir une valeur ascii decimale vers texte:

Code:

---

1 2 3 4 5 6 7 8

st = "65 66 67"   ' === Decimal CharASCII = Split(st, " ") for i = 0 To UBound(CharASCII) stDcml = stDcml & Chr(CharASCII(i)) next wscript.echo st & " ==> " & stDcml

---

Mais pour convertit ascii hexdecimale vers texte c'est plus compliquer.

Quelqu'un pourait-il m'aider

Difficile???

Code:

---

1 2 3 4 5 6 7 8

st = "41 42 43" ' === Hexa CharASCII = Split(st, " ") For i = 0 To UBound(CharASCII) stDcml = stDcml & Chr("&H" & CharASCII(i)) Next wscript.echo st & " ==> " & stDcml

---

Edit --> Supprimé le Val() non reconnu en VBS.

Ben je suis tout novice en vbs.

Le code renvoi une erreur:

Citation:

---

Ligne: 7
Caract: 3
Erreur: Type incompatible: 'Val'
Code: 800A000D

---

déjà montre nous une de tes chaînes en hexa et son équivalent en décimal... histoire d'être sur de partir dans bonne direction...

Salut, tu veux dire une des chaîne que je souhaite convertir ?

Et au fait, tu q vu que j'ai dit qu'on va donné la solution pour convertir ascii decmale vers texte:

Code:

---

1 2 3 4 5 6 7 8

st = "65 66 67"   ' === Decimal CharASCII = Split(st, " ") for i = 0 To UBound(CharASCII) stDcml = stDcml & Chr(CharASCII(i)) next wscript.echo st & " ==> " & stDcml

---

C'est pour hexdécimale vers texte qu'il me manque.

Citation:

---

Envoyé par koKoTis

Salut, tu veux dire une des chaîne que je souhaite convertir ?

---

oui, voir l'allure de tes chaines en hexa et ascii.. , en hexa il y as bien un espace entre chaque caractéres ..? en ascii tous les caractéres sont accollés..?

Citation:

---

Envoyé par koKoTis

Et au fait, tu q vu que j'ai dit qu'on va donné la solution pour convertir ascii decmale vers texte:

---

.. je comprends pas..

Désolé, j'avais testé en VBA.

VBS fait le transtypage de lui-même, donc:

Code:

---

stDcml = stDcml & Chr("&H" & CharASCII(i))

---

Fonctionne.

Je modifie le code dans mon message précédent.

Citation:

---

Envoyé par bbil

oui, voir l'allure de tes chaines en hexa et ascii.. , en hexa il y as bien un espace entre chaque caractéres ..? en ascii tous les caractéres sont accollés..?

---

Ben cehz moi le hexédcimale et le décimale contienne toujours des espace, pour l'exemple, il faut que je retrouve la clé registre hexde donc je voulais modifier la valeurn j'ai perdu le reg.

Citation:

---

Envoyé par bbil

.. je comprends pas..

---

Je disais, tu as vu ce message ? http://www.developpez.net/forums/sho...1&postcount=12

Citation:

---

Envoyé par AlainTech

Désolé, j'avais testé en VBA.

VBS fait le transtypage de lui-même, donc:

Code:

---

stDcml = stDcml & Chr("&H" & CharASCII(i))

---

Fonctionne.

Je modifie le code dans mon message précédent.

---

OK, merci beaucoup, ça fonctionne parfaitement bien maintenant :D