Test Foro de elhacker.net SMF 2.1

Hola gente..
Les comento que estoy leyendo un .txt linea por linea de la siguiente manera:
Dim linea As String = ""
Dim sr As StreamReader = New StreamReader(Archivo.Text)
        While True
            linea = sr.ReadLine
            If linea = "" Then
                Exit While
            End If
            MsgBox(linea)
        End While
sr.Close()
sr.Dispose()

Resulta que, cuando el msgbox me muestra la linea, en las letras con ACENTOS, aparecen cuadraditos.. como que no reconoce el caracter...
Que me pueden recomendar??

O algun otro metodo para leer un .txt linea por linea?


Dim linea As String = ""
Dim def As Encoding = Encoding.Default
Dim sr As StreamReader = New StreamReader(Archivo.Text, def, False)
    While True
       linea = sr.ReadLine
       If linea = "" Then
       Exit While
       End If
       MsgBox(linea)
    End While
sr.Close()
sr.Dispose()


Ahora realizo lo siguiente:
        Dim Lector As StreamReader = File.OpenText("C:\Users\Noel\Desktop\Leeme - DataBase.txt")
        While Not Lector.EndOfStream
            MsgBox(Lector.ReadLine)
        End While
Y sigue dando el mismo tipo de problema :/

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.

Cita de: 43H4FH44H45H4CH49H56H45H en 25 Octubre 2009, 23:37 PM

Código (vbnet) [Seleccionar] Expandir


Dim linea As String = ""
Dim def As Encoding = Encoding.Default
Dim sr As StreamReader = New StreamReader(Archivo.Text, def, False)
    While True
       linea = sr.ReadLine
       If linea = "" Then
       Exit While
       End If
       MsgBox(linea)
    End While
sr.Close()
sr.Dispose()


Muchas gracias!!.. Eso solucionó mi problema..
Me recomiendas leer así los archivos de texto? o hay algo mejor??

Para que sirve el false del final?  :huh:

Indica si se deben buscar marcas de orden de Byte al comienzo del archivo

Cita de: Skeletron en 25 Octubre 2009, 23:53 PM
Indica si se deben buscar marcas de orden de Byte al comienzo del archivo

Quiero decir que no entiendo que significa eso, traducirlo yo tambien se xD

primero habria que preguntarse porque tiene esos caracteres, ¿ que programa genera el archivo ?

Es la abse de adtos de Efemerides Sebas..
Las estoy pasando de la ex base de datos de .txt a base de datos SQLite

Cita de: Skeletron en 26 Octubre 2009, 02:36 AM
Es la abse de adtos de Efemerides Sebas..
Las estoy pasando de la ex base de datos de .txt a base de datos SQLite

a ok...esta bien..una vez que termines tambien hacete un alta de efemerides asi tenes como un administrador de las mismas, para que puedas dar de alta y subirlas para bajar, suerte.

saludos.

Cita de: seba123neo en 26 Octubre 2009, 02:41 AM

Cita de: Skeletron en 26 Octubre 2009, 02:36 AM
Es la abse de adtos de Efemerides Sebas..
Las estoy pasando de la ex base de datos de .txt a base de datos SQLite

a ok...esta bien..una vez que termines tambien hacete un alta de efemerides asi tenes como un administrador de las mismas, para que puedas dar de alta y subirlas para bajar, suerte.

saludos.

Eso mismo estoy haciendo ahora...

Y luego cuando haga a VIDay del tipo: 2.0 (que los usuarios agreguen efemerides) tendré que mejorarlo aun mas.. :D