Funcion para encontrar y reemplazar

No entiendo.

Saludos,
Jhonny Vargas P.
Santiago de Chile

"Sergio" escribió en el mensaje de
noticias:

Hola Gente,

Necesito crear una funcion para encontrar y reemplazar una cadena de
links,
de la siguiente manera:

1. se envia un formulario como el que sigue a continuacion:

<form method="POST" action="url.asp?modo=2">

<textarea rows="24" name="texo" cols="43">

Este es el link para acceder al panel

<a href="http://panel.dominiox.com">http://panel.dominiox.com</a>

Este es el link para previsualizar el trabajo

<a href="http://preview.dominiox.com">http://preview.dominiox.com</a>

Este link es para subir la entrega del trabajo

<a href="http://trabajo.dominiox.com">http://trabajo.dominiox.com</a>

Cualquier duda me consultan

Gracias
Administrador

</textarea>

<input type="submit" value="Enviar">

</form>


2. Necesito reemplazar en cada caso encontrado por ej:

encontrado => <a
href="http://panel.dominiox.com">http://panel.dominiox.com</a>

por

reemplazado => <a
href="http://www.algo.com/?url=http://panel.dominiox.com">http://panel.domin
iox.com</a>


Gracias por la ayuda que me puedan dar.

Saludos
Sergio

Hola Jhonny

Una vez que envio un form y antes de insertar en bbdd, tengo que encontrar
todos los links que contenga el texto y reemplazarlos por otro link, por
ejemplo:

1. encuentro: <a
href="http://panel.dominiox.com">http://panel.dominiox.com</a>

2. lo reemplazo por <a>
href="http://www.algo.com/?url=http://panel.dominiox.com">http://panel.domin
iox.com</a>

3. inserto en bbdd.

Gracias
Sergio

"Jhonny Vargas P." escribió en el mensaje
news:

No entiendo.

Saludos,
Jhonny Vargas P.
Santiago de Chile

"Sergio" escribió en el mensaje de
noticias:
> Hola Gente,
>
> Necesito crear una funcion para encontrar y reemplazar una cadena de
> links,
> de la siguiente manera:
>
> 1. se envia un formulario como el que sigue a continuacion:
>
> <form method="POST" action="url.asp?modo=2">
>
> <textarea rows="24" name="texo" cols="43">
>
> Este es el link para acceder al panel
>
> <a href="http://panel.dominiox.com">http://panel.dominiox.com</a>
>
> Este es el link para previsualizar el trabajo
>
> <a href="http://preview.dominiox.com">http://preview.dominiox.com</a>
>
> Este link es para subir la entrega del trabajo
>
> <a href="http://trabajo.dominiox.com">http://trabajo.dominiox.com</a>
>
> Cualquier duda me consultan
>
> Gracias
> Administrador
>
> </textarea>
>
> <input type="submit" value="Enviar">
>
> </form>
>
>
> 2. Necesito reemplazar en cada caso encontrado por ej:
>
> encontrado => <a
> href="http://panel.dominiox.com">http://panel.dominiox.com</a>
>
> por
>
> reemplazado => <a
>

href="http://www.algo.com/?url=http://panel.dominiox.com">http://panel.domin

> iox.com</a>
>
>
> Gracias por la ayuda que me puedan dar.
>
> Saludos
> Sergio
>
>

Hola

La funcion InStr() te permite encontrar la primera ocurrencia o aparición de
una cadena dentro de un texto.
La funcion Mid() te permite extraer partes de un texto grande

Por ejemplo:

posicion1 = 1
buscar = "href=""" ' para buscar: href="
posicion1 = InStr( posicion1 , mensaje_enviado , buscar )
if posicion1 = 0 then
' no se encontró "buscar" en la variable "mensaje"
else
buscar = "</a>"
posicion2 = InStr( posicion1 , mensaje_enviado , buscar )
if posicion2 = 0 then
' no se encontró el cierre del link html
else
cantidad = len(mensaje_enviado) - posicion1
enlace = mid( mensaje_enviado , posicion1 , cantidad )
end if
end if

Finalmente, en la variable "enlace" obtendrás el texto que hay entre
href="
y entre
</a>

Otra función es Replace(), con la cual buscas un texto en una cadena y si
existe lo reemplazas por otro.
Ejemplo:
mensaje_enviado = replace( mensaje_enviado
, "http://"
, "http://www.algo.com/?url=http://" )

Finalmente, si requieres algo más avanzado te recomiendo que busques todo
sobre Expresiones Regulares y el objeto RegEx en VBScript.

Saludos
MV


"Sergio" escribió en el mensaje
news:

Hola Jhonny

Una vez que envio un form y antes de insertar en bbdd, tengo que encontrar
todos los links que contenga el texto y reemplazarlos por otro link, por
ejemplo:

1. encuentro: <a
href="http://panel.dominiox.com">http://panel.dominiox.com</a>

2. lo reemplazo por <a>
href="http://www.algo.com/?url=http://panel.dominiox.com">http://panel.domin
iox.com</a>

3. inserto en bbdd.

Gracias
Sergio

"Jhonny Vargas P." escribió en el
mensaje
news:

No entiendo.

Saludos,
Jhonny Vargas P.
Santiago de Chile

"Sergio" escribió en el mensaje de
noticias:
> Hola Gente,
>
> Necesito crear una funcion para encontrar y reemplazar una cadena de
> links,
> de la siguiente manera:
>
> 1. se envia un formulario como el que sigue a continuacion:
>
> <form method="POST" action="url.asp?modo=2">
>
> <textarea rows="24" name="texo" cols="43">
>
> Este es el link para acceder al panel
>
> <a href="http://panel.dominiox.com">http://panel.dominiox.com</a>
>
> Este es el link para previsualizar el trabajo
>
> <a href="http://preview.dominiox.com">http://preview.dominiox.com</a>
>
> Este link es para subir la entrega del trabajo
>
> <a href="http://trabajo.dominiox.com">http://trabajo.dominiox.com</a>
>
> Cualquier duda me consultan
>
> Gracias
> Administrador
>
> </textarea>
>
> <input type="submit" value="Enviar">
>
> </form>
>
>
> 2. Necesito reemplazar en cada caso encontrado por ej:
>
> encontrado => <a
> href="http://panel.dominiox.com">http://panel.dominiox.com</a>
>
> por
>
> reemplazado => <a
>

href="http://www.algo.com/?url=http://panel.dominiox.com">http://panel.domin

> iox.com</a>
>
>
> Gracias por la ayuda que me puedan dar.
>
> Saludos
> Sergio
>
>