MANIPULACAO DE ARQUIVOS TEXTOS

MARCELO.TREZE 26/11/2013 13:29:44
#431488
Olha colega to começando a entender o que você deseja, bom algo parecido com isso é você fazer mala direta com word, tipo preencher uma contrato, onde você inseriria nome, cpf, etc, mantendo todo restante e com formatação, bastaria cada empresa montar seu contrato, porém de uma forma simples como você mencionou também dá, veja este código:

Private Sub Command1_Click()
Dim Arq1        As Integer
Dim Arq2        As Integer

Dim OrigLine     As String [ô] Linha Original
  Arq2 = FreeFile
  Open [Ô]c:
ovoarquivo.txt[Ô] For Output As #Arq2 [ô] abre o novo arquivo a ser salvo
      Arq1 = FreeFile
      Open [Ô]c:    este.txt[Ô] For Input As #Arq1 [ô]Abre o arquivo que será lido
      Do While Not EOF(Arq1) [ô] inicia um novo Loop dentro do primeiro Loop
      Line Input #Arq1, OrigLine [ô] grava a linha em OrigLine - linha de Origem
      OrigLine = Replace(OrigLine, [Ô]#nome[Ô], Text1.Text)
      OrigLine = Replace(OrigLine, [Ô]#endereco[Ô], Text2.Text)
      Print #Arq2, OrigLine [ô] grava o novo arquivo com alterações
      
      Loop

  Close #Arq1
  Close #Arq2
End Sub



eu coloquei dois textbox e um commandbutton no form, e fiz o teste com o exemplo acima basta você fazer as modificações

criei um arquivo texto sem muita coisa colocando as palavras chaves (#nome) e (#endereco), e um novo arquivo foi criado com o nome e endereco colocado nos textboxs
HELIO.COSTA 26/11/2013 14:37:44
#431493
Marcelo, realmente isto que precisava..

Desculpe não ter explicado certinho o que precisava na abertura do furom.

Só mais uma dúvida:

é melhor usar o printer ou print para fazer a impressão quando clicar no botão, lembrando que não será nada visual somente impressão que será configurada em um form.?

desde já agradeço a ajuda.
MARCELO.TREZE 26/11/2013 15:06:07
#431495
olha não fará muita diferença,uma vez que é só texto, pode usar o printer mesmo.
HELIO.COSTA 26/11/2013 15:37:11
#431496
Ok.

Grato pela ajuda.
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar