Using ASP to replace content but not tag content in HTML pages

[Sir Ben]

Hi,

Using ASP I'd like to modify a string that contains HTML.

I need to modify the content (the bit that the users see) but not the stuff
in the tags.

For example, if I had the following string

<a href=www.replacetext.com>replacetext.com</a>

and wanted to replace "replacetext.com" with "newtext.com" I'd want the
output to be

<a href=www.replacetext.com>newtext.com</a>

Could anyone help me with this?

Thanks,

Ben.

[Roland Hall]

"Sir Ben" wrote in message
news:LU*******************@newsfe1-gui.ntli.net...
: Using ASP I'd like to modify a string that contains HTML.
:
: I need to modify the content (the bit that the users see) but not the
stuff
: in the tags.
:
: For example, if I had the following string
:
: <a href=www.replacetext.com>replacetext.com</a>
:
: and wanted to replace "replacetext.com" with "newtext.com" I'd want the
: output to be
:
: <a href=www.replacetext.com>newtext.com</a>
:
: Could anyone help me with this?

Ya', I could do that but looking at your email addy, does this mean I'm
going to get some pr0n spam with disguised links?

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Sir Ben]

Roland,

Thanks for replying.

No, you won't be getting any porn spam links as that would be very rude to
someone who's helping me and you've given a oid email address anyway.

Could you please post a solution on this newsgroup?

Thanks,

Sir Ben.

"Roland Hall" <nobody@nowhere> wrote in message
news:em**************@TK2MSFTNGP10.phx.gbl...

"Sir Ben" wrote in message
news:LU*******************@newsfe1-gui.ntli.net...
: Using ASP I'd like to modify a string that contains HTML.
:
: I need to modify the content (the bit that the users see) but not the
stuff
: in the tags.
:
: For example, if I had the following string
:
: <a href=www.replacetext.com>replacetext.com</a>
:
: and wanted to replace "replacetext.com" with "newtext.com" I'd want the
: output to be
:
: <a href=www.replacetext.com>newtext.com</a>
:
: Could anyone help me with this?

Ya', I could do that but looking at your email addy, does this mean I'm
going to get some pr0n spam with disguised links?

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation -
http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Steven Burn]

Strangely enough I was thinking the same thing......

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Roland Hall" <nobody@nowhere> wrote in message news:em**************@TK2MSFTNGP10.phx.gbl...

"Sir Ben" wrote in message
news:LU*******************@newsfe1-gui.ntli.net...
: Using ASP I'd like to modify a string that contains HTML.
:
: I need to modify the content (the bit that the users see) but not the
stuff
: in the tags.
:
: For example, if I had the following string
:
: <a href=www.replacetext.com>replacetext.com</a>
:
: and wanted to replace "replacetext.com" with "newtext.com" I'd want the
: output to be
:
: <a href=www.replacetext.com>newtext.com</a>
:
: Could anyone help me with this?

Ya', I could do that but looking at your email addy, does this mean I'm
going to get some pr0n spam with disguised links?

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Lazaroo]

I feel this is most unfair. Especially as there's no way of me to SPAM you
anyway.

Is there nothing I can do to convince you to help me? I've even changed my
name now!
"Steven Burn" <so*******@in-time.invalid> wrote in message
news:OM**************@TK2MSFTNGP15.phx.gbl...
Strangely enough I was thinking the same thing......

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Roland Hall" <nobody@nowhere> wrote in message
news:em**************@TK2MSFTNGP10.phx.gbl...

"Sir Ben" wrote in message
news:LU*******************@newsfe1-gui.ntli.net...
: Using ASP I'd like to modify a string that contains HTML.
:
: I need to modify the content (the bit that the users see) but not the
stuff
: in the tags.
:
: For example, if I had the following string
:
: <a href=www.replacetext.com>replacetext.com</a>
:
: and wanted to replace "replacetext.com" with "newtext.com" I'd want the
: output to be
:
: <a href=www.replacetext.com>newtext.com</a>
:
: Could anyone help me with this?

Ya', I could do that but looking at your email addy, does this mean I'm
going to get some pr0n spam with disguised links?

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation -
http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Roland Hall]

