LER E GRAVAR TXT

PROGRAMADORVB6 17/07/2014 17:47:12
#439624
Olá boa noite galera!
Pretendo que a opção Gravar e Ler seja feita na mesma rotina.
Esta rotina destina-se para gravação e leitura de código fonte em formato txt, mas não funciona.
Gostaria que me pudessem ajudar na leitura do arquivo txt.
Deixo aqui o código :
Grato desde já pela vossa atenção.
Atenciosamente.
Programadorvb6

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

    Public Function ExisteFicheiro(ByRef Caminho_Ficheiro As String) As Boolean
        Return IO.File.Exists(Caminho_Ficheiro)
    End Function


    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

NICKOSOFT 18/07/2014 12:45:56
#439643 
  
Dim fluxoTexto As IO.StreamReader

Dim linhaTexto As String

 

If IO.File.Exists(txtarquivo.Text) Then

  fluxoTexto = New IO.StreamReader(txtarquivo.Text)

  linhaTexto = fluxoTexto.ReadLine

While Not fluxoTexto.EndOfStream
   txtLinhas.Text &= linhaTexto & vbCrLf
   linhaTexto = fluxoTexto.ReadLine
End While

  fluxoTexto.Close()

Else

  MessageBox.Show([Ô]Arquivo não existe[Ô])

End If
PROGRAMADORVB6 19/07/2014 07:22:55
#439664
Olá bom dia Galera!
Quero agradecer ao colaborador NICKOSOFT pela sua dica útil.
Segui o seu exemplo e agora estou com o problema do Ecoding, do texto , fiz assim no meu projecto , mas quando pretendo Ler este tipo de caracteres não consigo.

Tipo de caracteres : Lk£øA¿Y3ùr=w©åBÃ’^(?¯g.Ã…o;Q½[õX¾Ôñ«hûÑÿq/¡bWt¦÷ÎÂa&úªE¤@·¨v:îG×-â¶Æ8þéHC[ô]VôRI*~Í­)óx°fUÕ#d¹€±²6]Óà2ÄãÈØöT

Deixo aqui o meu código fonte :



 Public Class Form1

      Public Function GetAppPath() As String

        Dim strAppPath As String = Application.StartupPath
        strAppPath = Application.StartupPath
        If strAppPath.Length = 3 AndAlso strAppPath.Length = 3 Then
            strAppPath = Application.StartupPath
        End If
        If strAppPath.Length > 3 AndAlso strAppPath.Length > 3 Then
            strAppPath = Application.StartupPath & [Ô]\[Ô]
        End If
        Return strAppPath
    End Function


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim fluxoTexto As IO.StreamReader

        Dim linhaTexto As String



        If IO.File.Exists(GetAppPath.ToString & [Ô]Teste1.txt[Ô]) Then

            fluxoTexto = New IO.StreamReader(GetAppPath.ToString & [Ô]Teste1.txt[Ô], System.Text.Encoding.Default, False)


            linhaTexto = fluxoTexto.ReadLine

            While Not fluxoTexto.EndOfStream
                QuadroCodigo.Text &= linhaTexto & vbCrLf
                linhaTexto = fluxoTexto.ReadLine
            End While

            fluxoTexto.Close()

        Else

            MessageBox.Show([Ô]Arquivo não existe[Ô])

        End If



    End Sub
End Class


Grato desde já pela vossa ajuda.
Atenciosamente.
Programadorvb6
Tópico encerrado , respostas não são mais permitidas
Voltar