Create urldecode.bm

2022-05-21 08:20:05 +02:00 · 2022-05-21 08:20:05 +02:00 · cf16af6373
commit cf16af6373
parent aeaaf6661d
1 changed files with 16 additions and 0 deletions
--- a/urldecode.bm
+++ b/urldecode.bm
@ -0,0 +1,16 @@
+Function urldecode$ (strng As String)
+    Dim Tmpstr As String
+    Do Until count >= Len(strng)
+        count = count + 1
+        Select Case Mid$(strng, count, 1)
+            Case "%"
+                Tmpstr = Tmpstr + Chr$(Val("&H" + Mid$(strng, count + 1, 2)))
+                count = count + 2
+            Case "+"
+                Tmpstr = Tmpstr + " "
+            Case Else
+                Tmpstr = Tmpstr + Mid$(strng, count, 1)
+        End Select
+    Loop
+    urldecode = Tmpstr
+End Function