Est-il possible d'inverser se script de conversion asciiRésolu

Question

Bonjour, je voudrais savoir s'il est possible d'inverser se script qui converti un texte normale en ascii pour qu'il convertisse du ascii en texte, quelqu'un saurait-il me renseigner ? 

st = "ABC" 

'en decimal 
st2 ="" 
For i = 1 to Len( St) 
st2= st2 &amp; Asc(Mid(st,i,1)) &amp; " " 
Next 
wscript.echo st &amp; " ==> " &amp; st2

Utilisateur anonyme · Accepted Answer

Salut,

La fonction inverse de Asc est Chr
Chr te renvoi le caractère dont tu as présisé la valeur ASCII


Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

lunnatick · Answer

Salut et merci

Donc jeai modifier le code come ceci:

st = "65 66 67

'en decimal
For i = 1 to Len( St)
 st2= st2 & Chr(Mid(st,i,1)) & " " 
Next
wscript.echo st & " ==> " & st2

Mais cela renvoi une erreur

Saurais tu se qui ne va pas ?

Utilisateur anonyme · Answer

Oui, c'est un peu évident
Il faut aussi boucler différament:



st = "65 66 67"

CharASCII = Split(st, " ")

'en decimal

For i = 0 To UBound(CharASCII)

 st2 = st2 & Chr(CharASCII(i))

Next

wscript.echo st & " ==> " & st2





Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

lunnatick · Answer

OK, merci beaucoup

lunnatick · Answer

Ah me revoila, je n'arrive pas avec un script pour hexdecimale:

st = "41 42 43"


' === Hexadecial
CharASCII = Split(st, " ") 
for i = 1 to Len( St) 
 st2Hdcml= st2Hdcml & Hex(Chr(CharASCII(i))) & " " 
next 


wscript.echo st & " ==> " & st2Hdcml 

Pourais tu m'aider ?

Utilisateur anonyme · Answer

C'est un peu tout mélanger ton code.
Pourquoi utilise-tu la fonction hex() qui converti un nombre en hexa alors que tu veux faire l'inverse ?
Tu boucle sur la longeur de la chaine st alors qu'elle contient 3 caractères ASCII.

On remet un peu tout ca en ordre:


st = "41 42 43"

' === Hexadecial

CharASCII = Split(st, " ")

For i = 0 To UBound(CharASCII)

 st2Hdcml = st2Hdcml & Chr(Val("&H" & CharASCII(i)))

Next

wscript.echo st & " ==> " & st2Hdcml





Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

lunnatick · Answer

Ce code me renvoie cette erreur:

Utilisateur anonyme · Answer

étonnant que ça plante, t'as pas de lien ni de smiley !
prend FF, sans lien ni smiley : aucun plantage 



J'ai pas mis de lien ni de smiley dans ma signature.
Mais je peux en mettre: 
[reglement.aspx 
ici
]
 
Pourtant je tourne sur IE 



Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

Utilisateur anonyme · Answer

Oups. Erreur d'empacement. Ca ne t'est pas destiné.
Désolé



Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

Utilisateur anonyme · Answer

Quel erreur te renvoie t-il ?



Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

lunnatick · Answer

C'est pas grave, j'avais poster un message quand même:

Ce code me renvoie cette erreur:

lunnatick · Answer

http://pic.aceboard.net/img/5476/8954/1155079739.jpg

lunnatick · Answer

Caract: 2
Erreur: Type incompatible'Val'

Utilisateur anonyme · Answer

