En este módulo, aprenderemos cómo manejar archivos en MUMPS. Trabajar con archivos es una habilidad esencial para cualquier programador, ya que permite almacenar y recuperar datos de manera persistente. Exploraremos cómo abrir, leer, escribir y cerrar archivos en MUMPS.

Contenido

Introducción al Manejo de Archivos

MUMPS proporciona comandos específicos para trabajar con archivos. Los comandos más importantes son:

  • OPEN: Abre un archivo.
  • USE: Selecciona un dispositivo (archivo) para operaciones de entrada/salida.
  • READ: Lee datos desde un archivo.
  • WRITE: Escribe datos en un archivo.
  • CLOSE: Cierra un archivo.

Abrir y Cerrar Archivos

Abrir un Archivo

Para abrir un archivo en MUMPS, utilizamos el comando OPEN. Aquí hay un ejemplo básico:

OPEN "miarchivo.txt":("R"):1
IF '$TEST WRITE "Error al abrir el archivo",! QUIT
USE "miarchivo.txt"
  • "miarchivo.txt": Nombre del archivo.
  • ("R"): Modo de apertura (en este caso, lectura).
  • 1: Timeout (en segundos) para intentar abrir el archivo.

Cerrar un Archivo

Para cerrar un archivo, utilizamos el comando CLOSE:

CLOSE "miarchivo.txt"

Leer desde un Archivo

Para leer datos desde un archivo, utilizamos el comando READ. Aquí hay un ejemplo:

OPEN "miarchivo.txt":("R"):1
IF '$TEST WRITE "Error al abrir el archivo",! QUIT
USE "miarchivo.txt"

READ linea
WRITE "Contenido del archivo: ", linea,!

CLOSE "miarchivo.txt"

En este ejemplo:

  • Abrimos el archivo en modo lectura.
  • Leemos una línea del archivo y la almacenamos en la variable linea.
  • Escribimos el contenido de la variable linea en la pantalla.
  • Cerramos el archivo.

Escribir en un Archivo

Para escribir datos en un archivo, utilizamos el comando WRITE. Aquí hay un ejemplo:

OPEN "miarchivo.txt":("W"):1
IF '$TEST WRITE "Error al abrir el archivo",! QUIT
USE "miarchivo.txt"

WRITE "Hola, MUMPS!",!

CLOSE "miarchivo.txt"

En este ejemplo:

  • Abrimos el archivo en modo escritura.
  • Escribimos la cadena "Hola, MUMPS!" en el archivo.
  • Cerramos el archivo.

Ejercicios Prácticos

Ejercicio 1: Leer y Escribir en un Archivo

  1. Crea un archivo llamado datos.txt y escribe las siguientes líneas en él:

    Línea 1
    Línea 2
    Línea 3
    
  2. Escribe un programa en MUMPS que lea cada línea del archivo datos.txt y la escriba en un nuevo archivo llamado copia.txt.

Solución:

; Abrir el archivo de origen en modo lectura
OPEN "datos.txt":("R"):1
IF '$TEST WRITE "Error al abrir datos.txt",! QUIT
USE "datos.txt"

; Abrir el archivo de destino en modo escritura
OPEN "copia.txt":("W"):1
IF '$TEST WRITE "Error al abrir copia.txt",! QUIT
USE "copia.txt"

; Leer y escribir cada línea
FOR  DO  QUIT:$ZEOF
. USE "datos.txt"
. READ linea
. USE "copia.txt"
. WRITE linea,!

; Cerrar ambos archivos
CLOSE "datos.txt"
CLOSE "copia.txt"

Ejercicio 2: Contar Líneas en un Archivo

Escribe un programa en MUMPS que cuente el número de líneas en un archivo llamado conteo.txt.

Solución:

; Abrir el archivo en modo lectura
OPEN "conteo.txt":("R"):1
IF '$TEST WRITE "Error al abrir conteo.txt",! QUIT
USE "conteo.txt"

; Inicializar el contador de líneas
SET contador=0

; Leer cada línea y aumentar el contador
FOR  DO  QUIT:$ZEOF
. READ linea
. SET contador=contador+1

; Escribir el número de líneas
WRITE "Número de líneas: ", contador,!

; Cerrar el archivo
CLOSE "conteo.txt"

Conclusión

En esta sección, hemos aprendido cómo manejar archivos en MUMPS. Hemos cubierto cómo abrir, leer, escribir y cerrar archivos. Además, hemos practicado estos conceptos con ejercicios prácticos. El manejo de archivos es una habilidad fundamental que te permitirá trabajar con datos de manera persistente en tus programas MUMPS.

En el próximo módulo, exploraremos conceptos avanzados de programación en MUMPS, incluyendo estructuras de control avanzadas y manejo de errores. ¡Sigue adelante!

© Copyright 2024. Todos los derechos reservados