COPIAR CONTEUDO DE TXT PARA TXT

LEANDROLVILELA 14/03/2005 18:19:56
#72998
Olá Pessoal.
Tenho uma dúvida em copiar arquivo via vb.

Tenho vários arquivos Txt, na qual tenho que pegar todo o conteudo de todos os arquivos e colocar em 1 só.
Com o DOS eu faço assim: Copy Aq1.txt + Des.*
Esse comando faz essa copia para mim.
Já tentei usar o shell, mas não deu certo. O que posso fazer sem a necessidade de abrir arquivo por arquivo?

Muito obrigado pela atenção.
Que a paz de Jesus esteja com Todos, agora e sempre.

Um abraço

Leandro
GABRIEL.LOGAN 14/03/2005 19:14:57
#73000
No módulo:

Function AbreArquivo(sArquivo As String) As String
  Dim iARQ As Integer
  Dim sLinha As String
  Dim sResult As String

  iARQ = FreeFile
  Open sArquivo For Input As iARQ
  Do While Not EOF(iARQ)
    'Pega o conteúdo da linha
    Line Input #iARQ, sLinha

    'Quebra a linha e concatena (soma) o resultado
    sResult = sResult + Chr(13) & Chr(10) + sLinha
  Loop

  AbreArquivo = sResult

  'Fecha o arquivo
  Close iARQ
End Function


No form load:

CAREGA TXT1:
Text1.Text = AbreArquivo(App.Path & "\Texto1.txt")



CAREGA TXT2:
Text1.Text = AbreArquivo(App.Path & "\Texto2.txt")


COLOCA TUDO NO TEXT3:

Text3.text = Text1.text & Text2.text


SALVA TUDO EM UM ARQUIVO *.TXT*:

Dim text1e2  As String
text1e2 = Text3.Text

Open App.Path & "\Texto.txt" For Append As #1
Print #1, text1e2 
Close #1


Obs: App.Path & "\Texto.txt" significa que o texto será salvo no local que estiver seu executável. E 
Text1.Text = AbreArquivo(App.Path & "\Texto1.txt")
abre o arquivo Texto1.txt que tem que estar no local do seu executável, se quiser colocar em outro lugar coloque:
Text1.Text = AbreArquivo("c:\Meus documentos\Texto1.txt")


.LOGAN
GABRIEL.LOGAN 14/03/2005 19:16:52
#73001
ERRATA:

Errei ao digitar no lugar de

CAREGA TXT2: 

Text1.Text = AbreArquivo(App.Path & "\Texto2.txt")


Coloque:

CAREGA TXT2: 

Text2.Text = AbreArquivo(App.Path & "\Texto2.txt")
LEANDROLVILELA 15/03/2005 09:59:09
#73032
Obrigado pela ajuda.

+ só uma obs: Tem como eu executar um arquivo Bat passando parà¢metro via VB?

Novamente muito obrigado

Um abraço

Leandro
USUARIO.EXCLUIDOS 15/03/2005 10:26:33
#73036
vc pode gerar um bat pelo vb, o bat na realidade é um txt, so q com comando e com a ext bat...rsrsrs
CARINHENA 15/03/2005 10:35:57
#73038 Resposta escolhida
LEANDROLVILELA

Leandro, ja que vc mesmo conseguiu faze-lo em dos, pq não usar um arquivo Bat?
Crie um arquivo bat (não é simplesmente um texto, tem que saber alguns comando basicos) e toda vez que precisar fazer este tipo de atualização, puxe o bat pela função SHELL.

Acho mais fácil não acha?
LEANDROLVILELA 15/03/2005 11:35:37
#73051
CARINHENA Bom Dia.

Eu criei um arquivo Bat na mão mesmo (não há necessidade de criar via vb) para fazer um teste com o shell, mas não deu certo, pois esse arquivo precisa de algun parà¢metros.
Exemplo:

Criei um Arquivo Cp.bat com o seguinte comando:
copy %1 + %2

No cmd (Dos) digito o seguinte:
Cp Texto1.txt Texto2.txt

Obs.: Texto1.txt (primeiro parà¢metro) texto2.txt (Segundo parà¢metro)

A minha dúvida é de como fazer para passar os parà¢metros necessários para meu arquivo Bat.

Muito Obrigado

Leandro
CARINHENA 15/03/2005 11:44:04
#73055
Crie um módulo simples aonde crie o seu arquivo bat.

Veja bem, o seu programa sabe exatamente quais programas fazer certo?
Então, os arquivos bat podem ser facilmente vistos em txt, certo?

Copie os comandos dos que ficam dentro do bat e substitua aquilo que quiser por variaveis tipo text ou String.
Então crie uma função aonde ele simplesmente crie o arquivo bat só que ja especificando nesses comandos q quer.
Pra criar o bat é só pensar em um arquivo de texto, se vc simplesmente copiar os dados de seu bat em um arquivo text e depois renomea-lo pra bat vai ver que não ha diferença.

Então crie uma função como se tivesse criando o arquivo txt porem, após passado seus parametros ao invez de fechar o arquivo como txt, feche como BAT.

ok?
LEANDROLVILELA 17/03/2005 08:38:42
#73333
OK.
Entendi o q vc quis dizer.

Obrigado

Leandro
Tópico encerrado , respostas não são mais permitidas
Voltar