home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / ARCHIVOS.ONU < prev    next >
Text File  |  1998-03-02  |  4KB  |  121 lines
  1. ;;               ┌────────────────────────────────────────┐
  2. ;;               │      Programa Archivos, basado en      │
  3. ;;               │   utilidades para ficheros de MS-DOS,  │
  4. ;;               │    por Miguel Angel Morano Domínguez   │
  5. ;;               └────────────────────────────────────────┘
  6.  
  7. Variables
  8.   op: entero
  9.   archivo,arch,fila: cadena
  10.  
  11. Principio
  12.   op:=0
  13.   Mientras (op<>4) hacer
  14.     arch:=''
  15.     archivo:=''
  16.     Color (rojo,blanco)
  17.     Borra
  18.     Posiciona (29,2); Escribeln('OPERACIONES CON FICHEROS')
  19.     Posiciona (28,3); Escribeln('══════════════════════════')
  20.     Color (blanco,azul)
  21.     Marco ('═',27,5,54,15)
  22.     Posiciona (30,7);  Escribeln ('1. Visualizar archivo.')
  23.     Posiciona (30,9);  Escribeln ('2. Borrar archivo.')
  24.     Posiciona (30,11); Escribeln ('3. Copiar archivo.')
  25.     Posiciona (30,13); Escribeln ('4. Salir.')
  26.     Color (azul,blanco)
  27.     Posiciona (10,17);Escribeln ('Opción: ')
  28.     Posiciona (19,17);AceptaEntero (op,1)
  29.     si (op=1) entonces
  30.       Mientras (arch='') hacer
  31.         Color (negro,blanco)
  32.         Posiciona (12,20);Escribeln('┌────────────────────────────────────────────────────────')
  33.         Posiciona (12,21);Escribeln('│')
  34.         Color (blanco,blanco)
  35.         Posiciona (69,21);Escribeln('│')
  36.         Posiciona (13,22);Escribeln('────────────────────────────────────────────────────────┘')
  37.         Color (negro,blanco)
  38.         Posiciona (14,21);Escribeln ('Archivo a visualizar: ')
  39.         Color (azul,blanco)
  40.         Posiciona (36,21);AceptaCadena (arch,32)
  41.       FinMientras
  42.       AbreLectura (arch)
  43.       Borra
  44.       Mientras no FF (arch) hacer
  45.         Leer (arch,fila)
  46.         Escribeln (fila)
  47.         espera (200)
  48.       FinMientras
  49.       Escribeln
  50.       Escribeln ('            P U L S E  U N A  T E C L A  P A R A  C O N T I N U A R')
  51.       Aceptatecla
  52.       Cerrar (arch)
  53.     Finsi
  54.  
  55.     si (op=2) entonces
  56.       Mientras (arch='') hacer
  57.         Color (negro,blanco)
  58.         Posiciona (12,20);Escribeln('┌────────────────────────────────────────────────────────')
  59.         Posiciona (12,21);Escribeln('│')
  60.         Color (blanco,blanco)
  61.         Posiciona (69,21);Escribeln('│')
  62.         Posiciona (13,22);Escribeln('────────────────────────────────────────────────────────┘')
  63.         Color (negro,blanco)
  64.         Posiciona (14,21);Escribeln ('Archivo a Borrar: ')
  65.         Color (azul,blanco)
  66.         Posiciona (32,21);AceptaCadena (arch,32)
  67.       FinMientras
  68.       Borrar (arch)
  69.       Color (negro,negro)
  70.       Marco(' ',22,12,62,17)
  71.       Color (blanco,rojo)
  72.       Marco('─',20,11,60,16)
  73.       Posiciona (32,12);Escribeln ('Borrado archivo...')
  74.       Posiciona (40-Longitud(arch) dividido 2,13);Escribeln (arch)
  75.       Posiciona (32,15);Escribeln ('(Pulse una tecla)')
  76.       Posiciona (50,15);Aceptatecla
  77.     Finsi
  78.  
  79.     si (op=3) entonces
  80.       Color (negro,blanco)
  81.       Posiciona (12,19);Escribeln('┌────────────────────────────────────────────────────────')
  82.       Posiciona (12,20);Escribeln('│')
  83.       Posiciona (12,21);Escribeln('│')
  84.       Posiciona (12,22);Escribeln('│')
  85.       Color (blanco,blanco)
  86.       Posiciona (69,20);Escribeln('│')
  87.       Posiciona (69,21);Escribeln('│')
  88.       Posiciona (69,22);Escribeln('│')
  89.       Posiciona (13,23);Escribeln('────────────────────────────────────────────────────────┘')
  90.       Color (negro,blanco)
  91.       Posiciona (14,20);Escribeln ('Archivo a copiar: ')
  92.       Posiciona (14,22);Escribeln ('Archivo destino: ')
  93.       Color (azul,blanco)
  94.       Mientras (arch='') hacer
  95.         Posiciona (32,20);AceptaCadena (arch,32)
  96.       FinMientras
  97.       Mientras (archivo='') hacer
  98.         Posiciona (31,22); AceptaCadena (archivo,32)
  99.       FinMientras
  100.       AbreLectura (arch)
  101.       Crear (archivo)
  102.       AbreEscritura (archivo)
  103.       Mientras no FF (arch) hacer
  104.         Leer (arch,fila)     
  105.         Escribir (archivo,fila)
  106.       FinMientras
  107.       Cerrar (arch)
  108.       Cerrar (archivo)
  109.       Color (negro,negro)
  110.       Marco(' ',22,12,62,17)
  111.       Color (blanco,rojo)
  112.       Marco('─',20,11,60,16)
  113.       Posiciona (32,12);Escribeln ('Copiado archivo...')
  114.       Posiciona (40-Longitud(arch) dividido 2,13);Escribeln (arch)
  115.       Posiciona (32,15);Escribeln ('(Pulse una tecla)')
  116.       Posiciona (50,15);Aceptatecla
  117.     Finsi
  118.   FinMientras
  119.   Color (gris,negro)
  120.   Borra
  121.