... + 1 else cLine := Substr( cText, nFrom ) nFrom := Len( cText ) + 1 endif return cLine Solo tienes que cambiar CRLF por el delimitador que uses //------------------------------------------------------------------------ Antonio Gracias, lo intentare Jairo