Visual Basic.NET - abrir un fichero de texto

   
Vista:

abrir un fichero de texto

Publicado por Ana (20 intervenciones) el 15/11/2007 09:07:15
hola!! gracias por adelantado.
Mi problema es que tengo que abrir y leer un fichero de texto, he conseguido que al darle al menú de abrir me salga el cuadro para examinar las carpetas y localizar el archivo, pero no puedo abrirlo!! cómo lo hago?? tb tengo que leerlo

saludos, Ana
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:abrir un fichero de texto

Publicado por shava (1 intervención) el 16/11/2007 01:01:12
Imports System
Imports System.IO
Imports System.Collections

Module Module1

Sub Main()
Dim objReader As New StreamReader("c:\test.txt")
Dim sLine As String = ""
Dim arrText As New ArrayList()

Do
sLine = objReader.ReadLine()
If Not sLine Is NothingThen
arrText.Add(sLine)
End If
Loop Until sLine Is Nothing
objReader.Close()

For Each sLine In arrText
Console.WriteLine(sLine)
Next
Console.ReadLine()
End Sub

End Module

http://support.microsoft.com/kb/302309/es
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:abrir un fichero de texto

Publicado por Ana (20 intervenciones) el 16/11/2007 09:21:54
Muchas gracias, el código es muy bueno, pero ahora me surge otro problema, aqui hay que pasarle la ruta en el código, pero la ruta no es siempre la misma...

este es el código que he utilizado para examinar las carpetas y llegar hasta el archivo que necesito:

Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "Archivos de texto (*.txt)|*.txt"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
' Aquí va el código para abrir el archivo y leerlo
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar