Alguna funcion que convierta un html en txt

[Vladimir Zorrilla]

Existe alguna funcion para convertir un archivo html
en archivo de texto libre de etiquetas


Gracias

[Antonio Linares]

Vladimir,

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