ARQUIVO VB TXT

JRODRIGUES 19/04/2011 22:31:26
#371954
boa noite Pessoal preciso de uma ajuda de vocês, eu tenho vario arquivos txt
e queria criar um comondo no vb para copia o conteudo de totos e em um unico arquivo, tem como fazer ?
eu fiz no dos .bat mas não conseguir descobrir como fazer o enter de um conteudo para o outro exemplo aquivo ele copia as 2 linhas no segundo arquivo ele joga a primeira linha na frente do conteudo do primeiro e assim por diante

o camando que eu criei foi este
Copy *.txt + Des.* Separacao.txt

separacao.txt e o arquivo que ele cria e recebe todos os conteudo dos outros
PROGRAMADORVB6 20/04/2011 13:29:54
#372003
Olá colega.
Não entendi muito bem o que vc realmente queria.
Mas partindo do pressuposto que é um comando direccionado para Dos, partindo do VB6 veja o exemplo do nosso colega : TECLA.
Link : http://]http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8510

[ô]=========================== Em VB.Net =========================
1) Deixo-lhe aqui uma função para só ler a linha do ficheiro txt que pretende :
[ô]==============================================================


  Public Shared Function Ler_LinhaFicheiro(Ficheiro As String, LinhaNumero As Integer) As String
        Dim Conteudo As String = String.Empty
        Try
            Using Apontador As New StreamReader(Ficheiro)
                Conteudo = Apontador.ReadToEnd().Replace(vbCr & vbLf, vbLf).Replace(vbLf & vbCr, vbLf)
                Dim Matriz As String() = Conteudo.Split(New Char() {ControlChars.Lf})
                If Matriz.Length > 1 Then
                    If Not LinhaNumero > Matriz.Length AndAlso Not LinhaNumero < 0 Then
                        Return Matriz(LinhaNumero)
                    Else
                        Return Matriz(0)
                    End If
                Else
                    Return Conteudo
                End If
            End Using
        Catch ex As Exception
            Return ex.ToString()
        End Try
    End Function


[ô]==========================================================================
2) Caso queira Gravar e Ler linhas do ficheiro TxT.
[ô]==========================================================================

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

    Public Shared Function Ficheiro(ByRef IndicarCaminho As String, ByRef FazTrabalho As OpcaoFicheiro, ByRef Opcional As String) As String
        Dim Ler_Documento As StreamReader
        Dim Grava_Documento As StreamWriter
        If FazTrabalho = OpcaoFicheiro.Ler Then
            Ler_Documento = New StreamReader(IndicarCaminho)
            Opcional = Ler_Documento.ReadLine()
            Ler_Documento.Close()
            Return Opcional
        End If
        If FazTrabalho = OpcaoFicheiro.Gravar Then
            Grava_Documento = New StreamWriter(IndicarCaminho)
            Grava_Documento.WriteLine(Opcional)
            Grava_Documento.Close()
        End If
        Return Opcional
    End Function


- Para usar no primeiro exemplo :
-----------------------------------------

Ler_LinhaFicheiro([Ô]c:\exemplo.txt[Ô],2)
( => 2 é o nº da linha que vc pretende que seja lida no ficheiro .txt)

Para usar a função no segundo exemplo :

- Para Ler :
-------------

Ficheiro(Application.StartupPath & [Ô]    este.txt[Ô], OpcaoFicheiro.Ler, [Ô][Ô])



- Para gravar :
------------------

Ficheiro(Application.StartupPath & [Ô]\exemplo.txt[Ô], OpcaoFicheiro.Gravar, [Ô]Isto é um teste[Ô])










Até uma próxima.
Atentamente.
Programadorvb6
Tópico encerrado , respostas não são mais permitidas
Voltar