Database results - activating links within memo fields

[magmike]

When users of my site submit articles to our database
(http://www.netterweb.com/articles/) they almost always have http://
addresses within the text. They are pasting that text into a box which saves
to a memo field. When displayed through results on a webpage, the links are
inactive, unless the user was knowledgable enough to use html within the
text. However, most of my users are not html savvy. Is there a way I can
code the results of that field to make an active link out of any text
preceeded by "http://" ?

Thanks in advance for your help.

Mike

[Salad]

magmike wrote:

When users of my site submit articles to our database
(http://www.netterweb.com/articles/) they almost always have http://
addresses within the text. They are pasting that text into a box which saves
to a memo field. When displayed through results on a webpage, the links are
inactive, unless the user was knowledgable enough to use html within the
text. However, most of my users are not html savvy. Is there a way I can
code the results of that field to make an active link out of any text
preceeded by "http://" ?

Thanks in advance for your help.

Mike

I suppose when you save the memo you could look for .com, .org, etc. If
it is found, go to that position and scan backwards until you hit a
space (stop and go up a character) or the beginning of the memo. Then
check if http:// is the next 7 characters. If not, you can
concatenate/insert the http://.

[magmike]

I'm kind of a hack and new to code. Can you give me an example to go by?

Plus, I think it would be better to search for http:// or www. and then go
forwards to a space, since some links will end with something after the .com
or .net.

Can you give me an example for that? Where would that fit into the SQL
statement that writes to the database?

thanks for your reply!
mike
"Salad" <oi*@vinegar.com> wrote in message
news:TV*******************@newsread1.news.pas.eart hlink.net...

magmike wrote:

When users of my site submit articles to our database
(http://www.netterweb.com/articles/) they almost always have http://
addresses within the text. They are pasting that text into a box which saves to a memo field. When displayed through results on a webpage, the links are inactive, unless the user was knowledgable enough to use html within the
text. However, most of my users are not html savvy. Is there a way I can
code the results of that field to make an active link out of any text
preceeded by "http://" ?

Thanks in advance for your help.

Mike

I suppose when you save the memo you could look for .com, .org, etc. If
it is found, go to that position and scan backwards until you hit a
space (stop and go up a character) or the beginning of the memo. Then
check if http:// is the next 7 characters. If not, you can
concatenate/insert the http://.

[Salad]

magmike wrote:

I'm kind of a hack and new to code. Can you give me an example to go by?

Plus, I think it would be better to search for http:// or www. and then go
forwards to a space, since some links will end with something after the .com
or .net.
I should have added...error checking will be required. Why wouldn't
"www" be sufficient? An easy example is google, I often go to their
"groups" search...ex http://groups.google.com. There is no "www". How
about MS? http://support.microsoft.com. Nary a "www" around.
Can you give me an example for that? Where would that fit into the SQL
statement that writes to the database?

I thought this was a memo field. If so, I would update it when the memo
is updated, in the afterupdate event of the memo. Ex:
If Len(me.MemoFieldName) > 0 then
Me.MemoFieldName = CheckHttp(Me.MemoFieldName)
Endif

Otherwise, in a query, you would use a function. If you wanted to
update the memo via a query, you'd drag the memo field to the query.
Make the query type Update. In the Update row enter
CheckHttp([YourMemoFieldName])

BTW, I would make a copy of the table before you run it the first time
to ensure it works correctly if you will be doing a mass update via a
query...but it appears to be OK from where I'm standing.

Anyway, here is code that should get you on track. This is the result
of the function when I called it from the immediate/debug window
? CheckHttp("This is a test of www.microsoft.com, www.google.com")
and it echoes
This is a test of http://www.microsoft.com, http://www.google.com

OK...so it works mostly. You need to put in the domain name stuff you
want to check for.
Function CheckHttp(varMemo As Variant) As Variant
Dim i As Integer
Dim intFor As Integer
Dim intPos As Integer
Dim intStart As Integer
Dim strHold As Variant

'change the counter and add any further domains to search for
Dim ar(5)
ar(1) = ".www"
ar(2) = ".com"
ar(3) = ".org"
ar(4) = ".info"
ar(5) = ".biz"

'scan each type
For i = 1 To 5 'change counter here if you add/subtract ar counts
'where to start searching in the memo
intStart = 1

'do forever
Do While True
'see if string searched for is found
intPos = InStr(intStart, varMemo, ar(i))

'exit forever if not found
If intPos = 0 Then Exit Do

'read backwards to first non-char or beginning of memo
For intFor = intPos To 1 Step -1
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Then
'kick up to first char after space
intFor = intFor + 1
Exit For
End If
Next intFor

If Mid(varMemo, intFor, 7) <> "http://" Then
varMemo = Left(varMemo, intFor - 1) & "http://" & _
Mid(varMemo, intFor)
End If

'start search beyond
intStart = intPos + Len(ar(i))

Loop
Next i

CheckHttp = varMemo
End Function

[magmike]

That's absolutely fantastic! How could I modify it to do the following:

1. add "<a href=" to the front of the link
2. add ">" to the end of the link
3. copy & repaste the link after ">"
4. then add "</a>" after that?

Is that even possible?

"Salad" <oi*@vinegar.com> wrote in message
news:VG***************@newsread3.news.pas.earthlin k.net...

magmike wrote:

I'm kind of a hack and new to code. Can you give me an example to go by?

Plus, I think it would be better to search for http:// or www. and then go forwards to a space, since some links will end with something after the ..com or .net.

I should have added...error checking will be required. Why wouldn't
"www" be sufficient? An easy example is google, I often go to their
"groups" search...ex http://groups.google.com. There is no "www". How
about MS? http://support.microsoft.com. Nary a "www" around.

Can you give me an example for that? Where would that fit into the SQL
statement that writes to the database?

I thought this was a memo field. If so, I would update it when the memo
is updated, in the afterupdate event of the memo. Ex:
If Len(me.MemoFieldName) > 0 then
Me.MemoFieldName = CheckHttp(Me.MemoFieldName)
Endif

Otherwise, in a query, you would use a function. If you wanted to
update the memo via a query, you'd drag the memo field to the query.
Make the query type Update. In the Update row enter
CheckHttp([YourMemoFieldName])

BTW, I would make a copy of the table before you run it the first time
to ensure it works correctly if you will be doing a mass update via a
query...but it appears to be OK from where I'm standing.

Anyway, here is code that should get you on track. This is the result
of the function when I called it from the immediate/debug window
? CheckHttp("This is a test of www.microsoft.com, www.google.com")
and it echoes
This is a test of http://www.microsoft.com, http://www.google.com

OK...so it works mostly. You need to put in the domain name stuff you
want to check for.
Function CheckHttp(varMemo As Variant) As Variant
Dim i As Integer
Dim intFor As Integer
Dim intPos As Integer
Dim intStart As Integer
Dim strHold As Variant

'change the counter and add any further domains to search for
Dim ar(5)
ar(1) = ".www"
ar(2) = ".com"
ar(3) = ".org"
ar(4) = ".info"
ar(5) = ".biz"

'scan each type
For i = 1 To 5 'change counter here if you add/subtract ar counts
'where to start searching in the memo
intStart = 1

'do forever
Do While True
'see if string searched for is found
intPos = InStr(intStart, varMemo, ar(i))

'exit forever if not found
If intPos = 0 Then Exit Do

'read backwards to first non-char or beginning of memo
For intFor = intPos To 1 Step -1
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Then
'kick up to first char after space
intFor = intFor + 1
Exit For
End If
Next intFor

If Mid(varMemo, intFor, 7) <> "http://" Then
varMemo = Left(varMemo, intFor - 1) & "http://" & _
Mid(varMemo, intFor)
End If

'start search beyond
intStart = intPos + Len(ar(i))

Loop
Next i

CheckHttp = varMemo
End Function

[Salad]

magmike wrote:

That's absolutely fantastic! How could I modify it to do the following:

1. add "<a href=" to the front of the link
2. add ">" to the end of the link
3. copy & repaste the link after ">"
4. then add "</a>" after that?

Is that even possible?

Here's a modification to my code. I'll give 2 examples
Ex#1:
? CheckHttp("This is a test of <a href=http://www.microsoft.com></a>,
www.google.com")

This returned the following:
This is a test of <a href=http://www.microsoft.com></a>, <a
href=http://www.google.com></a>

Ex#2
? CheckHttp("This is a test of http://www.microsoft.com, www.google.com")

ANd that returned.
This is a test of <a href=http://www.microsoft.com></a>, <a
href=http://www.google.com></a>

I would do more testing on this...I'm checking for spaces and commas
only. Take a few complicated memos you have and check the results. I
suppose people can goof things up with http://www.x.com> or not putting
"<a " in front of href= etc. As far as I'm concerned, if people don't
start getting creative with their punctuation and inserting their own
stuff into URLs then for the most part it should be OK.

Function CheckHttp(varMemo As Variant) As Variant
Dim ar(5)
Dim i As Integer
Dim intFor As Integer
Dim intPos As Integer
Dim intStart As Integer
Dim strHold As Variant

ar(1) = ".www"
ar(2) = ".com"
ar(3) = ".org"
ar(4) = ".info"
ar(5) = ".biz"

'scan each type
For i = 1 To 5
'where to start searching in the memo
intStart = 1

'do forever
Do While True
'see if string searched for is found
intPos = InStr(intStart, varMemo, ar(i))

'exit forever if not found
If intPos = 0 Then Exit Do

'read backwards to first non-char or beginning of memo
For intFor = intPos To 1 Step -1
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Then
'kick up to first char after space
intFor = intFor + 1
Exit For
End If
Next intFor

If Mid(varMemo, intFor, 7) = "http://" Then
varMemo = Left(varMemo, intFor - 1) & "<a href=" & _
Mid(varMemo, intFor)
ElseIf Mid(varMemo, intFor, 5) <> "href=" Then
varMemo = Left(varMemo, intFor - 1) & "<a
href=http://" & _
Mid(varMemo, intFor)
End If

'now get to the end of the link
For intFor = intPos To Len(varMemo)
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Or Mid(varMemo,
intFor, 1) = "," Then
'kick up to first char after space
intFor = intFor - 1
Exit For
End If
Next intFor

If Right(Left(varMemo, intFor), 5) <> "></a>" Then
varMemo = Left(varMemo, intFor) & "></a>" & _
Mid(varMemo, intFor + 1)
intStart = intFor + 5
Else
intStart = intFor
End If

Loop
Next i

CheckHttp = varMemo
End Function

[magmike]

Looking good - however, the link doesn't show in html because of the
emptyness between ">" and "</a>". How would we insert the link we just
modified in between there, so the code gets rendered, <a
href=http://microsoft.com>http://microsoft.com</a>?

Secondly, one problem I am finding, is that it is doing this to email
addresses. How do we skip email addresses? I think I can modify well enough
myself to run a seperate function to activate the email addresses with
mailto: instead of http://
"Salad" <oi*@vinegar.com> wrote in message
news:Sj*****************@newsread3.news.pas.earthl ink.net...

magmike wrote:

That's absolutely fantastic! How could I modify it to do the following:

1. add "<a href=" to the front of the link
2. add ">" to the end of the link
3. copy & repaste the link after ">"
4. then add "</a>" after that?

Is that even possible?

Here's a modification to my code. I'll give 2 examples
Ex#1:
? CheckHttp("This is a test of <a href=http://www.microsoft.com></a>,
www.google.com")

This returned the following:
This is a test of <a href=http://www.microsoft.com></a>, <a
href=http://www.google.com></a>

Ex#2
? CheckHttp("This is a test of http://www.microsoft.com, www.google.com")

ANd that returned.
This is a test of <a href=http://www.microsoft.com></a>, <a
href=http://www.google.com></a>

I would do more testing on this...I'm checking for spaces and commas
only. Take a few complicated memos you have and check the results. I
suppose people can goof things up with http://www.x.com> or not putting
"<a " in front of href= etc. As far as I'm concerned, if people don't
start getting creative with their punctuation and inserting their own
stuff into URLs then for the most part it should be OK.

Function CheckHttp(varMemo As Variant) As Variant
Dim ar(5)
Dim i As Integer
Dim intFor As Integer
Dim intPos As Integer
Dim intStart As Integer
Dim strHold As Variant

ar(1) = ".www"
ar(2) = ".com"
ar(3) = ".org"
ar(4) = ".info"
ar(5) = ".biz"

'scan each type
For i = 1 To 5
'where to start searching in the memo
intStart = 1

'do forever
Do While True
'see if string searched for is found
intPos = InStr(intStart, varMemo, ar(i))

'exit forever if not found
If intPos = 0 Then Exit Do

'read backwards to first non-char or beginning of memo
For intFor = intPos To 1 Step -1
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Then
'kick up to first char after space
intFor = intFor + 1
Exit For
End If
Next intFor

If Mid(varMemo, intFor, 7) = "http://" Then
varMemo = Left(varMemo, intFor - 1) & "<a href=" & _
Mid(varMemo, intFor)
ElseIf Mid(varMemo, intFor, 5) <> "href=" Then
varMemo = Left(varMemo, intFor - 1) & "<a
href=http://" & _
Mid(varMemo, intFor)
End If

'now get to the end of the link
For intFor = intPos To Len(varMemo)
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Or Mid(varMemo,
intFor, 1) = "," Then
'kick up to first char after space
intFor = intFor - 1
Exit For
End If
Next intFor

If Right(Left(varMemo, intFor), 5) <> "></a>" Then
varMemo = Left(varMemo, intFor) & "></a>" & _
Mid(varMemo, intFor + 1)
intStart = intFor + 5
Else
intStart = intFor
End If

Loop
Next i

CheckHttp = varMemo
End Function

[magmike]

I keep getting this error when I run either function:

Run-time error '94':

Invalid use of Null

The dubugger then points to following line in the code:

intPos = InStr(intStart, varMemo, ar(i))

Any clues?

"Salad" <oi*@vinegar.com> wrote in message
news:Sj*****************@newsread3.news.pas.earthl ink.net...

magmike wrote:

That's absolutely fantastic! How could I modify it to do the following:

1. add "<a href=" to the front of the link
2. add ">" to the end of the link
3. copy & repaste the link after ">"
4. then add "</a>" after that?

Is that even possible?

Here's a modification to my code. I'll give 2 examples
Ex#1:
? CheckHttp("This is a test of <a href=http://www.microsoft.com></a>,
www.google.com")

This returned the following:
This is a test of <a href=http://www.microsoft.com></a>, <a
href=http://www.google.com></a>

Ex#2
? CheckHttp("This is a test of http://www.microsoft.com, www.google.com")

ANd that returned.
This is a test of <a href=http://www.microsoft.com></a>, <a
href=http://www.google.com></a>

I would do more testing on this...I'm checking for spaces and commas
only. Take a few complicated memos you have and check the results. I
suppose people can goof things up with http://www.x.com> or not putting
"<a " in front of href= etc. As far as I'm concerned, if people don't
start getting creative with their punctuation and inserting their own
stuff into URLs then for the most part it should be OK.

Function CheckHttp(varMemo As Variant) As Variant
Dim ar(5)
Dim i As Integer
Dim intFor As Integer
Dim intPos As Integer
Dim intStart As Integer
Dim strHold As Variant

ar(1) = ".www"
ar(2) = ".com"
ar(3) = ".org"
ar(4) = ".info"
ar(5) = ".biz"

'scan each type
For i = 1 To 5
'where to start searching in the memo
intStart = 1

'do forever
Do While True
'see if string searched for is found
intPos = InStr(intStart, varMemo, ar(i))

'exit forever if not found
If intPos = 0 Then Exit Do

'read backwards to first non-char or beginning of memo
For intFor = intPos To 1 Step -1
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Then
'kick up to first char after space
intFor = intFor + 1
Exit For
End If
Next intFor

If Mid(varMemo, intFor, 7) = "http://" Then
varMemo = Left(varMemo, intFor - 1) & "<a href=" & _
Mid(varMemo, intFor)
ElseIf Mid(varMemo, intFor, 5) <> "href=" Then
varMemo = Left(varMemo, intFor - 1) & "<a
href=http://" & _
Mid(varMemo, intFor)
End If

'now get to the end of the link
For intFor = intPos To Len(varMemo)
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Or Mid(varMemo,
intFor, 1) = "," Then
'kick up to first char after space
intFor = intFor - 1
Exit For
End If
Next intFor

If Right(Left(varMemo, intFor), 5) <> "></a>" Then
varMemo = Left(varMemo, intFor) & "></a>" & _
Mid(varMemo, intFor + 1)
intStart = intFor + 5
Else
intStart = intFor
End If

Loop
Next i

CheckHttp = varMemo
End Function

[Salad]

magmike wrote:

I keep getting this error when I run either function:

Run-time error '94':

Invalid use of Null

The dubugger then points to following line in the code:

intPos = InStr(intStart, varMemo, ar(i))

Any clues?

Not really. Did you change the values of AR()? How about the count? I
guess I'd need to know what the value of "I" is, how many elements you
have in AR(), what intStart is, and if varMemo is null...it shouldn't
but you never know.

[magmike]

In CheckHttp, I have a total of 8 "ar" listing, having added, .net, .gov,
and .edu. In my newly created CheckMailto1, I only have one ar, which is
"@". Both modified functions are included below:

BEGIN CHECKHTTP
-------------------------------------------
Function CheckHttp(varMemo As Variant) As Variant
Dim ar(8)
Dim i As Integer
Dim intFor As Integer
Dim intPos As Integer
Dim intStart As Integer
Dim strHold As Variant

ar(1) = ".www"
ar(2) = ".com"
ar(3) = ".org"
ar(4) = ".info"
ar(5) = ".biz"
ar(6) = ".net"
ar(7) = ".gov"
ar(8) = ".edu"

'scan each type
For i = 1 To 8
'where to start searching in the memo
intStart = 1

'do forever
Do While True
'see if string searched for is found
intPos = InStr(intStart, varMemo, ar(i))

'exit forever if not found
If intPos = 0 Then Exit Do

'read backwards to first non-char or beginning of memo
For intFor = intPos To 1 Step -1
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Then
'kick up to first char after space
intFor = intFor + 1
Exit For
End If
Next intFor

If Mid(varMemo, intFor, 7) = "http://" Then
varMemo = Left(varMemo, intFor - 1) & "<a href=" & _
Mid(varMemo, intFor)
ElseIf Mid(varMemo, intFor, 5) <> "href=" Then
varMemo = Left(varMemo, intFor - 1) & "<a "
href = "http://" & _
Mid(varMemo, intFor)
End If

'now get to the end of the link
For intFor = intPos To Len(varMemo)
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Or Mid(varMemo,
intFor, 1) = "," Then
'kick up to first char after space
intFor = intFor - 1
Exit For
End If
Next intFor

If Right(Left(varMemo, intFor), 5) <> "></a>" Then
varMemo = Left(varMemo, intFor) & "></a>" & _
Mid(varMemo, intFor + 1)
intStart = intFor + 5
Else
intStart = intFor
End If

Loop
Next i

CheckHttp = varMemo
End Function
BEGIN CHECKMAILTO1
--------------------------------------
Function CheckMailto1(varMemo As Variant) As Variant
Dim ar(1)
Dim i As Integer
Dim intFor As Integer
Dim intPos As Integer
Dim intStart As Integer
Dim strHold As Variant

ar(1) = "@"

'scan each type
For i = 1 To 1
'where to start searching in the memo
intStart = 1

'do forever
Do While True
'see if string searched for is found
intPos = InStr(intStart, varMemo, ar(i))

'exit forever if not found
If intPos = 0 Then Exit Do

'read backwards to first non-char or beginning of memo
For intFor = intPos To 1 Step -1
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Then
'kick up to first char after space
intFor = intFor + 1
Exit For
End If
Next intFor

If Mid(varMemo, intFor, 7) = "mailto:" Then
varMemo = Left(varMemo, intFor - 1) & "<a href=" & _
Mid(varMemo, intFor)
ElseIf Mid(varMemo, intFor, 5) <> "href=" Then
varMemo = Left(varMemo, intFor - 1) & "<a "
href = "mailto:" & _
Mid(varMemo, intFor)
End If

'now get to the end of the link
For intFor = intPos To Len(varMemo)
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Or Mid(varMemo,
intFor, 1) = "," Then
'kick up to first char after space
intFor = intFor - 1
Exit For
End If
Next intFor

If Right(Left(varMemo, intFor), 5) <> "></a>" Then
varMemo = Left(varMemo, intFor) & "></a>" & _
Mid(varMemo, intFor + 1)
intStart = intFor + 5
Else
intStart = intFor
End If

Loop
Next i

CheckMailto1 = varMemo
End Function

[Salad]

magmike wrote:

In CheckHttp, I have a total of 8 "ar" listing, having added, .net, .gov,
and .edu. In my newly created CheckMailto1, I only have one ar, which is
"@". Both modified functions are included below:

I see the ar(8) and the 8 elements. I ran the test on a null value and
I get your error.

Prior to the For i = 1 to 8 enter a line like
If not isnull(varMemo) then
and add an EndIf after the line
Next I

There's no need to check memos if they are null.

[magmike]

I was able to get rid of that error. However, there is now another:

Run-time error '5':

Invalid procedure call or argument

which the dubugger then points to this line in CheckMailto1:

If Mid(varMemo, intFor, 7) = "mailto:" Then

and this line in CheckHttp:

If Mid(varMemo, intFor, 7) = "http://" Then

Functions follow for easy reference:

BEGIN CHECKHTTP:
--------------------------------------------
Function CheckHttp(varMemo As Variant) As Variant
Dim ar(8)
Dim i As Integer
Dim intFor As Integer
Dim intPos As Integer
Dim intStart As Integer
Dim strHold As Variant

ar(1) = ".www"
ar(2) = ".com"
ar(3) = ".org"
ar(4) = ".info"
ar(5) = ".biz"
ar(6) = ".net"
ar(7) = ".gov"
ar(8) = ".edu"

If Not IsNull(varMemo) Then
'scan each type
For i = 1 To 8
'where to start searching in the memo
intStart = 1

'do forever
Do While True
'see if string searched for is found
intPos = InStr(intStart, varMemo, ar(i))

'exit forever if not found
If intPos = 0 Then Exit Do

'read backwards to first non-char or beginning of memo
For intFor = intPos To 1 Step -1
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Then
'kick up to first char after space
intFor = intFor + 1
Exit For
End If
Next intFor

If Mid(varMemo, intFor, 7) = "http://" Then
varMemo = Left(varMemo, intFor - 1) & "<a href=" & _
Mid(varMemo, intFor)
ElseIf Mid(varMemo, intFor, 5) <> "href=" Then
varMemo = Left(varMemo, intFor - 1) & "<a "
href = "http://" & _
Mid(varMemo, intFor)
End If

'now get to the end of the link
For intFor = intPos To Len(varMemo)
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Or Mid(varMemo,
intFor, 1) = "," Then
'kick up to first char after space
intFor = intFor - 1
Exit For
End If
Next intFor

If Right(Left(varMemo, intFor), 5) <> "></a>" Then
varMemo = Left(varMemo, intFor) & "></a>" & _
Mid(varMemo, intFor + 1)
intStart = intFor + 5
Else
intStart = intFor
End If

Loop
Next i
End If

CheckHttp = varMemo
End Function
BEGIN CHECKMAILTO1:
-------------------------------------------
Function CheckMailto1(varMemo As Variant) As Variant
Dim ar(1)
Dim i As Integer
Dim intFor As Integer
Dim intPos As Integer
Dim intStart As Integer
Dim strHold As Variant

ar(1) = "@"
If Not IsNull(varMemo) Then
'scan each type
For i = 1 To 1
'where to start searching in the memo
intStart = 1

'do forever
Do While True
'see if string searched for is found
intPos = InStr(intStart, varMemo, ar(i))

'exit forever if not found
If intPos = 0 Then Exit Do

'read backwards to first non-char or beginning of memo
For intFor = intPos To 1 Step -1
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Then
'kick up to first char after space
intFor = intFor + 1
Exit For
End If
Next intFor

If Mid(varMemo, intFor, 7) = "mailto:" Then
varMemo = Left(varMemo, intFor - 1) & "<a href=" & _
Mid(varMemo, intFor)
ElseIf Mid(varMemo, intFor, 5) <> "href=" Then
varMemo = Left(varMemo, intFor - 1) & "<a "
href = "mailto:" & _
Mid(varMemo, intFor)
End If

'now get to the end of the link
For intFor = intPos To Len(varMemo)
'if less/= space, exit for/next
If Mid(varMemo, intFor, 1) <= Chr(32) Or Mid(varMemo,
intFor, 1) = "," Then
'kick up to first char after space
intFor = intFor - 1
Exit For
End If
Next intFor

If Right(Left(varMemo, intFor), 5) <> "></a>" Then
varMemo = Left(varMemo, intFor) & "></a>" & _
Mid(varMemo, intFor + 1)
intStart = intFor + 5
Else
intStart = intFor
End If

Loop
Next i
End If
CheckMailto1 = varMemo
End Function

[Salad]

magmike wrote:

I was able to get rid of that error. However, there is now another:

Run-time error '5':

Invalid procedure call or argument

which the dubugger then points to this line in CheckMailto1:

If Mid(varMemo, intFor, 7) = "mailto:" Then

and this line in CheckHttp:

If Mid(varMemo, intFor, 7) = "http://" Then

It's hard to say what the problem is. What is the value of intFor?
What is the length of varMemo? I don't know what the value of varMemo
is. Is it possible intFor is greater than the length of the memo?
Perhaps there is a entry like www.common.com where .com is seen before
expected. Ain't debugging fun?