URL class in LotusScript

I often want to parse URL Strings in my LotusScript agents, and I am using my home-brewed URL class to extract information like protocol, host, port, query, arguments etc. It can be used like this:

Dim url As New URL( _

”http://user:pwd@host.se:80/file.html?arg=value#ref”)

Print ”url: ” + url.toString()

Print ”protocol: ” + url.getProtocol()

Print ”host: ” + url.getHost()

Print ”port: ” + url.getPort()

Print ”username: ” + url.getUserName()

Print ”password: ” + url.getPassword()

Print ”file: ” + url.getFile()

Print ”path: ” + url.getPath()

Print ”query: ” + url.getQuery()

Print ”reference: ” + url.getReference()

Print ”value: ” + url.getArgumentValue(”arg”)

For the code markup, I used Textpad 4.6.2 with the LotusScript syntax file.