LER E GRAVAR TXT

 Tópico anterior Próximo tópico Novo tópico

LER E GRAVAR TXT

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#439624 - 17/07/2014 17:47:12

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


Última edição em 17/07/2014 17:50:47 por PROGRAMADORVB6

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
  



______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


#439643 - 18/07/2014 12:45:56

NICKOSOFT
SANTO ANDRE
Cadast. em:Maio/2009


  
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


Cada dia vejo surgirem novos "programadores" de código pronto aqui



#439664 - 19/07/2014 07:22:55

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


Última edição em 19/07/2014 07:27:45 por PROGRAMADORVB6

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


______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por PROGRAMADORVB6 em 10/12/2019 09:11:04