
28/02/2006, 03:59
|
| | Fecha de Ingreso: enero-2006 Ubicación: Madrid
Mensajes: 148
Antigüedad: 19 años, 2 meses Puntos: 0 | |
Hola a todos que tal, ya hice con el programa que me envio trasgukabi, que me quitase las etiquetas del codigo fuente, el problema que tenia era con las etiquetas <script> y <style> pues tampoco queria coger los estilos ni las funciones javascript, lo hice pero no se porque algunas etiquetas <script> me las coge y otras no, y querria eliminar todas el programita es el siguiente a ver si alguien puede ayudarme ciao muchas gracias.
Código:
function quitatags(a)
cadena=""
principio=0
final=1
for i=1 to len(a) ' recorres toda la cadena
if mid(a,i,1)="<" or mid(a,i,6)="<style" or mid(a,i,7)="<script" then
if mid(a,i,6)="<style" then
i=i+6
while mid(a,i,8)<>"</style>"
i=i+1
wend
else
if mid(a,i,7)="<script" then
i=i+7
while (mid(a,i,9)<>"</SCRIPT>" and mid(a,i,9)<>"</script>")
i=i+1
wend
i=i+9
end if
end if
cadena=cadena&"<"
principio=1 'se ha encontrado el comienzo de una etiqueta
final=0 'pero el final no
end if
if principio=1 then
cont=0
if mid(a,i,8)="</style>" or mid(a,i,8)="</script" then
i=i+8
cont=1
else
if mid(a,i,1)=">" then
final=1
principio=0
end if
end if
end if
if principio=0 and final=1 then 'si no se ha encontrado ninguna etiqueta, o se ha llegado al final de una, se empiezan a añadir los caracteres
if cont=1 then
cadena=cadena&">"
else
cadena=cadena&mid(a,i,1)
end if
end if
next
quitatags=cadena 'asi dejas <>
quitatags=replace(cadena,"<>","")'asi los quitas
end function
|