How to convert urls and emails in text file to html?

[MARTIN LANNY]

Hi All,

In my program I am loading the content of a text file (main.txt) into a
string called 'message'.

What I need is to convert all urls and emails in this string into html.

This is what I did to convert hard returns to <br>'s and it works fine:

Dim sws As New IO.StreamWriter(pathtosave)
sws.WriteLine(message.Replace(Chr(13), "<br>"))

So hard returns were easy, but how to do it in case of urls and emails?

So, that in case of url it should change "www.test.com" to "<a
href="http://www.test.com">www.test.com</a>" and in case of email it
should change something like "te**@test.com" to "<a
href="mailto:te**@test.com">te**@test.com</a>"

Can someone help me out?

Martin

[Cor Ligthert [MVP]]

Martin,

It is the urlencode.

By example this in the to
sTo = UrlEncode (sTo)

http://msdn.microsoft.com/library/de...ncodetopic.asp

I hope this helps,

Cor

"MARTIN LANNY" <ma**********@gmail.com> schreef in bericht
news:11**********************@z14g2000cwz.googlegr oups.com...

Hi All,

In my program I am loading the content of a text file (main.txt) into a
string called 'message'.

What I need is to convert all urls and emails in this string into html.

This is what I did to convert hard returns to <br>'s and it works fine:

Dim sws As New IO.StreamWriter(pathtosave)
sws.WriteLine(message.Replace(Chr(13), "<br>"))

So hard returns were easy, but how to do it in case of urls and emails?

So, that in case of url it should change "www.test.com" to "<a
href="http://www.test.com">www.test.com</a>" and in case of email it
should change something like "te**@test.com" to "<a
href="mailto:te**@test.com">te**@test.com</a>"

Can someone help me out?

Martin

[Herfried K. Wagner [MVP]]

"MARTIN LANNY" <ma**********@gmail.com> schrieb:

What I need is to convert all urls and emails in this string into html.

This is what I did to convert hard returns to <br>'s and it works fine:

Dim sws As New IO.StreamWriter(pathtosave)
sws.WriteLine(message.Replace(Chr(13), "<br>"))

So hard returns were easy, but how to do it in case of urls and emails?

So, that in case of url it should change "www.test.com" to "<a
href="http://www.test.com">www.test.com</a>" and in case of email it
should change something like "te**@test.com" to "<a
href="mailto:te**@test.com">te**@test.com</a>"

I think that you'll have to implement the code to convert the URLs and
addresses to hyperlinks yourself. If you are dealing heavily with HTML, I
suggest to take a look at the 'HttpUtility' class which provides methods for
encoding URLs and text.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[MARTIN LANNY]

Hi, it won't let me use it.

I added:

Imports System.Web
....
..
Dim finalbody As String
finalbody = System.Web.HttpUtility.htmlencode(message)
but "System.Web.htmlencode" is underlined saying that htmlencode is not
a member of system.web.

I also tried: finalbody = HttpUtility.htmlencode(message), but that is
the same.

Why can't I use it?

[MARTIN LANNY]

ok, I figured how to make it work... let me test it now...

[Herfried K. Wagner [MVP]]

"MARTIN LANNY" <ma**********@gmail.com> schrieb:

Hi, it won't let me use it.

I added:

Imports System.Web

Make sure your project contains a reference to "System.Web.dll".

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[MARTIN LANNY]

Yeah thanks...I just realized...

[MARTIN LANNY]

It doesn't work:

dim message as string = "jo*@gnut.com wrote in message"
Dim finalbody As String
finalbody = System.Web.HttpUtility.HtmlEncode(message)
return finalbody

This is what it returns:
"&lt;jo*@gnut.com&gt; wrote in message"

It should return this:
"<a href="mailto:jo*@gnut.com">jo*@gnut.com</a> wrote in message"

Any other ideas?

[Herfried K. Wagner [MVP]]

"MARTIN LANNY" <ma**********@gmail.com> schrieb:

dim message as string = "jo*@gnut.com wrote in message"
Dim finalbody As String
finalbody = System.Web.HttpUtility.HtmlEncode(message)
return finalbody

This is what it returns:
"&lt;jo*@gnut.com&gt; wrote in message"

It should return this:
"<a href="mailto:jo*@gnut.com">jo*@gnut.com</a> wrote in message"

As I already said, you'll have to build the HTML code yourself.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[MARTIN LANNY]

And I guess, that is what I needed a help with initialy.
I don't know how to convert text links to html coded links.
Maybe I wasn't very clear., but this System.Web.HttpUtility.HtmlEncode
didn't do any of what I asked for.

[MARTIN LANNY]

Is there maybe some regex to convert text links to html links?

[Herfried K. Wagner [MVP]]

"MARTIN LANNY" <ma**********@gmail.com> schrieb:

And I guess, that is what I needed a help with initialy.
I don't know how to convert text links to html coded links.
Maybe I wasn't very clear., but this System.Web.HttpUtility.HtmlEncode
didn't do any of what I asked for.

For example:

\\\
Private Function EMailAddressToHtml(ByVal Address As String) As String
Return _
"<a href=""mailto:" & HttpUtility.UrlEncode(Address) & """>" & _
HttpUtility.HtmlEncode(Address) & _
"</a>"
End Function
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[MARTIN LANNY]

That is perfect examle, but if I feed my whole text to it, it won't do
anything.
I need some function to scan text for emails and urls and replace them
all.
Isn't regex.replace something I could use? And if yes, how?