Reemplazar partes de Strings

1) Puedes usar...
cadena = replace( cadena , "</P>" , "" )
cadena = replace( cadena , "<P>" , "<BR>" )

2) para esta deberás crear una rutina que haga la conversión.

Salu2
MV

"The_law2k" escribió en el mensaje
news:

Hola, tengo dos consultas bastante dificiles, por lo menos para mí.

1) Quisiera saber si alguien tiene un script para sacar pedazos de codigo
HTML de una pagina.
El problema es el sig. tengo que pasar una BBDD Access a SQLServer, la
paso bien, el problema es que el tipo que hizo el otro sistema de
administracion de la web, se mando un editor Web que metia los estilos en
linea y Sentencias de parrafos (<P></P>) lo que quiero hacer es sacar esas
partes, excepto </P> que en vez de sacarlo lo reemplazo con <BR>.

2) Ademas de la consulta anterior, al tipo que habia hecho el otro
sistema, se le habia ocurrido que era una buena idea poner todos los
titulos con mayusculas, peor ahora el cliente quiere que arreglemos eso,
el problemita se sucita, que lo que podemos hacer es poner todas las
letras del titulo en minusculas, pero no se como hacer para poner las
mayusuclas despues de los ".", ":" y demas signos de puntuacion.

Gracias por la ayuda.

The_law2k

Bueno para hacerlo rapidamente por punto...
1)
Con esto eliminas el primer tag:
strCadena = REPLACE(strCadena, "<P>", "")

Con esto agregas en cada fin de parrafo el tag de nueva linea
strCadena = REPLACE(strCadena, "</P>", "<BR>")

y si lo prefieres puedes colocar para mejorar la visualizacion del
codigo fuente, algo asi:
strCadena = REPLACE(strCadena, "</P>", vbCrLf & "<BR>" & vbCrLf)


Para el punto 2:
La unica manera de realizar esta tarea es buscar esas posiciones e ir
convirtiendo en mayusculas
Pero ya lo han pensando y espero que te sirva...

http://www.forosdelweb.com/showthre...e=3&pp
entonces en esta web estas funciones que espero que te sirvan...
la funcion TipoParrafo es la que estas necesitando


Function TipoFrase(cadenaAconvertir)
contenido = ""
palabra = Split(cadenaAconvertir," ")
For I = 0 To UBound(palabra)
contenido = contenido & LCase(palabra(I)) & " "
Next
PrimeraLetra = UCase(Left(contenido,1))
frase = PrimeraLetra&Right(contenido,Len(contenido)-1)
TipoFrase = frase
End Function

Function TipoParrafo(parrafoAconvertir)
contenido = ""
frase = Split(parrafoAconvertir,". ")
For I = 0 To UBound(frase)
contenido = contenido &
UCase(Left(frase(I),1))&LCase(Right(frase(I),Len(frase(I))-1))&". "
Next
parrafo = Left(contenido,Len(contenido)-2)
frase = Split(parrafo,chr(10))
For I = 0 To UBound(frase)
contenido2 = contenido2 &
UCase(Left(frase(I),1))&Right(frase(I),Len(frase(I))-1)&chr(10)
Next
TipoParrafo = contenido2
End Function

Gracias, me fueron muy utiles los codigos.
Me han salvado.

the_law2k

"The_law2k" escribió en el mensaje
news:

Hola, tengo dos consultas bastante dificiles, por lo menos para mí.

1) Quisiera saber si alguien tiene un script para sacar pedazos de codigo
HTML de una pagina.
El problema es el sig. tengo que pasar una BBDD Access a SQLServer, la
paso bien, el problema es que el tipo que hizo el otro sistema de
administracion de la web, se mando un editor Web que metia los estilos en
linea y Sentencias de parrafos (<P></P>) lo que quiero hacer es sacar esas
partes, excepto </P> que en vez de sacarlo lo reemplazo con <BR>.

2) Ademas de la consulta anterior, al tipo que habia hecho el otro
sistema, se le habia ocurrido que era una buena idea poner todos los
titulos con mayusculas, peor ahora el cliente quiere que arreglemos eso,
el problemita se sucita, que lo que podemos hacer es poner todas las
letras del titulo en minusculas, pero no se como hacer para poner las
mayusuclas despues de los ".", ":" y demas signos de puntuacion.

Gracias por la ayuda.

The_law2k