Ayuda con consultas en Visual Studio utilizando código en C

  • Autor Autor Climboing
  • Fecha de inicio Fecha de inicio
C

Climboing

Beta
¡Usuario con pocos negocios! ¡Utiliza siempre saldo de Forobeta!
Buenas Betas!

Hoy vengo con un problemilla con mi tarea, quien sepa algo de programación le agradecería mucho que me ayudara. En la escuela me dejaron hacer una "agenda" en Visual Studio utilizando una aplicación de consola, y los datos que ingrese el usuario se pudieran guardar en un archivo .txt, pude hacerlo, pero el problema ahora es que me pide que haga consultas, o sea que pueda hacer busquedas, el problema es que no se si es posible buscar en un archivo de texto desde la consola y si es posible como lo podria hacer. De antemano muchas gracias! llevo todo el dia buscando alternativas :/

NOTAS:
- Uso Visual Studio 2012
- El codigo Fuente
Insertar CODE, HTML o PHP:
Imports System.IO 'Declarar la libreria
Module Module1
    Sub main()

        Dim archivo As String = "E:/archivos/agenda/agenda.txt"

        Dim i As String
        Dim a, b, c, d, ii(10), bus As Integer
        Dim writer As StreamWriter
        Dim read As StreamReader
        Dim info As FileInfo
        Dim name(20), sname(20), tname(20), nphone(20), adress(20) As String

        Do 'Inicio del programa
            b = 1
            Console.ForegroundColor = ConsoleColor.Cyan
            Console.WriteLine("Que desea hacer? [1]Consultas [2] Registros [3]Salir")
            c = Console.ReadLine() ' c como respuesta

            If c = 1 Then 'Inicio de opcion 1

                Dim texto() As String = File.ReadAllLines(archivo)
                For Each i In texto
                    Console.WriteLine(i)
                Next
                Console.WriteLine(name(2))

            ElseIf c = 2 Then 'Inicio de opcion 2
                writer = New StreamWriter("E:/archivos/agenda/agenda.txt", True)
                Console.WriteLine(vbNewLine & "Cuantos contactos desea agregar? [MAX 20]")
                a = Console.ReadLine() ' a como limite

                Do While b <= a ' b como contador
                    If a <= 20 Then
                        writer.Write((b) & " ")
                        Console.WriteLine("Ingrese el nombre: ")
                        name(b) = Console.ReadLine
                        writer.Write(name(b) & " ")
                        Console.WriteLine("Ingrese el apellido paterno: ")
                        sname(b) = Console.ReadLine
                        writer.Write(sname(b) & " ")
                        Console.WriteLine("Ingrese el apellido materno: ")
                        tname(b) = Console.ReadLine
                        writer.Write(tname(b) & " ")
                        Console.WriteLine("Ingrese el numero de telefono: ")
                        nphone(b) = Console.ReadLine
                        writer.Write(nphone(b) & " ")
                        Console.WriteLine("Ingrese la Dirreccion: ")
                        adress(b) = Console.ReadLine
                        writer.Write(adress(b) & " ")
                        writer.WriteLine()
                        Console.WriteLine("{0}-{1}", a, b)

                        Console.WriteLine(vbNewLine)
                        b = b + 1
                    End If
                Loop
                Console.Clear()
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("Usuarios agregados exitosamente " & name(b))
                Console.ReadLine()
                writer.Close()
            ElseIf c = 3 Then 'Salir
                b = 0
            Else
                Console.ForegroundColor = ConsoleColor.Red
                Console.WriteLine("** Ingrese un valor valido **")
            End If
        Loop While b >= 1
        Console.ReadLine()
    End Sub
End Module

Si hay alguna duda sobre el código preguntenme! 😀
 
Atrás
Arriba