lunnatick
Messages postés175Date d'inscriptionlundi 9 mai 2005StatutMembreDernière intervention28 octobre 2013
-
8 août 2006 à 23:43
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
13 août 2006 à 00:02
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 & Asc(Mid(st,i,1)) & " "
Next
wscript.echo st & " ==> " & st2
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
Hala, même si on débute, il faut suivre un minimum.
Donc après quelques testes ca donne au complet:
<script type="text/vbscript">
function HexToDec(ValHex)
dim decvalue
dim i
dim d
for i = len(ValHex) to 1 step -1
d = instr("0123456789ABCDEF", ucase(mid(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
document.write(st & " ==> " & st2Hdcml)
</script>
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
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
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 12 août 2006 à 23:18
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"
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
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
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 12 août 2006 à 23:39
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"