Eliminar espacio dentro del codigo

[Nax]

Hola!

Me gustaría saber si hay alguna forma o si existe alguna funcion ke quite los espacios que quedan dentro del codigo, es decir, ke en vez de:

Código HTML:

<table>
<tr>
<td>Hola!</td>
</tr>
</table> 

aparezca:

Código HTML:

<table><tr><td>Hola!</td></tr></table> 

Saludos y muchas gracias!

[Adler]

La primera forma de introducir código es más correcta que la segunda, ya que se interpreta mejor.

Pero no entiendo por qué quieres hacer eso, de todos modos puedes escribirlo como quieras, serás tú quien lo lea.

¿Una función?, seguro que se puede montar, siempre y cuando saces el código de una BD, solo has de eliminar los saltos de lineas

[Nax]

El problema es que tengo un monton de HTMLs con este codigo:

Código HTML:

<table>
<tr>

	<td width=20 valign="top"><img src="../../../images/red_dot.gif" hspace=2 vspace=3 width=9 height=9 alt="bullet"></td>
	<td valign="top">
	<font face="Verdana, Arial, Geneva, sans-serif" size=2>
	<a name="Dict_49"><B>abatement</B></a>&nbsp;&nbsp;[<FONT SIZE=-1>ENGINEERING</FONT>]&nbsp;&nbsp;<B>1.</B>&nbsp;The waste produced in cutting a timber, stone, or metal piece to a desired size and shape.&nbsp;<B>2.</B>&nbsp;A decrease in the amount of a substance or other quantity, such as atmospheric pollution.<br>
{&nbsp;<img border=0 src=../../../__chars/e/special/schwa/black/med/base/glyph.gif align=middle alt="schwa"><img border=0 src=../../../__chars/quotes/special/primestress/black/med/base/glyph.gif align=top>b<img border=0 src=../../../__chars/a/special/macr/black/med/base/glyph.gif align=bottom alt="a macr">t<img border=0 src=../../../__chars/circle/special/midbull/black/med/base/glyph.gif align=middle alt="mid bullet">m<img border=0 src=../../../__chars/e/special/schwa/black/med/base/glyph.gif align=middle alt="schwa">nt&nbsp;}
	</font>
	</td>

</tr>
</table> 

Son un monton de HTMLs que se maquetaron hace bastante tiempo y ahora se les ocurre la genial idea de que hay que pasarlo a una BD...

Lo que yo quiero es buscar y extraer lo que esta entre <font face="Verdana, Arial, Geneva, sans-serif" size=2> y </font> y no sé como hacerlo...

Ya puse un post sobre este tema http://www.forosdelweb.com/f15/extraer-palabras-texto-465244/
pero no me funciona para lo arriba mencionado...

[tammander]

O sea, lo que quieres hacer es:

1 - Leer una serie de archivos HTML de un sitio web

Usa el objeto FileSystemObject para abrir los archivos en modo lectura

2 - Por cada archivo HTML, leer el código y eliminar distintas partes de él

Usa la funcion de Myakire o la mia para la limpieza del código

3 - Una vez limpio, el codigo resultante se guarda en una BD




¿Es asi?



Un saludo

[Nax]

Sí, mas o menos...

Ya he recuperado todo el codigo HTML y lo tengo volcado en una BD, ahora necesito extraer lo necesario, pero con esa funcion a mi no me funciona...

Código PHP:

  While InStr(Texto,"<font face=" & Chr(34) & "Verdana, Arial, Geneva, sans-serif" & Chr(34) & " size=2>")>0
    Redim preserve Vector(Cnt)
                
        Vector(Cnt) = MID(Texto,InStr(Texto,"<font face=" & Chr(34) & "Verdana, Arial, Geneva, sans-serif" & Chr(34) & " size=2>"), (InStr(Texto,"</font>")-InStr(Texto,"<font face=" & Chr(34) & "Verdana, Arial, Geneva, sans-serif" & Chr(34) & " size=2>")))
        Texto = Replace(Texto, "<font face=" & Chr(34) & "Verdana, Arial, Geneva, sans-serif" & Chr(34) & " size=2>", "|", 1, 1)
        Texto = Replace(Texto, "</font>", "|", 1, 1)
        Cnt=Cnt+1
Wend  
   

[tammander]

Tu lo que quieres es eliminar lo que haya entre <font... y </font> o solo las etiquetas?

[Nax]

yo lo que quiero es extraer lo que esta entre esas etiquetas...

[tammander]

Prueba a usar esto:


texto = "Esto es una prueba de <b>valores</b> continuos que estan concatenados <b>uno</b> a <b>uno</b>"

function extraeTodos(texto)
Dim textox
textox = texto
te = instr(1, textox, "<b>", 1)
if te <> 0 and te <> vbNull then
texto1 = left(textox, te-1)
tu = instr(1, textox, "</b>", 1)
if tu <> 0 and tu <> vbNull then texto2 = mid(textox,tu+4)
extraeTodos = extraeTodos(1, (texto1 & texto2))
end if
end function


response.Write(extraeTodos(texto))
En donde pone <b>, lo cambias por <font
y </b> pon </font>


Te borrará todo lo que haya entre ambos textos, tags incluidos.

[Nax]

Me da el siguiente error:

Número de argumentos erróneo o asignación de propiedad no válida: 'extraeTodos'

en la linea:

Código PHP:

  extraeTodos = extraeTodos(1, (texto1 & texto2))  
   

Pero aun y todo no es eso lo que busco, hay varios tipos de <font... y tiene que ser lo contenido entre <font face="Verdana, Arial, Geneva, sans-serif" size=2> y </font> lo que debo extraer y no borrar.

[tammander]

Pos quitale el argumento erroneo

Código:

extraeTodos = extraeTodos((texto1 & texto2))  

Extraer? Borrar? Supongo que lo que quieres es extraer lo que haya entre esos tags para luego guardar el texto resultante SIN lo extraido, ¿verdad? Pos en mi pueblo llamamos borrar a eso. Es decir:

function extraeTodos(texto)
Dim textox
textox = texto
te = instr(1, textox, "<font face=""Verdana, Arial, Geneva, sans-serif"" size=2>", 1)
if te <> 0 and te <> vbNull then
texto1 = left(textox, te-1)
tu = instr(1, textox, "</font>", 1)
if tu <> 0 and tu <> vbNull then texto2 = mid(textox,tu+4)
extraeTodos = extraeTodos((texto1 & texto2))
end if
end function

En fin, espero haberte ayudado.


Chaus

[Nax]

Al contrario colega!

Lo que quiero es extraer el texto contenido entre esas dos etiquetas y ir guardandolo en una BD porque ese texto es justo el que me interesa!