lunnatick
Messages postés175Date d'inscriptionlundi 9 mai 2005StatutMembreDernière intervention28 octobre 2013
-
8 août 2006 à 23:43
mortalino -
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
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
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
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
(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
Vous n’avez pas trouvé la réponse que vous recherchez ?
lunnatick
Messages postés175Date d'inscriptionlundi 9 mai 2005StatutMembreDernière intervention28 octobre 2013 9 août 2006 à 02:09
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
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.
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
é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
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
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
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