Convertir un texte normale en ascii et vis versa

Version imprimable

07/08/2006, 20h01
koKoTis

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 ?
07/08/2006, 20h09
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

?
07/08/2006, 20h12
koKoTis

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

07/08/2006, 20h26
koKoTis

Merci beaucoup :D et on peut agir sur le contenu d'un fichier.txt ?
07/08/2006, 20h36
SfJ5Rpw8

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..?
07/08/2006, 20h50
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.
07/08/2006, 22h51
koKoTis

Et au fait, on peut faire l'inverse ?
08/08/2006, 00h50
koKoTis

ç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) ?
08/08/2006, 05h17
AlainTech

Fichier convertHxdcml.vbs
Ligne 1
Caractère 45
08/08/2006, 23h24
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 ?
09/08/2006, 02h06
koKoTis
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.

09/08/2006, 19h25
koKoTis

Ben je suis tout novice en vbs.

Le code renvoi une erreur:

Citation:

Ligne: 7
Caract: 3
Erreur: Type incompatible: 'Val'
Code: 800A000D
09/08/2006, 19h49
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...
09/08/2006, 21h59
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:

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.
10/08/2006, 08h31
SfJ5Rpw8

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..
10/08/2006, 08h35
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.
10/08/2006, 16h20
koKoTis

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
10/08/2006, 16h22
koKoTis

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
12/08/2006, 22h44
koKoTis

C'est pas de acsii ça ?

94 b8 b8 b0 b3 35 1f 1f ba 9d 96 98 96 92 9c 9f 9b 1d 92 b3 b3 9a 98
12/08/2006, 23h09
SfJ5Rpw8

le code ascii...:

Citation:

jeu de caractères ASCII
Jeu de caractères, codé sur 7 bits, utilisé pour représenter les lettres et les symboles d'un clavier nord-américain standard. Le jeu de caractères ASCII (American Standard Code for Information Interchange) utilise les 128 premiers caractères (de 0 à 127) du jeu de caractères ANSI.

ainsi à chaque caractére correspond un numéro... A et codé 65 ( ou en hexa décimal 41 ...:

Citation:

Envoyé par koKoTis

C'est pas de acsii ça ?
94 b8 b8 b0 b3 35 1f 1f ba 9d 96 98 96 92 9c 9f 9b 1d 92 b3 b3 9a 98

ça c'est une suite de 22 nombres hexadécimaux.. et vu qu'ils sont pour la plus part supérieur à 127 (7F) ... si c'est des codes ascii ... la chaine correspondante est composée de casi exclusivement de caractéres spéciaux...!
14/08/2006, 03h18
koKoTis

OK, merci encore pour ses infos ;)