Creación del archivo
Imports System.IO
Public Class CrearArchivo
Shared Sub main()
Dim intConteo, intCuantos As Integer
Try
Console.WriteLine("Indica el nombre del archivo y su ubicación:
")
Dim archivo As String
Dim objArchivo As TextWriter
archivo = Console.ReadLine
objArchivo = File.CreateText(archivo)
lineas:
Console.WriteLine("Cantidad de líneas del archivo: ")
intCuantos = Console.ReadLine()
Console.WriteLine()
Dim strElementos(intCuantos) As String ' declaracion del arreglo
Dim objResultado As TextWriter = Console.Out
Console.WriteLine("Escribe: {0} líneas <oprima intro despues de
cada una>", intCuantos)
For intConteo = 0 To intCuantos - 1
strElementos(intConteo) = Console.ReadLine
Next
Console.WriteLine()
Console.SetOut(objArchivo)
Console.WriteLine("-----<Líneas del archivo {0}>-----", archivo)
For intConteo = 0 To intCuantos
Console.WriteLine(UCase(strElementos(intConteo)))
Next
objArchivo.Close()
Console.SetOut(objResultado)
Console.WriteLine("***********Ha finalizado la creación del
archivo*************")
Console.ReadLine()
Catch e As Exception
Console.WriteLine(e.Message)
GoTo lineas
End Try
End Sub
End Class
LEctura del archivo
Public Class Archivo_a_leer
Public strlectorarchivo As System.IO.StreamReader
Shared Sub main()
Console.WriteLine() : Console.WriteLine()
Console.Write("Indica el nombre del archivo a leer debe terminar con
.txt: ")
strarchivo = Console.ReadLine()
If System.IO.File.Exists(strarchivo) = True Then
strlectorarchivo = System.IO.File.OpenText(strarchivo)
strlinealeida = "Algo"
Do Until strlinealeida Is Nothing
strlinealeida = strlectorarchivo.ReadLine()
intlineas += 1
Console.WriteLine(UCase(strlinealeida))
Loop
Console.WriteLine("El archivo contaba con {0} líneas", intlineas
- 2)
GoTo volver
Else
Console.WriteLine("El archivo {0} no existe", strarchivo)
volver:
Console.WriteLine("¿Proporcionar nuevamente el nombre del
archivo?:")
Dim otra As Char
otra = Console.ReadLine
If otra = "S" Or otra = "s" Then
Console.Clear()
Archivo_a_leer.main()
Else
Exit Sub
End If
End If
End Sub
End Class
Aleatorio
Public Class Adivina
Shared Sub Main()
Try
Dim intobj, intlimsup, intliminf, intpreg, intoport As Integer
Dim strentrada As String
Dim objAleatorio As System.Random = New System.Random()
Console.WriteLine("TECLEE EL NUMERO INFERIOR")
strentrada = Console.ReadLine
intliminf = CInt(strentrada)
Console.WriteLine("TECLEE NUMERO SUPERIOR")
strentrada = Console.ReadLine
intlimsup = CInt(strentrada)
intobj = objAleatorio.Next(intliminf, intlimsup + 1)
intpreg = 0 : intoport = 0
Do While intpreg <> intobj
Try
Console.WriteLine("ADIVINE EL NUMERO ALEATORIO")
strentrada = Console.ReadLine
intoport += 1
intpreg = strentrada
If intpreg < intobj Then Console.WriteLine("EL NUMERO ES
MAYOR")
If intpreg > intobj Then Console.WriteLine("EL NUMERO ES
MENOR")
Catch EXCEPTION2 As Exception
Console.WriteLine(EXCEPTION2.Message)
End Try
Loop
Console.WriteLine("LOGRO ADIVINAR {0} EN {1} APORTUNIDADES",
intobj, intoport)
Console.ReadLine()
Catch EXCEPTION As Exception
Console.WriteLine(EXCEPTION.Message)
End Try
End Sub
End Class
