Discussion :

[koKoTis]

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]

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]

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

[SfJ5Rpw8]

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

[koKoTis]

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

[SfJ5Rpw8]

Merci beaucoup 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..?

[koKoTis]

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.

[koKoTis]

Et au fait, on peut faire l'inverse ?

[koKoTis]

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

Code :

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

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

[AlainTech]

Fichier convertHxdcml.vbs
Ligne 1
Caractère 45

[koKoTis]

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 ?

[koKoTis]

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

Code :

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

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

[AlainTech]

Difficile???

Code :

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

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.

[koKoTis]

Ben je suis tout novice en vbs.

Le code renvoi une erreur:

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

[SfJ5Rpw8]

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

[koKoTis]

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 :

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

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.

[SfJ5Rpw8]

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

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

[AlainTech]

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

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

Code :

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

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

Fonctionne.

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

[koKoTis]

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.

.. je comprends pas..

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

[koKoTis]

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

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

Code :

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

  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