PseIntRebel_Archivos_v2

Inicio
    //Archivo var_archivo; //Crea una variable tipo 'archivo' (internamente es un entero)
    //var_archivo <- LeerArchivo(ubicacion); //Abre un archivo en la ubicacion para lectura
    //var_archivo <- CrearArchivo(ubicacion); //Crea un archivo en la ubicacion o lo sobreescribe
    //var_logica <- CerrarArchivo(var_archivo); //Cierra el archivo abierto  (No hace falta el retorno)
    //var_caracter <- LeerArchivo(var_archivo); //Extrae contenido de una linea del archivo y avanza a la siguiente
    //var_logica <- EscribirArchivo(var_archivo, expresion_texto); //Escribe la expresion en nueva linea de archivo
    //var_logica <- FinDeArchivo(num_archivo); //Retorna verdadero si llegó al final del archivo

    Definir cArchivo, vLinea Como Cadena
    Definir i,opc Como Entero
    Definir linea, vOp Como Logico
    Definir cUsuario, nEdad Como Cadena
    Definir cRuta Como Cadena

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

    Borrar Pantalla
    Escribir "Menu Principal"
    Escribir "1. Crear archivo"
    Escribir "2. Escribir en Archivo"
    Escribir "3. Leer el Archivo"
    Escribir "4. Salir"
    Leer opc

    Segun opc Hacer
        1:
            Escribir "Todos los archivos se crearan en " + cRuta
            Escribir "Que nombre le quieres dar a tu archivo?"
            Leer cArchivo
            cArchivo = cRuta + cArchivo + ".txt"
            nArchivo = CrearArchivo( cArchivo )
            vOp = CerrarArchivo (nArchivo)
            Escribir "Archivo creado con exito"

        2:
            Escribir "Vamos a escribir en el archivo que indiques"
            Escribir "Como se llama el archivo?"
            Leer cArchivo
            cArchivo = cRuta + cArchivo + ".txt"
            nArchivo = AbrirArchivo( cArchivo )
            Escribir "Grabando en el archivo"
            Escribir "Nombre del usuario"
            Leer cUsuario
            Escribir "Edad del usuario"
            Leer nEdad

            Escribir "Vamos a evaluar si es fin del archivo"
            si FindeArchivo( nArchivo) Entonces
                Escribir "Encontro que es final del archivo, se greaba"
                linea = EscribirArchivo( nArchivo, cUsuario)
                linea = EscribirArchivo( nArchivo, nEdad)
            Sino
                Escribir "No hay fin de archivo, hay que avanzar lineas hasta el final"
                repetir
                    vLinea = LeerArchivo(nArchivo)
                    Escribir "linea: " + vLinea
                Hasta Que FinDeArchivo( nArchivo )
                Escribir "Alcanzo el EOF"
                linea = EscribirArchivo( nArchivo, cUsuario)
                linea = EscribirArchivo( nArchivo, nEdad)

            FinSi
            Escribir "Cerramos el archivo"
            vOp = CerrarArchivo( nArchivo )

        3:
            Escribir "Vamos a leer el archivo"
            Escribir "Como se llama el archivo?"
            Leer cArchivo
            cArchivo = cRuta + cArchivo + ".txt"
            nArchivo = AbrirArchivo( cArchivo )
            Escribir "Leyendo del archivo"

            Repetir
                vLinea = LeerArchivo( nArchivo)
                Escribir sin saltar  "Nombre: ", vLinea
                vLinea = LeerArchivo( nArchivo)
                Escribir " - Edad: ", vLinea
            Hasta Que FinDeArchivo(nArchivo)

            vOp = CerrarArchivo( nArchivo )

    FinSegun

Fin