Ayuda en fichero de texto en aplicacion mobil

[erbuson]

Hola, aunque este no es el foro adecuado, ya que deberías preguntar en el de VB.NET, te voy a contestar como lo haría yo que estoy intentando hacer un pequeño aplicativo también para PDA basado en archivos de Texto.

Podrías abrir el archivo como LECTURA y procesarlo del principio al final o hasta que encuentres coincidencia con el dato leido. Por supuesto sales de la funcion cerrando el archivo.

Si encuentras coincidencia, das el mensaje de aviso. Si no la encuentras puedes grabar el nuevo valor leido.

Te pongo un ejemplo de una rutina que tengo creada para leer integramente un archivo de texto en un Array de Cadena

Código vb:

Public Function txtInput(ByVal Fichero As String, ByRef Lineas() As String) As Boolean
        ' Lee un fichero Secuencial si existe y lo devuelve en el Array indicado.
        ' Devuelve Falso si no existe.
        txtInput = False
        If Not File.Exists(Fichero) Then Exit Function
        Dim Contenido As String = vbNullString
        Dim Ficherotxt As New IO.StreamReader(Fichero, System.Text.Encoding.Default)
        Contenido = Ficherotxt.ReadToEnd
        Ficherotxt.Close()
        Lineas = Split(Contenido, vbCrLf)
        txtInput = True
End Function
 

De este modo puedes en un For/Next desde 0 hasta Ubound del Array verificar la existencia del dato.

Como te decía, si no existe, puedes grabarlo así:

Código vb:

Public Sub txtAppend(ByVal Fichero As String, ByVal Linea As String)
        ' Añade Linea al fichero Secuencial
        Dim FicheroTxt As New IO.StreamWriter(Fichero, True, System.Text.Encoding.Default)
        FicheroTxt.WriteLine(Linea)
        FicheroTxt.Close()
End Sub
 

Saludos

Pd: Si algún moderador cree oportuno pasar el post al foro de VB.NET por mi, perfecto. De ser así, SUPERBIRKOF, si necesitas alguna aclaración más mandame un mensaje ya que no suelo entrar en el foro de NET
Gracias