Escape your strings so you can pass them through a URL. Plays nicely with the tweet button code posted elsewhere on these forums.
'Summary: Transforms a string to fit inside a URL.
Function UriEscape:String(input:String, spacesToo:Bool = False)
If spacesToo Then input = input.Replace(" ", "%20")
input = input.Replace("<", "%3C")
input = input.Replace(">", "%3E")
input = input.Replace("#","%23")
input = input.Replace("%","%25")
input = input.Replace("{","%7B")
input = input.Replace("}","%7D")
input = input.Replace("|","%7C")
input = input.Replace("\","%5C")
input = input.Replace("^","%5E")
input = input.Replace("~~", "%7E") 'Escape char is unescaped then escaped again
input = input.Replace("[","%5B")
input = input.Replace("]","%5D")
input = input.Replace("`","%60")
input = input.Replace(";","%3B")
input = input.Replace("/","%2F")
input = input.Replace("?","%3F")
input = input.Replace(":","%3A")
input = input.Replace("@","%40")
input = input.Replace("=","%3D")
input = input.Replace("&","%26")
input = input.Replace("$","%24")
Return input
End Function
|