visionmercer/qb64-include
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Create urldecode.bm

Browse source
This commit is contained in:
visionmercer 2022-05-21 08:20:05 +02:00 • committed by GitHub
commit cf16af6373
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
urldecode.bm Normal file
View file

@ -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