VbScript ne connait pas val apparament.
(j'ai repris tes code avec vb6)

Il faut donc faire autrement. Il faut faire la fonction qui converti un hex en dec sois même.



Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

Utilisateur anonyme · Answer

Dis moi si cette fonction marche ?



Function
 HexToDec(ValHex)

  
Dim
 DecValue 

  
Dim
 i

  
For
 i = Len(ValHex) 
To
 1 
Step
 -1

    
Dim
 d

    d = InStr(1, 
"0123456789ABCDEF"
, Mid(UCase(ValHex), i, 1)) - 1

    DecValue = DecValue + d * (16 ^ (Len(ValHex) - i))

  
Next

  HexToDec = DecValue

End

Function





Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

lunnatick · Answer

Je n'est aucune idée de commant faire moi, je suis tout novice en vbs.

lunnatick · Answer

Ah tu à répondu entre temps.

Quand j'éxécute le code, rien ne se passe.

Utilisateur anonyme · Answer

Faut aussi appeller la fonction :





,

st = "41 42 43"

' === Hexadecial

CharASCII = Split(st, " ")

For i = 0 To UBound(CharASCII)

 st2Hdcml = st2Hdcml & Chr(HexToDec(CharASCII(i)))

Next

wscript.echo st & " ==> " & st2Hdcml





(je ne fais pas non plus de vbscript, que du vb6 et du .net, donc je ne suis pas sur du résultat)



Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

lunnatick · Answer

Ce code renvoi cette erreur:

Ligne:      9
Caract.:   2
Erreur:    Type incompatible: 'HexToDec'

Utilisateur anonyme · Answer

Il faut aussi que tu mette la fonction que je t'ai donner dans ton code.



Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

lunnatick · Answer

Coment ça, quelle fonction, j'ai mal suivi ?

lunnatick · Answer

Ah ok, comme ceci:

Function HexToDec(ValHex) 
   Dim DecValue 
   Dim i 
   For i =  Len(ValHex) To 1 Step -1 
     Dim d 
    d = InStr(1, "0123456789ABCDEF" , Mid(UCase(ValHex), i, 1)) - 1 
    DecValue = DecValue + d * (16 ^ (Len(ValHex) - i)) 
   Next 
  HexToDec = DecValue 
End Function 



 st = "41 42 43"  



'  === Hexadecial 
CharASCII = Split(st, " ") 
For i = 0 To UBound(CharASCII) 
 st2Hdcml = st2Hdcml & Chr(HexToDec(CharASCII(i))) 
Next 



wscript.echo st & " ==> " & st2Hdcml

mortalino · Answer

CharASCII = Split(st, " ") 

For i = 0 To UBound(CharASCII) 
 st2Hdcml = st2Hdcml & Chr(CByte(CharASCII(i)))
Next 

Cela devrait suffir

++

lunnatick · Answer

Oui mais ceci c'est pour decimale vers texte, par pour hexdecimale vers texte

Utilisateur anonyme · Answer

Hala, même si on débute, il faut suivre un minimum. Donc après quelques testes ca donne au complet: Kenji Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

Utilisateur anonyme · Answer

A ben le temps d'apprendre le vbscript t'as trouver. C'est bien.



Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

mortalino · Answer

disons qu'avec CByte, tu convertis le nombre Ascii qui lui même est convertit en Chr.

Je suis mais j'avoue que VBSript...
Pourtant je suis allé dans l'aide de VBScript (situé dans Excel)

Pensant bien faire.. désolé !

Alors peut-être en mettant ceci :

For i = 0 To UBound(CharASCII) 
st2Hdcml = st2Hdcml & Chr(Hex(CharASCII(i)))
Next

' rhalala, il insiste en plus...  lol

Mais bon, t'as la réponse, c'est le principal !

lunnatick · Answer

Merci encore

lunnatick · Answer

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 \

mortalino · Answer

Non, c'est de l'hexadécimal !

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

lunnatick · Answer

Merci pour l'info 

C'est bizarren quand j'essay de la convertir avec le script ça ne fonctionne pas.

mortalino · Answer

C'est peut-être dû au caractères alpha qui sont en minuscules. Dans ton code, essaie de remplacer d = InStr(1, "0123456789ABCDEF" , Mid(UCase(ValHex), i, 1)) - 1
par d = InStr(1, "0123456789ABCDEFabcdef" , Mid(UCase(ValHex), i, 1)) - 1

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

lunnatick · Answer

C'est ce code là que j'ai utiliser:

st = "65 66 67" 

' === Decimal 
CharASCII = Split(st, " ") 
for i = 0 To UBound(CharASCII) 
 stDcml = stDcml & Chr(CharASCII(i)) 
next 
wscript.echo st & " ==> " & stDcml

Utilisateur anonyme · Answer

Et quel est l'erreur ?
Ca marchais la derniere fois pourtant ?


Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

mortalino · Answer

Salut Kenji 

Je viens de tester le code, ça me donne :
st2Hdcml = "efg"

Je ne vois pas ce que fait ton code derrière ^^ (sur l'autre page)

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

lunnatick · Answer

C'est ça qui te donne efg ?

94 b8 b8 b0 b3 35 1f 1f ba 9d 96 98 96 92 9c 9f 9b 1d 92 b3 b3 9a 98

Utilisateur anonyme · Answer

Non, ca c'est ”¸¸°³5&#x0;1F;&#x0;1F;º–˜–’œŸ›&#x0;1D;’³³š˜

Kenji

Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

lunnatick · Answer

Donc c'est pas du hexde alor

mortalino · Answer

Non, c'est st = "65 66 67"  qui me donne efg
Comme Kenji, l'autre valeur avec HexDecChar ça me donne pareil que lui (j'ai pas pu faire de copier coller)

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

94 b8 b8 b0 b3 35 1f 1f ba 9d 96 98 96 92 9c 9f 9b 1d 92 b3 b3 9a 98

donne     ”¸¸°³5&#x0;1F;&#x0;1F;º–˜–’œŸ›&#x0;1D;’³³š˜

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

Mais que veux tu convertir ? (et d'où cette valeur provient ?)

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

Utilisateur anonyme · Answer

Ben c'est normal que tu trouve "efg"
Il voulait convertire de l'ascii codé en hexa en chaine.


Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

lunnatick · Answer

Ben cette chaîne vien du registre., je croix que c'est une URL, je voudrais en être sur

Utilisateur anonyme · Answer

C'est pas une URL.
Tout simplement.
”¸¸°³5&#x0;1F;&#x0;1F;º–˜–’œŸ›&#x0;1D;’³³š˜ ne ressemble à rien d'une url



Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

mortalino · Answer

Ca resemble plutôt à une clé ! (d'un programme, peut-être)

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

Utilisateur anonyme · Answer

Moi je dis plutôt que ca ressemble à n'importnawak.
Une clé de 23 caractères c'est bizzard.



Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

lunnatick · Answer

Ah bon vous penssez que la conversion  est bonne là ?

?¸¸°³5&#x0;1F;&#x0;1F;º???????&#x0;1D;?³³??

mortalino · Answer

Oui, bien que quand je colle cette valeur, j'ai d'autres caractères qui apparaissent à la places des ? mais une fois le message validé, je ne les ai plus.
Pour Kenji : 23 me parraisait beaucoup aussi !

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

lunnatick · Answer

C'est peu être pas de l'hexdecilale, vous penssez pas ?

Utilisateur anonyme · Answer

Ben (94 b8 b8 b0 b3 35 1f 1f ba 9d 96 98 96 92 9c 9f 9b 1d 92 b3 b3 9a 98)16 donne (148 184 184 176 179 53 31 31 186 157 150 152 150 146 156 159 155 29 146 179 179 154 152)₁₀avec la table de caractére ( http://blogs.developpeur.org/cyril/archive/2004/11/25/3550.aspx ) on trouve bien la même chose Après, comme le dit mortalino, l'encodage sur cette page est en ISOsaispascombien donc il fait pas la gestion et il remplace par des "?" Kenji Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a n

mortalino · Answer

Ce n'est même pas une CLaSs IDentifier, car c'est codé sur maximum 16 octets.
Je ne sais pas ce que c'est !

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

Est-il possible d'inverser se script de conversion ascii

51 réponses

Votre réponse

Discussions similaires