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
Si hay alguna duda sobre el código preguntenme! 😀
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! 😀

