Rexx - caracteres

Esta función devuelve 1 o el número de caracteres que quedan por leer en el archivo. El nombre del archivo se menciona como un parámetro de la función.

Sintaxis

chars(filename)

Parámetros

  • filename - Este es el nombre del archivo para el que se debe determinar el final del archivo.

Valor devuelto

Esta función devuelve 1 o el número de caracteres que quedan por leer en el archivo.

Ejemplo

/* Main program */ 
str = '' 
do j = 1 while chars(Example.txt) > 0 
   str = ' ' (charin(Example.txt)) 
   call charout ,str 
end

Se deben tener en cuenta las siguientes cosas sobre el programa anterior:

  • Primero se asigna una variable de cadena a un valor nulo.

  • Luego, el 'bucle do' se usa para leer cada carácter a la vez.

  • Cada carácter se lee y luego se envía a la consola.

Cuando ejecutamos el programa anterior, obtendremos el siguiente resultado.

Salida

E x a m p l e 1 
E x a m p l e 2 
E x a m p l e 3