cmd_tbl.pas

   1 program GeneradorDeArchivosDeComandos;\r
   2 {\r
   3    Programa para generar archivos de comandos\r
   4 }\r
   5 \r
   6 uses\r
   7    PROG_GRL, DOS;\r
   8 \r
   9 var\r
  10    fSal: T_ARCHIVO_COMANDOS_TABLA;\r
  11    c: T_COMANDO_TABLA;\r
  12    dir: dirstr;\r
  13    fname: namestr;\r
  14    ext: extstr;\r
  15 \r
  16 begin\r
  17    mensajeDeEntrada( 'Programa para crear archivos de comandos de TABLA.' );\r
  18    if paramcount < 1 then begin\r
  19       fsplit( paramstr( 0 ), dir, fname, ext );\r
  20       writeln;\r
  21       writeln;\r
  22       writeln( 'ERROR: numero de parametros incorrectos.' );\r
  23       writeln;\r
  24       writeln( 'Modo de uso:' );\r
  25       writeln( '             ', fname, ' archivo_entrada' );\r
  26       writeln;\r
  27       exit; { -------------------------------------> SALE DEL PROGRAMA!!!!!!!!!! }\r
  28    end;\r
  29    if ( not existeArchivo( paramstr( 1 ) ) ) then\r
  30       writeln( 'Escribiendo en el "', paramstr( 1 ), '".' )\r
  31    else\r
  32       writeln( 'Sobrescribiendo en el archivo "', paramstr( 1 ), '".' );\r
  33    assign( fSal, paramstr( 1 ) );\r
  34    rewrite( fSal );\r
  35    while true do begin { Repite hasta que el comando sea nulo }\r
  36       writeln;\r
  37       writeln;\r
  38       writeln( 'INGRESO DE UN NUEVO REGISTRO DE TABLA' );\r
  39       writeln( '======= == == ===== ======== == =====' );\r
  40       writeln;\r
  41       write( 'Comando (IN, IO, OR, BC, BR, LS, LC, BO, MO, LI, <ENTER>: sale): ' );\r
  42       readln( c.comando );\r
  43       if ( c.comando = '' ) then\r
  44          exit; { ----------> SALE DEL PROGRAMA!!!!!!!!!! }\r
  45       write( 'DNI: ' );\r
  46       readln( c.dni );\r
  47       if ( c.dni = '' ) then\r
  48          c.dni := '*';\r
  49       write( 'Nombre: ' );\r
  50       readln( c.nombre );\r
  51       if ( c.nombre = '' ) then\r
  52          c.nombre := '*';\r
  53       write( 'Movimiento (P, U, A, S): ' );\r
  54       readln( c.movimiento );\r
  55       if ( c.movimiento = '' ) then\r
  56          c.movimiento := '*';\r
  57       write( 'DNI_hasta: ' );\r
  58       readln( c.dni_hasta );\r
  59       if ( c.dni_hasta = '' ) then\r
  60          c.dni_hasta := '*';\r
  61       write( fSal, c );\r
  62    end;\r
  63    close( fSal );\r
  64    writeln;\r
  65    writeln( 'Se escribio correctamente el archivo "', paramstr( 1 ), '".' );\r
  66    writeln( 'FIN DEL PROGRAMA' );\r
  67    writeln;\r
  68 end.\r
  69 \r