problema con intrstr y replace (ignora espacio)

[diegolaz]

Hola, tengo un texto y quiero reemplazar las ocurrencias de un texto por otro texto pero solo lo haga con palabras completas...
por ejemplo si en el texto esta "normalmente" y busco "normal" que no lo reemplaze porque es parte de una palabra...

Este es el codigo

Código PHP:

  txtComp = ""
txtNuevoC = ""
Dim charsoptions(7) 'Fixed size array
charsoptions(0) = " "
charsoptions(1) = ","
charsoptions(2) = "."
charsoptions(3) = "'"
charsoptions(4) = ":"
charsoptions(5) = "("
charsoptions(6) = ")"
 
textoFuente = "Una frase normal que deberia funcionar normalmente"
 
textoNuevo = "<b>normal<b>"
textoViejo = "normal"
 
For Each item In charsoptions
    txtComp = " " & textoViejo  & item     
    txtNuevoC = " " & textoNuevo  & item     
    if (InStr(1, textoFuente, txtComp, vbTextCompare) > 0) then                
        textoFuente = replace(textoFuente, txtComp, txtNuevoC, 1, -1, 1)
    end if 
    txtComp = item & textoViejo  &  " "    
    txtNuevoC = item & textoNuevo  & " "     
    if (InStr(1, textoFuente, txtComp, vbTextCompare) > 0) then                
        textoFuente = replace(textoFuente, txtComp, txtNuevoC, 1, -1, 1)
    end if 
Next 
   

el tema es que me reemplaza normal en los 2 lugares.... no le hace caso al & " "

Alguna idea?
Gracias!

[Adler]

Hola

Mejor si usas expresiones regulares

Suerte

[diegolaz]

voy a probar. Todo lo que encontre era para asp.net por eso pense que en ASP clasico no habia expresiones regulares...

gracias!

[diegolaz]

si, lo solucione con regExp.... usando \b antes y despues de la palabra para qeu se encargue de espacio, punto, coma, etc

[diegolaz]

casi....
Funciona bien, pero en una palabra como Trópico encuentra como que Pico coincide con el patern....supongo que la "ó" la debe tener codificada con algun ; o algo....alguna forma de solucionarlo??

pal = "pico"
regEx.Pattern = "\b" & pal & "\b"

gracias!

[Adler]

Hola

Prueba así

regEx.Pattern = "\b("&pal&")+\b"

Suerte

[diegolaz]

gracias, pero sigue haciendo lo miso...

[Adler]

Hola

Prueba ahora

regEx.Pattern = "\b([^á|Á|é|É|í|Í|ó|Ó|ú|Ú]pico[^á|Á|é|É|í|Í|ó|Ó|ú|Ú])+\b"

Suerte

[diegolaz]

ese no lo reemplaza, pero tampoco lo hace en donde si esta la palabra sola.

Finalmente lo hice haciendo un caso especial para pico y un replace normal...

muchas gracias por las respuestas!

[Adler]

Iniciado por diegolaz

ese no lo reemplaza, pero tampoco lo hace en donde si esta la palabra sola.

Finalmente lo hice haciendo un caso especial para pico y un replace normal...

muchas gracias por las respuestas!

quizás no te he entendido

Este script hace lo estás buscando

Código asp:

<%
Function ResaltaParam(str)
Dim objRegExp 
Set objRegExp = new RegExp
With objRegExp
.Pattern = "\b([^á|Á|é|É|í|Í|ó|Ó|ú|Ú]pico[^á|Á|é|É|í|Í|ó|Ó|ú|Ú])+\b"
.IgnoreCase = True
.Global = True
End With
str = objRegExp.replace(str, "<strong>$1</strong>")
ResaltaParam = str
Set objRegExp = nothing
End Function
Response.write ResaltaParam("Me gustaría estar en el Trópico por que aquí empieza a hacer frio")
%>
 

Suerte