TEXT*
 Muestra un bloque literal de texto
------------------------------------------------------------------------------
 Sintaxis

     TEXT [TO PRINTER] [TO FILE <xcFichero>]
        <texto>...
     ENDTEXT

 Argumentos

     <texto> es el bloque de caracteres literales que se va a mostrar en
     la pantalla. El texto se muestra exactamente como está formateado.

     TO PRINTER envía a la impresora el bloque de texto.

     TO FILE <xcFichero> envía el bloque de texto al fichero
     especificado. <xcFichero> puede especificarse como un nombre de fichero
     literal o como una expresión de caracteres entre paréntesis. Si no se
     especifica extensión, se supone .txt.

 Descripción

     TEXT...ENDTEXT es una estructura de mandatos de consola que muestra un
     bloque de texto en la pantalla, enviándolo opcionalmente a la impresora
     o a un fichero de texto. Para suprimir la salida en la pantalla
     mientras se imprime o se envía el bloque a un fichero, establezca SET
     CONSOLE OFF en la línea de programa anterior a TEXT.

     El texto contenido en la estructura TEXT se muestra exactamente con el
     formato que tenga, incluyendo sangrados. Los retornos de carro
     permanentes se convierten en nuevas líneas en la salida, y los retornos
     de carro automáticos en el carácter CHR(141). Las variables de macro
     que se encuentren en la estructura TEXT...ENDTEXT se expanden, pero las
     expresiones de macro no.

     TEXT...ENDTEXT es un mandato de compatibilidad y no se recomienda su
     utilización. CA-Clipper dispone de otras funciones para el
     procesamiento y salida de texto. Por ejemplo, MEMOLINE() en combinación
     con MLCOUNT() permite introducir saltos de línea automáticos en cadenas
     muy largas, según una longitud de línea especificada. ? o @...SAY
     permiten mostrar texto formateado extraído de una cadena con
     MEMOLINE().

 Ejemplos

      Este ejemplo muestra la forma de utilización de TEXT...ENDTEXT
        para imprimir una carta modelo:

        USE Ventas NEW
        DO WHILE !EOF()
           CartaModelo()
           SKIP
        ENDDO
        RETURN

        FUNCTION CartaModelo
           LOCAL dFecha := DTOC(DATE()), cVendedor := ;
                     RTRIM(Vendedor)
           TEXT TO PRINTER
           &dFecha.
           Querido &cVendedor.,
           ¿Cómo está Vd.?
           ENDTEXT
           EJECT
           RETURN NIL

 Ficheros   La biblioteca asociada es CLIPPER.LIB.

 To download this example - click here.

See Also: ?|?? @...SAY MEMOLINE() MLCOUNT() SET CONSOLE