Alternativ til Val-function

Hei

Jeg skal gjøre om setninger hvor mellomrom er byttet ut med %20. F.eks "Dette%20er%20en%20setning" til "Dette er en setning".
Jeg har funnet en funksjon som gjør dette.


Function URLPathDecode(Text)

  Dim i
 
  URLPathDecode = Text
  i = InStr(Text, "%")
 
  Do While i
 
    URLPathDecode _
      = Left(URLPathDecode, i - 1) _
      & Chr(Val("&H" & Mid(URLPathDecode, i + 1, 2))) _
      & Mid(URLPathDecode, i + 3)
    i = InStr(i + 1, URLPathDecode, "%")
 
  Loop

End Function

Problemet med denne funksjonen er at Val()-funksjonen ikke er støttet i VB-script.

I mitt tilfelle vil Val()-funksjonen gjøre om taller 20 (fra %20 og hvor 20 er et Hex-tall) til tallet 32 som skal brukes i chr()-funksjonen som gir ANSI-tegnet &#32 som er space-tegnet.

Er det noen som kan hjelpe meg med å få konvertert Hex-tallet 20 til "vanlig"-tallet 32?


//andersjo