PseIntRebel_Actividad156_AutosLeer

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

    Definir cArchivo, vLinea Como Cadena
    Definir i Como Entero
    Definir vOp Como Logico
    Definir nombre, edad Como Cadena
    Definir cRuta Como Cadena

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

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


    //Paso 1. 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 )
    Escribir "Leyendo del archivo..."
    i = 1
    Repetir
        rVehiculo.marca = LeerArchivo( nArchivo)
        rVehiculo.linea = LeerArchivo( nArchivo )
        rVehiculo.color = LeerArchivo( nArchivo )
        rVehiculo.cantidad = LeerArchivo( nArchivo )
        rVehiculo.valorUnidad = LeerArchivo( nArchivo )
        i = i + 1

        Escribir rVehiculo.marca +"-" + rVehiculo.linea + "-" + rVehiculo.color + "-" + rVehiculo.cantidad + "-" + rVehiculo.valorUnidad

    Hasta Que FinDeArchivo(nArchivo)

    vOp = CerrarArchivo( nArchivo )

FinProceso