"Sir Ben" wrote in message
news:ec*******************@newsfe1-gui.ntli.net...
: Roland,
:
: Thanks for replying.
:
: No, you won't be getting any porn spam links as that would be very rude to
: someone who's helping me and you've given a oid email address anyway.
:
: Could you please post a solution on this newsgroup?

ok, just a min... brb

[Steven Burn]

Bit sloppy but, see if this helps;

sSource = "<a href=""somewebsite.com"">somewebsite.com</a>"
sReplaceWhat = "somewebsite.com"
sReplaceWith = "someotherwebsite.com"
Response.Write Replace(sSource, ">" & sReplaceWhat & "<", ">" & sReplaceWith & "<")

There's an example here;

http://mysteryfcm.plus.com/misc/srep.asp

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Lazaroo" <ju**@financialcharting.com> wrote in message news:dD*******************@newsfe1-gui.ntli.net...

I feel this is most unfair. Especially as there's no way of me to SPAM you
anyway.

Is there nothing I can do to convince you to help me? I've even changed my
name now!
"Steven Burn" <so*******@in-time.invalid> wrote in message
news:OM**************@TK2MSFTNGP15.phx.gbl...
Strangely enough I was thinking the same thing......

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Roland Hall" <nobody@nowhere> wrote in message
news:em**************@TK2MSFTNGP10.phx.gbl...

"Sir Ben" wrote in message
news:LU*******************@newsfe1-gui.ntli.net...
: Using ASP I'd like to modify a string that contains HTML.
:
: I need to modify the content (the bit that the users see) but not the
stuff
: in the tags.
:
: For example, if I had the following string
:
: <a href=www.replacetext.com>replacetext.com</a>
:
: and wanted to replace "replacetext.com" with "newtext.com" I'd want the
: output to be
:
: <a href=www.replacetext.com>newtext.com</a>
:
: Could anyone help me with this?

Ya', I could do that but looking at your email addy, does this mean I'm
going to get some pr0n spam with disguised links?

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation -
http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Steven Burn]

I should mention, my "solution" is going to look extremely pitiful compared to Roland's (usually does <g>) so you may want to wait for his ;o)

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

[Lazaroo]

Thanks for the help Steven!

I kept on searching and after 3 hours I finally got what I wanted!!!!

It was on this site:

http://coveryourasp.com/ShowFileDescr.asp

And the code for anyone else interested is below...

function htmlContentReplace(strHTML,strSearch,strReplace)
htmlContentReplace = RegExpReplace(strHTML, "(?![^<]+>)" + strSearch +
"(?![^<]+>)", strReplace)
'htmlContentReplace = RegExpReplace(strHTML, "(?![^<\[]+[>\]])" + strSearch
+ "(?![^\[<]+[>\]])", strReplace)
end function

Function RegExpReplace(strInput, strPattern, strReplace)
' Use <?> to indicate the match you wish to replace
' Create and setup several variables:
Dim regEx, Match, Matches, Position, strReturn
Position = 1
strReturn = ""

' Set up the regular expression:
Set regEx = New RegExp
regEx.Pattern = strPattern
regEx.IgnoreCase = True
regEx.Global = True

' Get all the matches for it:
Set Matches = regEx.Execute(strInput)

' Go through the Matches collection
' and build the output string:
For Each Match in Matches
strReturn=strReturn & Mid(strInput, Position,
Match.FirstIndex+1-Position)
strReturn=strReturn & Replace(strReplace, "<?>", Match.Value)
Position = Len(Match.Value) + Match.FirstIndex + 1
Next

' Add any text after the last match
strReturn = strReturn & Mid(strInput, Position, Len(strInput))
RegExpReplace = strReturn
End Function
"Steven Burn" <so*******@in-time.invalid> wrote in message
news:%2****************@TK2MSFTNGP14.phx.gbl...
I should mention, my "solution" is going to look extremely pitiful compared
to Roland's (usually does <g>) so you may want to wait for his ;o)

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

[Roland Hall]

"Roland Hall" wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...
: "Sir Ben" wrote in message
: news:ec*******************@newsfe1-gui.ntli.net...
:: Roland,
::
:: Thanks for replying.
::
:: No, you won't be getting any porn spam links as that would be very rude
to
:: someone who's helping me and you've given a oid email address anyway.
::
:: Could you please post a solution on this newsgroup?
:
: ok, just a min... brb

Only gone 10 minutes. Everything's bigger in Texas! (O;=-

