test encodings | C# Online Compiler

test encodings by Maslow

open System
open System.Web
// https://www.ietf.org/rfc/rfc2396.txt

let testStrings = [ 
    "http://test# space 123/text?var=val&another=two"
    "http://www.google.com/helloworld?var=value#abcdefg=hello world"
    "http://example.org/foo/bar;param?query#frag"
    "http://www.permadi.com/tutorial/urlEncoding/example.html?var=This is a simple & short test."
    """http://www.permadi.com/tutorial/urlEncoding/example.html?var=$ & < > ? ; # : = , " ' ~ + %""" (* hack fix the syntax highlighter """ " """ *) // dotnet fiddle hates triple quotes =( 
    
    ]
let printvalue a (b:string) =
    let bad = b.Contains(" ") // TODO: add more validation
    let display = if bad then "invalid" else ""
    printfn "\t%-20s%-10s%20s" a display b
for t in testStrings do
    printfn "%s ->" t
    printvalue "UrlEncode" (HttpUtility.UrlEncode t)
    printvalue "EscapeUriString" (Uri.EscapeUriString t)
    printvalue "EscapeDataString" (Uri.EscapeDataString t)
    printvalue "EscapeDataReplace" (Uri.EscapeDataString t |> (fun e-> e.Replace("%20","+")))
    printvalue "HtmlEncode" (HttpUtility.HtmlEncode t)
    printvalue "UrlPathEncode" (HttpUtility.UrlPathEncode t)
    printfn ""

​x
 
open System
open System.Web
// https://www.ietf.org/rfc/rfc2396.txt
​
let testStrings = [ 
    "http://test# space 123/text?var=val&another=two"
    "http://www.google.com/helloworld?var=value#abcdefg=hello world"
    "http://example.org/foo/bar;param?query#frag"
    "http://www.permadi.com/tutorial/urlEncoding/example.html?var=This is a simple & short test."
    """http://www.permadi.com/tutorial/urlEncoding/example.html?var=$ & < > ? ; # : = , " ' ~ + %""" (* hack fix the syntax highlighter """ " """ *) // dotnet fiddle hates triple quotes =( 
    
    ]
let printvalue a (b:string) =
    let bad = b.Contains(" ") // TODO: add more validation
    let display = if bad then "invalid" else ""
    printfn "\t%-20s%-10s%20s" a display b
for t in testStrings do
    printfn "%s ->" t
    printvalue "UrlEncode" (HttpUtility.UrlEncode t)
    printvalue "EscapeUriString" (Uri.EscapeUriString t)
    printvalue "EscapeDataString" (Uri.EscapeDataString t)
    printvalue "EscapeDataReplace" (Uri.EscapeDataString t |> (fun e-> e.Replace("%20","+")))
    printvalue "HtmlEncode" (HttpUtility.HtmlEncode t)
    printvalue "UrlPathEncode" (HttpUtility.UrlPathEncode t)
    printfn ""
​

http://test# space 123/text?var=val&another=two ->
    UrlEncode                     http%3a%2f%2ftest%23+space+123%2ftext%3fvar%3dval%26another%3dtwo
    EscapeUriString               http://test#%20space%20123/text?var=val&another=two
    EscapeDataString              http%3A%2F%2Ftest%23%20space%20123%2Ftext%3Fvar%3Dval%26another%3Dtwo
    EscapeDataReplace             http%3A%2F%2Ftest%23+space+123%2Ftext%3Fvar%3Dval%26another%3Dtwo
    HtmlEncode          invalid   http://test# space 123/text?var=val&another=two
    UrlPathEncode                 http://test#%20space%20123/text?var=val&another=two

