En aquest tema, aprendrem com gestionar arxius en MUMPS. La gestió d'arxius és una habilitat essencial per a qualsevol programador, ja que permet emmagatzemar, recuperar i manipular dades de manera persistent. Explorarem com obrir, llegir, escriure i tancar arxius en MUMPS.

Objectius

  • Entendre com obrir i tancar arxius en MUMPS.
  • Aprendre a llegir i escriure dades en arxius.
  • Gestionar errors comuns en la manipulació d'arxius.

  1. Obrir i Tancar Arxius

Obrir un Arxiu

Per obrir un arxiu en MUMPS, utilitzem la comanda OPEN. Aquesta comanda prepara l'arxiu per a la lectura o escriptura.

OPEN "nom_arxiu":(mode:permissions):timeout
  • nom_arxiu: El nom de l'arxiu que volem obrir.
  • mode: El mode en què volem obrir l'arxiu ("R" per llegir, "W" per escriure, "A" per afegir).
  • permissions: Els permisos de l'arxiu (opcional).
  • timeout: El temps d'espera per obrir l'arxiu (opcional).

Exemple: Obrir un Arxiu per Llegir

OPEN "dades.txt":"R"
USE "dades.txt"

Tancar un Arxiu

Per tancar un arxiu, utilitzem la comanda CLOSE.

CLOSE "nom_arxiu"

Exemple: Tancar un Arxiu

CLOSE "dades.txt"

  1. Llegir Dades d'un Arxiu

Per llegir dades d'un arxiu, utilitzem la comanda READ. Aquesta comanda llegeix una línia de l'arxiu i la guarda en una variable.

Exemple: Llegir una Línia d'un Arxiu

OPEN "dades.txt":"R"
USE "dades.txt"
READ linia
WRITE linia
CLOSE "dades.txt"

  1. Escriure Dades en un Arxiu

Per escriure dades en un arxiu, utilitzem la comanda WRITE. Aquesta comanda escriu una línia en l'arxiu.

Exemple: Escriure una Línia en un Arxiu

OPEN "dades.txt":"W"
USE "dades.txt"
WRITE "Aquesta és una línia de text."
CLOSE "dades.txt"

  1. Exemple Complet: Llegir i Escriure en un Arxiu

Exemple: Copiar Contingut d'un Arxiu a un Altre

; Obrir l'arxiu d'origen per llegir
OPEN "origen.txt":"R"
USE "origen.txt"

; Obrir l'arxiu de destí per escriure
OPEN "desti.txt":"W"
USE "desti.txt"

; Llegir i escriure línia per línia
FOR  DO  QUIT:$ZEOF
. READ linia
. USE "desti.txt"
. WRITE linia,!
. USE "origen.txt"

; Tancar els arxius
CLOSE "origen.txt"
CLOSE "desti.txt"

  1. Gestió d'Errors

Exemple: Comprovar si l'Arxiu Existeix

NEW $ETRAP
SET $ETRAP="GOTO ERROR"

OPEN "dades.txt":"R"
USE "dades.txt"
READ linia
WRITE linia
CLOSE "dades.txt"
QUIT

ERROR
WRITE "Error: No s'ha pogut obrir l'arxiu.",!
QUIT

Exercicis Pràctics

Exercici 1: Llegir un Arxiu i Comptar les Línies

Escriu un programa que llegeixi un arxiu de text i compti el nombre de línies que conté.

Solució

NEW $ETRAP, linia, comptador
SET $ETRAP="GOTO ERROR"
SET comptador=0

OPEN "dades.txt":"R"
USE "dades.txt"

FOR  DO  QUIT:$ZEOF
. READ linia
. SET comptador=comptador+1

CLOSE "dades.txt"
WRITE "Nombre de línies: ", comptador,!
QUIT

ERROR
WRITE "Error: No s'ha pogut obrir l'arxiu.",!
QUIT

Exercici 2: Escriure un Arxiu amb Nombres del 1 al 10

Escriu un programa que creï un arxiu de text i escrigui els nombres del 1 al 10, un per línia.

Solució

NEW $ETRAP, i
SET $ETRAP="GOTO ERROR"

OPEN "nombres.txt":"W"
USE "nombres.txt"

FOR i=1:1:10 DO
. WRITE i,!

CLOSE "nombres.txt"
QUIT

ERROR
WRITE "Error: No s'ha pogut crear l'arxiu.",!
QUIT

Conclusió

En aquesta secció, hem après com gestionar arxius en MUMPS, incloent com obrir, llegir, escriure i tancar arxius. També hem vist com gestionar errors comuns en la manipulació d'arxius. Aquestes habilitats són fonamentals per a qualsevol programador que necessiti treballar amb dades persistents. En el proper mòdul, explorarem conceptes avançats de programació en MUMPS.

© Copyright 2024. Tots els drets reservats