PseIntRebel_Actividad157_AutosEscribir_v2

Proceso Actividad156
    // Elaborar un inventario de autos de una concesionaria
    // Solo el modulo para leer. Los datos ya se encuentran.

    Definir cArchivo, cLinea Como Cadena
    Definir vLinea Como Logico
    Definir vOp Como Logico
    Definir cRuta Como Cadena


    //Archivo demo;
    Archivo nArchivo;
    cRuta = "C:\PruebasArchivos\"

    Registro rVehiculo{marca, linea, color, cantidad, valorUnidad}

    Escribir "GESTION DE VEHICULOS"
    Escribir sin saltar "Ingresa la marca del vehiculo: "
    Leer rVehiculo.marca
    Escribir sin saltar "Ingresa la linea del vehiculo: "
    Leer rVehiculo.linea
    Escribir sin saltar "Ingresa el color del vehiculo: "
    Leer rVehiculo.color
    Escribir sin saltar "Ingresa la cantidad de vehiculos que ingresan a almacen: "
    Leer rVehiculo.cantidad
    Escribir sin saltar "Ingresa el precio del vehiculo: "
    Leer rVehiculo.valorUnidad


    //Paso 2. Abrir el archivo a procesar.
    Escribir "¿Como se llama el archivo a usar? (Default inventario) Recuerda que esta en: ", cRuta
    Leer cArchivo
    cArchivo = cRuta + cArchivo + ".txt"
    nArchivo = AbrirArchivo( cArchivo )

    //Validacion si no se abre el archivo o deberiamos detectar
    //antes si existe el archivo en disco para crearlo.
    //En pseudocodigo no se puede hacer esto porque no tenemos
    //las funciones para detectar archivos en disco o errores
    // Pero este seria una parte para la validacion.
    //Escribir "nArchivo = ", nArchivo
    //Si nAchivo <> 1 entonces
    //  Escribir "El archivo no esta creado, debemos crearlo..."
    //  nArchivo = CrearArchivo( cArchivo )
    //  vOp = CerrarArchivo (nArchivo)
    //  Escribir "Archivo creado con exito"
    //FinSi

    Escribir "Guardando datos en el archivo..."

    si No FindeArchivo( nArchivo) Entonces
        repetir
            cLinea = LeerArchivo( nArchivo)
        Hasta Que FinDeArchivo( nArchivo )
    FinSi
    vLinea = EscribirArchivo( nArchivo, rVehiculo.marca)
    vLinea = EscribirArchivo( nArchivo, rVehiculo.linea )
    vLinea = EscribirArchivo( nArchivo, rVehiculo.color )
    vLinea = EscribirArchivo( nArchivo, rVehiculo.cantidad )
    vLinea = EscribirArchivo( nArchivo, rVehiculo.valorUnidad )

    vOp = CerrarArchivo( nArchivo )

FinProceso