Case insensitive Replace() function in ASP

[matthewralston]

Can someone tell me how to use the Replace() function in an ASP page and have it ignore case?

I.E. I'd want:

sTemp=Replace(sTemp, "matthew", "Matt")

to return "Matt" wether the original value of sTemp was "Matthew, "MATTHEW" or "matthew".

I though it'd be simple but in ASP the Replace function seems to be case sensitive...after leafing through the help file I found that I could gve it a value of vbTextCompare for the Compare argument, or if I stuck Option Compare Text at the top of the file that it should be case insensitive, but both approaches produce errors (usually "Type Mismatch"). :(

For what it's worth the code I've got is:

Function ElimiSwear(txt)

sTemp = txt

Set oRSElimiSwear = Server.CreateObject("ADODB.RecordSet")
oRSElimiSwear.Open "SELECT word, replacement FROM ElimiSwear", oConn

'Response.Write "#" & vbTextCompare & "#"

If Not oRSElimiSwear.BOF And Not oRSElimiSwear.EOF Then

oRSElimiSwear.MoveFirst
Do Until oRSElimiSwear.EOF
sWord = oRSElimiSwear("word")
sReplacement = oRSElimiSwear("replacement")

If IsNull(sReplacement) Or IsEmpty(sReplacement) Or (sReplacement = "") Then sReplacement = MakeStars(sWord)
sTemp = Replace(sTemp, sWord, sReplacement) ' Damn!! Replace function is case sensitive!!

'iPos = Instr(lcase(sTemp), lcase(sWord))
'Response.Write "#" & iPos & "#"
'Do While iPos > 0
' 'Response.Write "#" & iPos & "#"
' sTemp = Left(sTemp,iPos) & sReplacement & Right(sTemp, Len(sTemp) - iPos - Len(sWord))
' iPos = Instr(lcase(sTemp), lcase(sWord))
'Loop

oRSElimiSwear.MoveNext
Loop

End If

oRSElimiSwear.Close
Set oRSElimiSwear = Nothing

ElimiSwear = sTemp

End Function

Function MakeStars(txt)

For iCounter = 1 To Len(txt)
sTemp = sTemp & "*"
Next

MakeStars = sTemp

End Function

You might see that I had a go at writing my own Replace function but it usually timed out and sometimes it didn't like the Left() function!!!!! :(

I also tried: http://www.vb-world.net/tips/tip110.html
But again it moaned about the Left() function.

Am I missing something obvious? Help me!!!!!

I don't know if this helps but I seem to be able to use Replace() with vbTextCompare just fine. For example:


Dim strTest
Dim strHTML

strTest = "Hello Paul, PAUL, pAuL, paul."

strHTML = strHTML & "<P>Before:&nbsp;&nbsp;" & strTest & "</P>" & vbcrlf
strHTML = strHTML & "<P>After:&nbsp;&nbsp;" & Replace(strTest, "paul", "PWN", 1, -1, 1) & "</P>" & vbcrlf

Response.Write strHTML


...works just as you'd want it to, producing this:


Before: Hello Paul, PAUL, pAuL, paul.

After: Hello PWN, PWN, PWN, PWN.


...for output.

I can get a type mismatch if I omit some of the arguments to Replace(), for example:


' The following would produce a type mistmatch error.
Replace(strTest, "paul", "PWN", , , 1)


Paul

how 'bout if you set sTemp = Ucase(txt)..then try sTemp = Replace(sTemp, "MATTHEW", "Matt")

hope this helps.

Hey I tried that approach already, billyboy, billyboy!
I tried that approach already my good friend, billy! :)
Didn't work unfortunately...
But that doesn't bother me...
I'm so happy, now I have the bug that hurt me :D

:) PWNettle... cheers, mate! It worked!!
I guess sometimes a simple example is often easier to get right than a big ugly one :)

It seems to be that because I missed out some of the arguments in between the code wasn't working... I filled them in like in your code and it worked. :) I thought that putting in the commas as placeholders was ment to do that but obviously not.

Anyway, works now...am happy...thanks. :)