I see you found something Sir Ben, a.k.a. Lazaroo...

Here is what I came up with:

<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = True

function disguise(str, strR)
dim re, col, strLeft, strRight
set re = new RegExp
with re
.Pattern = "<[^>]*>"
.Global = true
.IgnoreCase = true
end with
set col = re.Execute(str)
disguise = col(0) & strR & col(1)
set col = nothing
set re = nothing
end function

dim original, replacement, strNew
original = "<a href=www.replacetext.com>replacetext.com</a>"
replacement = "newtext.com"
strNew = disguise(original, replacement)

Response.Write "Original: " & Server.HTMLEncode(original) & "<br />" &
vbCrLf
Response.Write "Replacement: " & replacement & "<br />" & vbCrLf
Response.Write "New String: " & Server.HTMLEncode(strNew)
%>

I encoded the strings so they would display properly in the example when you
run it. They're not needed otherwise.
You can see it working here: http://kiddanger.com/lab/htmlx2.asp

HTH... (no spamming... you promised)

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Roland Hall]

"Steven Burn" wrote in message
news:%2****************@TK2MSFTNGP14.phx.gbl...
I should mention, my "solution" is going to look extremely pitiful compared
to Roland's (usually does <g>) so you may want to wait for his ;o)

Oh puhleease. I often have to pull out my reference material to read your
code. I've even sent some of it out to be analyzed at HowdTheyDoThat.com
and the response is always the same:

"We're as baffled as you are. This guy's IQ must be off the chart!"

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Roland Hall]

I just noticed... this:

: dim re, col, strLeft, strRight

should be:

dim re, col

....only. Those two variables are no longer being used.

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Steven Burn]

ROFLMFAO!

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Roland Hall" <nobody@nowhere> wrote in message news:OX**************@TK2MSFTNGP14.phx.gbl...

"Steven Burn" wrote in message
news:%2****************@TK2MSFTNGP14.phx.gbl...
I should mention, my "solution" is going to look extremely pitiful compared
to Roland's (usually does <g>) so you may want to wait for his ;o)

Oh puhleease. I often have to pull out my reference material to read your
code. I've even sent some of it out to be analyzed at HowdTheyDoThat.com
and the response is always the same:

"We're as baffled as you are. This guy's IQ must be off the chart!"

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Steven Burn]

Your welcome....... glad to see you found something to suit your needs ;o)

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Lazaroo" <ju**@financialcharting.com> wrote in message news:pG******************@newsfe1-gui.ntli.net...

Thanks for the help Steven!

I kept on searching and after 3 hours I finally got what I wanted!!!!

It was on this site:

http://coveryourasp.com/ShowFileDescr.asp

And the code for anyone else interested is below...

function htmlContentReplace(strHTML,strSearch,strReplace)
htmlContentReplace = RegExpReplace(strHTML, "(?![^<]+>)" + strSearch +
"(?![^<]+>)", strReplace)
'htmlContentReplace = RegExpReplace(strHTML, "(?![^<\[]+[>\]])" + strSearch
+ "(?![^\[<]+[>\]])", strReplace)
end function

Function RegExpReplace(strInput, strPattern, strReplace)
' Use <?> to indicate the match you wish to replace
' Create and setup several variables:
Dim regEx, Match, Matches, Position, strReturn
Position = 1
strReturn = ""

' Set up the regular expression:
Set regEx = New RegExp
regEx.Pattern = strPattern
regEx.IgnoreCase = True
regEx.Global = True

' Get all the matches for it:
Set Matches = regEx.Execute(strInput)

' Go through the Matches collection
' and build the output string:
For Each Match in Matches
strReturn=strReturn & Mid(strInput, Position,
Match.FirstIndex+1-Position)
strReturn=strReturn & Replace(strReplace, "<?>", Match.Value)
Position = Len(Match.Value) + Match.FirstIndex + 1
Next

' Add any text after the last match
strReturn = strReturn & Mid(strInput, Position, Len(strInput))
RegExpReplace = strReturn
End Function


"Steven Burn" <so*******@in-time.invalid> wrote in message
news:%2****************@TK2MSFTNGP14.phx.gbl...
I should mention, my "solution" is going to look extremely pitiful compared
to Roland's (usually does <g>) so you may want to wait for his ;o)

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!