Turbo Pascal 7 – Capítulo 05 – Archivos de texto

La manipulación de archivos de texto es esencial en la programación, ya que permite a los programas interactuar con el sistema de archivos y procesar información almacenada. Turbo Pascal 7 proporciona herramientas para trabajar con archivos y manipular texto de manera efectiva. En este capítulo, exploraremos la teoría detrás de la manipulación de archivos y el procesamiento de texto en Turbo Pascal 7, junto con ejemplos resueltos para una comprensión más sólida.

Archivos en Turbo Pascal 7
Los archivos son estructuras que almacenan datos en disco. Turbo Pascal 7 permite trabajar con archivos mediante tipos de datos llamados «archivos de texto» y «archivos binarios». Los archivos de texto almacenan información en formato de texto legible, mientras que los archivos binarios almacenan datos en su formato crudo.

Apertura y Cierre de Archivos:

var
  archivo: Text;
begin
  Assign(archivo, 'miarchivo.txt'); // Asigna el archivo
  Reset(archivo); // Abre el archivo para lectura
  // ... Operaciones en el archivo ...
  Close(archivo); // Cierra el archivo
end;

Lectura y Escritura en Archivos de Texto:

var
  archivo: Text;
  linea: String;
begin
  Assign(archivo, 'miarchivo.txt');
  Reset(archivo);
  while not Eof(archivo) do
  begin
    Readln(archivo, linea); // Lee una línea del archivo
    // ... Procesamiento de la línea ...
  end;
  Close(archivo);
end;

Manipulación de Texto en Turbo Pascal 7
Turbo Pascal 7 proporciona funciones y procedimientos para manipular texto, como la concatenación de cadenas, búsqueda y reemplazo de subcadenas, y conversión entre mayúsculas y minúsculas.

Ejemplo de Manipulación de Texto:

var
  cadena: String;
begin
  cadena := 'Hola, mundo!';
  writeln('Longitud de la cadena:', Length(cadena));
  writeln('Mayúsculas:', UpCase(cadena));
  writeln('Minúsculas:', LowerCase(cadena));
  writeln('Posición de "mundo":', Pos('mundo', cadena));
end;

Ejercicios Resueltos

Ejercicio 1: Crear un programa que lea un archivo de texto llamado «notas.txt» que contiene calificaciones separadas por saltos de línea, y calcule el promedio de las calificaciones.

var
  archivo: Text;
  calificacion: Integer;
  suma, cantidad: Integer;
begin
  Assign(archivo, 'notas.txt');
  Reset(archivo);
  suma := 0;
  cantidad := 0;
  while not Eof(archivo) do
  begin
    Readln(archivo, calificacion);
    suma := suma + calificacion;
    cantidad := cantidad + 1;
  end;
  Close(archivo);

  writeln('Promedio de calificaciones: ', suma / cantidad:0:2);
end.

Ejercicio 2: Crear un programa que lea un archivo de texto llamado «frases.txt» que contiene frases separadas por saltos de línea, y escriba en un nuevo archivo llamado «frases_mayusculas.txt» cada frase convertida a mayúsculas.

var
  archivoEntrada, archivoSalida: Text;
  frase: String;
begin
  Assign(archivoEntrada, 'frases.txt');
  Assign(archivoSalida, 'frases_mayusculas.txt');
  Reset(archivoEntrada);
  Rewrite(archivoSalida);

  while not Eof(archivoEntrada) do
  begin
    Readln(archivoEntrada, frase);
    Writeln(archivoSalida, UpperCase(frase));
  end;

  Close(archivoEntrada);
  Close(archivoSalida);
end.

Conclusión
La manipulación de archivos y texto es crucial para muchas aplicaciones de programación. Turbo Pascal 7 proporciona las herramientas necesarias para trabajar con archivos y procesar texto de manera eficiente. Los ejercicios resueltos ilustran cómo leer y escribir archivos de texto, así como cómo realizar operaciones de manipulación de texto.