ARQUIVO TEXTO

 Public Class Funcoes
    Public Enum OpcaoFicheiro
        Ler = 0
        Gravar = 1
    End Enum
    Public Property FazTrabalho As OpcaoFicheiro

    
   Public Function Ficheiro(ByRef IndicarCaminho As String, ByRef FazTrabalho As OpcaoFicheiro, ByRef Opcional As String) As String
        Dim Ler_Documento As System.IO.StreamReader
        Dim Grava_Documento As System.IO.StreamWriter
        If Not System.IO.Directory.Exists(IndicarCaminho) Then
            System.IO.Directory.CreateDirectory(IO.Path.GetDirectoryName(IndicarCaminho))
        End If

        If ExisteFicheiro(IndicarCaminho) = True Then
            If FazTrabalho = OpcaoFicheiro.Ler Then
                Ler_Documento = New System.IO.StreamReader(IndicarCaminho)
                Opcional = Ler_Documento.ReadLine()
                Ler_Documento.Close()
                Return Opcional
            End If
        End If
        If FazTrabalho = OpcaoFicheiro.Gravar Then
            Grava_Documento = New System.IO.StreamWriter(IndicarCaminho)
            Grava_Documento.WriteLine(Opcional)
            Grava_Documento.Close()
        End If

        Return Opcional
    End Function
End Class  

 [ô][ô][ô] <summary>
    [ô][ô][ô] Conta o nº de linhas em um arquivo de texto
    [ô][ô][ô] </summary>
    Public Function ContaLinhas(ByRef Nome_Ficheiro As String) As Long
        Dim Local_Aquivo As String = Nothing
        Local_Aquivo = Application.StartupPath & [Ô]\[Ô] & Nome_Ficheiro
        Using Leitura As New StreamReader(Nome_Ficheiro)
            Dim QuantasLinhas As Integer = 0

            While Leitura.Peek() <> -1
                Leitura.ReadLine()
                QuantasLinhas += 1
            End While
            Leitura.Close()
            Leitura.Dispose()
            Return QuantasLinhas
        End Using
    End Function  

  [ô][ô][ô] <summary>
    [ô][ô][ô] Indica uma liha especifica de um arquivo de texto, onde se encontra a palavra a procurar
    [ô][ô][ô] </summary>
    Public Function Apontador(ByRef Nome_Ficheiro As String, ByVal Procura_String As String) As Integer
        Dim Local_Aquivo As String = Nothing
        Local_Aquivo = Application.StartupPath & [Ô]\[Ô] & Nome_Ficheiro
        Dim Linha As Integer = 0
        Apontador = Linha

        Using Reader As New StreamReader(Local_Aquivo)
            Try

                While Not Reader.EndOfStream

                    If Reader.ReadLine.Contains(Procura_String) Then
                        Apontador = Linha
                        Return Apontador
                        Return Linha
                        Exit While
                        Reader.Close()
                        Reader.Dispose()
                    End If
                    Linha += 1

                End While
                Reader.Close()
                Reader.Dispose()
            Catch ex As Exception
                MessageBox.Show([Ô] Erro no apontador. [Ô], [Ô]Informação :[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                Reader.Close()
            End Try
        End Using
        If Apontador <> Linha Then
            Apontador = -1

        End If
    End Function

 [ô]========= Alterar ========= 
    [ô][ô][ô] <summary>
    [ô][ô][ô] Faz a alteração de um registo em um arquivo de texto, com incindência no nº da linha a substituir
    [ô][ô][ô] </summary>
    Public Sub AlterarIndex(ByVal PathName_Txt As String, ByVal Text_Replace As String, ByVal lineUpdade As Integer)

        Dim Point_Line As Integer = 0
        Dim Lines As New List(Of String)
        If (String.IsNullOrEmpty(PathName_Txt)) Then
            Return
        End If
        [ô]If file is empty exit
        If ContaLinhas(PathName_Txt.ToString) = 0 Then Exit Sub

        Using sr As New StreamReader(PathName_Txt.ToString)
            While sr.Peek() <> -1
                Lines.Add(sr.ReadLine)
            End While
            sr.Close() [ô]closes the stream
        End Using
        [ô]make your changes
        Using GravaD As New StreamWriter(PathName_Txt.ToString)
            For Each line As String In Lines
                If (Point_Line).Equals(lineUpdade) Then
                    line.Remove(lineUpdade + 1)
                    line = line.Replace(line, Text_Replace.ToString & [Ô]|[Ô])
                End If
                Point_Line = Point_Line + 1
                GravaD.WriteLine(line)
            Next
            GravaD.Close()
        End Using

    End Sub 

 Dim value As Integer = Apontador(C:\[Ô]Arq1.txt[Ô], Me.textboxt1.text  & [Ô]|[Ô] & Me.textboxt2.text  & [Ô]|[Ô] &  Me.textboxt3.text & [Ô]|[Ô] &  Me.textboxt4.text  )
 
AlterarIndex(C:\[Ô]Arq1.txt[Ô], Me.textboxt1.text  & [Ô]|[Ô] & Me.textboxt2.text  & [Ô]|[Ô] &  Me.textboxt3.text & [Ô]|[Ô] &  Me.textboxt4.text  , Value)