Escape / unescape

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 303 fois - Téléchargée 58 fois

Contenu du snippet

permet de retrouver les fonctions javascript escape() et unescape()

Source / Exemple :


Public Function Unescape(ByVal str As String) As String
out = ""
If Len(str) > 0 Then
 str = Replace(str, "+", " ")
 I = 1
 Do While I <= Len(str)
    If Mid(str, I, 1) = "%" Then
     Cod = Mid(str, I + 1, 2)
     If Len(Cod) = 2 Then
        out = out & Chr(CInt("&H" & Cod))
        I = I + 3
     Else
        out = out & Mid(str, I, 1)
        I = I + 1
     End If
    Else
     out = out & Mid(str, I, 1)
     I = I + 1
    End If
 Loop
End If
Unescape = out
End Function

Public Function Escape(ByVal str As String) As String
strNocode = "*+-./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz"
out = ""
If Len(str) > 0 Then
 str = Replace(str, " ", "+")
 For I = 1 To Len(str)
  Car = Mid(str, I, 1)
  If InStr(strNocode, Car) Then
    out = out & Car
  Else
    out = out & "%" & Hex(Asc(Car))
  End If
 Next I
End If
Escape = out
End Function

A voir également

Ajouter un commentaire

Commentaires

cs_yacc
Messages postés
4
Date d'inscription
mercredi 1 novembre 2000
Statut
Membre
Dernière intervention
3 août 2007
-
Bonjour,
Il existe dans vbscript.dll disponible dans XP les fonctions escape() et unescape(). Mon problème est que je n'arrive pas à les mettre en oeuvre à partir de VB6. Elles sont associées à un objet global GLobalObj que je n'arrive pas à instancier en VB6.
Cordialement
erreurs404
Messages postés
117
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009
-
Pourquoi, alors, ne pas utiliser mes fonctions ?
fab421
Messages postés
8
Date d'inscription
mercredi 18 juin 2008
Statut
Membre
Dernière intervention
23 septembre 2010
-
Bonjour,
Ta fonction ne pose-t-elle pas un problème si la string d'origine contient des '+' ? A vue de nez je pense qu'ils doivent disparaître de la chaine reconstituée.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.