PROBLEMAS COM TXT

DBRANDAO 29/08/2007 17:18:19
#233317
Ola galera.

Estou com um grande problema ao criar um código para registrar um produto no meu banco de dados.
Eu queria juntar o valor de dois TXT em apenas um TXT.

Ex:

Tenho o primeiro txt com o valor = L
Tenho segundo txt com o valor = 1234
Gostaria que o terceiro txt ganhasse o valor = L1234

TxtNome.text = L
TxtCodigo.text = 1234
TxtCodigo.text + TxtNome.txt = TxtSenha.text
TxtSenha.text = L1234

Seria isso o terceiro TxtSenha ganharia o valor TxtCodigo + TxtNome.
USUARIO.EXCLUIDOS 29/08/2007 17:28:35
#233318

São dois arquivos..txt?
USUARIO.EXCLUIDOS 29/08/2007 17:30:42
#233319
Se for..tenta ae

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


Para usar:
Text1.Text = AbreArquivo("C:\Txt1.TXT")
Text1.Text = Text1.Text & AbreArquivo("C:\Txt2.TXT")

Para Criar o Terceiro txt..faça isso

Open "C:\Txt3.txt" for OutPut as #1

Print 1#, Text1

Close #1..

entendeu ae?
DBRANDAO 29/08/2007 17:33:43
#233320
Não são 3 txt.

Quando eu entrar com 1234 no primeiro e depois entrar com L no segundo, e clicar em algum botão e terceiro txt vai ficar com o valor = L1234.
Vai juntar o Primeiro com o segundo para formar o terceiro.
USUARIO.EXCLUIDOS 29/08/2007 17:34:30
#233321

Blz..então faz o q eu falei aí..q funciona.

boa sorte e sucesso"!
DBRANDAO 29/08/2007 17:45:15
#233322
Amigo não estou dando conta de fazer o trem rodar.
USUARIO.EXCLUIDOS 29/08/2007 18:06:04
#233326

Vc ja tem os 2 primeiros txts, ou vc quer criá-los...e depois criar o terceiro?
ADRIANO.007 29/08/2007 18:39:38
#233331
Não entendi direito mas deve ser isso que vc quer

TxtSenha.text= (TxtNome.text & TxtCodigo.text)
USUARIO.EXCLUIDOS 30/08/2007 09:59:52
#233371 Resposta escolhida
DBRANDAO,

Verifica se o exemplo te auxilia.
Valeu!
DBRANDAO 30/08/2007 10:09:28
#233373
Valeu Galera

Agora já esta funfando blz..

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