Alguna funcion que convierta un html en txt
Posted: Wed Nov 19, 2008 7:25 pm
Existe alguna funcion para convertir un archivo html
en archivo de texto libre de etiquetas
Gracias
en archivo de texto libre de etiquetas
Gracias
Nosotros usamos esta función para quitar los tags:
Code: Select all
function RemoveTags( cText ) // Quita "< ... >" de un texto
local nStart, nEnd
while ( nStart := At( "<", cText ) ) != 0
nEnd = At( ">", SubStr( cText, nStart + 1 ) )
if nEnd == 0
nEnd = nStart
else
nEnd += nStart
endif
cText = If( nStart > 1, SubStr( cText, 1, nStart - 1 ), "" ) + SubStr( cText, nEnd + 1 )
end
return cText