http://www.google.com/helloworld?var=value#abcdefg=hello world ->
    UrlEncode                     http%3a%2f%2fwww.google.com%2fhelloworld%3fvar%3dvalue%23abcdefg%3dhello+world
    EscapeUriString               http://www.google.com/helloworld?var=value#abcdefg=hello%20world
    EscapeDataString              http%3A%2F%2Fwww.google.com%2Fhelloworld%3Fvar%3Dvalue%23abcdefg%3Dhello%20world
    EscapeDataReplace             http%3A%2F%2Fwww.google.com%2Fhelloworld%3Fvar%3Dvalue%23abcdefg%3Dhello+world
    HtmlEncode          invalid   http://www.google.com/helloworld?var=value#abcdefg=hello world
    UrlPathEncode       invalid   http://www.google.com/helloworld?var=value#abcdefg=hello world

http://example.org/foo/bar;param?query#frag ->
    UrlEncode                     http%3a%2f%2fexample.org%2ffoo%2fbar%3bparam%3fquery%23frag
    EscapeUriString               http://example.org/foo/bar;param?query#frag
    EscapeDataString              http%3A%2F%2Fexample.org%2Ffoo%2Fbar%3Bparam%3Fquery%23frag
    EscapeDataReplace             http%3A%2F%2Fexample.org%2Ffoo%2Fbar%3Bparam%3Fquery%23frag
    HtmlEncode                    http://example.org/foo/bar;param?query#frag
    UrlPathEncode                 http://example.org/foo/bar;param?query#frag

http://www.permadi.com/tutorial/urlEncoding/example.html?var=This is a simple & short test. ->
    UrlEncode                     http%3a%2f%2fwww.permadi.com%2ftutorial%2furlEncoding%2fexample.html%3fvar%3dThis+is+a+simple+%26+short+test.
    EscapeUriString               http://www.permadi.com/tutorial/urlEncoding/example.html?var=This%20is%20a%20simple%20&%20short%20test.
    EscapeDataString              http%3A%2F%2Fwww.permadi.com%2Ftutorial%2FurlEncoding%2Fexample.html%3Fvar%3DThis%20is%20a%20simple%20%26%20short%20test.
    EscapeDataReplace             http%3A%2F%2Fwww.permadi.com%2Ftutorial%2FurlEncoding%2Fexample.html%3Fvar%3DThis+is+a+simple+%26+short+test.
    HtmlEncode          invalid   http://www.permadi.com/tutorial/urlEncoding/example.html?var=This is a simple & short test.
    UrlPathEncode       invalid   http://www.permadi.com/tutorial/urlEncoding/example.html?var=This is a simple & short test.

http://www.permadi.com/tutorial/urlEncoding/example.html?var=$ & < > ? ; # : = , " ' ~ + % ->
    UrlEncode                     http%3a%2f%2fwww.permadi.com%2ftutorial%2furlEncoding%2fexample.html%3fvar%3d%24+%26+%3c+%3e+%3f+%3b+%23+%3a+%3d+%2c+%22+%27+%7e+%2b+%25
    EscapeUriString               http://www.permadi.com/tutorial/urlEncoding/example.html?var=$%20&%20%3C%20%3E%20?%20;%20#%20:%20=%20,%20%22%20'%20~%20+%20%25
    EscapeDataString              http%3A%2F%2Fwww.permadi.com%2Ftutorial%2FurlEncoding%2Fexample.html%3Fvar%3D%24%20%26%20%3C%20%3E%20%3F%20%3B%20%23%20%3A%20%3D%20%2C%20%22%20%27%20~%20%2B%20%25
    EscapeDataReplace             http%3A%2F%2Fwww.permadi.com%2Ftutorial%2FurlEncoding%2Fexample.html%3Fvar%3D%24+%26+%3C+%3E+%3F+%3B+%23+%3A+%3D+%2C+%22+%27+~+%2B+%25
    HtmlEncode          invalid   http://www.permadi.com/tutorial/urlEncoding/example.html?var=$ & < > ? ; # : = , " ' ~ + %
    UrlPathEncode       invalid   http://www.permadi.com/tutorial/urlEncoding/example.html?var=$ & < > ? ; # : = , " ' ~ + %

Cached Result
Last Run:	3:25:20 pm
Compile:	4.137s
Execute:	0.061s
Memory:	284kb
CPU:	0.109s

View IL Code