[Resolvido] arquivo txt

[edsongozzi 0]

olá, preciso de ajuda..como faço p/ trabalhar c/ uma base de dados txt.

o arquivo apresenta nome e valor apresentar em uma textbox a soma desses valores

 

exemplo do txt

Armando Cruz 24.00

Daniel Teixeira 12.00

Gabriel Certz 8.00

preciso somar esses valores é possivel?

[scorpio 7]

Sim, é possivel.

 

De uma procurada pelo fórum. Achara bastante meios de ler um arquivo TXT.

 

Quando conseguir ler, volte com suas duvidas para somar os valores. ou se não conseguir ler volta também.

 

 

Abraços!

[edsongozzi 0]

Sim, é possivel.

 

De uma procurada pelo fórum. Achara bastante meios de ler um arquivo TXT.

 

Quando conseguir ler, volte com suas duvidas para somar os valores. ou se não conseguir ler volta também.

 

 

Abraços!

 

 

Lucas, me ajuda, td q venho fazendo nos ultimos dias é ler esses artigos, mas estou c/ dificuldade em entender, me ajude por favor

[scorpio 7]

Onde está sua dificuldade? Quais você leu?

 

http://forum.imasters.com.br/index.php?/topic/135362-jogar-arquivo-txt-para-no-banco/page__view__findpost__p__375427

[edsongozzi 0]

Onde está sua dificuldade? Quais você leu?

 

http://forum.imasters.com.br/index.php?/topic/135362-jogar-arquivo-txt-para-no-banco/page__view__findpost__p__375427

 

eu li esse tb., mas minha necessidade é diferente,

depois de abrir esse txt em um form, preciso somar tds os valores em um outro campo...

me ajude, por favor, sei q vcs são feras, isso deve ser facil p/ vcs..por favor

[scorpio 7]

To achando que você não leu nenhum...

 

 

Para cada linha que você ler, você pode utilizar a função Split para transformar a linha em um vetor.

Exemplo

Dim linha() as string
linha() = Split("Armando Cruz 24.00"," ")

Agora, na posição 2 do vetor você terá o valor. É só somar todos.

[edsongozzi 0]

To achando que você não leu nenhum...

 

 

Para cada linha que você ler, você pode utilizar a função Split para transformar a linha em um vetor.

Exemplo

Dim linha() as string
linha() = Split("Armando Cruz 24.00"," ")

Agora, na posição 2 do vetor você terá o valor. É só somar todos.

 

 

 

Antes de me cadastrar neste maravilhoso forun, td que mais venho fazendo e tentar achar o que preciso, mas confesso, tenho dificuldade em entender,

minha conexão é discada e tenho que dividir minha atenção c/ meu filho pequeno que já reclama minha ausencia nas brincadeiras devido esse "cumputador" muito mais muito obrigado mesmo, amanhã vou chegar mais cedo mas firma p/ tentar utilizar sua dica...por favor, desculpa o desabafo mais precisa explicar td p/ a pessoa q esta me ajudando.... se não conseguir amanhã eu volto a pedir sua ajuda...abs

[edsongozzi 0]

Não consegui!!

Acho que devo estudar um pouco mais, sei-la, começar do começo mesmo, vcs tem alguma dica?

[scorpio 7]

O que exatamente não entendeu Edson? Seja especifíco para podermos ajuda-lo.

[edsongozzi 0]

O que exatamente não entendeu Edson? Seja especifíco para podermos ajuda-lo.

 

Eu não consegui somar os valores.

 

já conseguir abrir o txt em um textbox, sarvar, excluir a linha quando necessario, mas não consigo somar as informações que preciso.

[scorpio 7]

Para pegar o valor, a cada linha faça assim:

 

msgbox Right(SUA_LINHA, InStr(1, StrReverse(SUA_LINHA), " "))

 

Assim você terá o valor. Daí você faz a soma dele.

[edsongozzi 0]

não consegui!

 

eu falei, estou apenas começando!!!

 

pode me ajudar, por favor

 

tenho essas informações dentro de um textbox

 

Armando Cruz 24.00

Daniel Teixeira 12.00

Gabriel Certz 8.00

 

Agora só preciso somar e apresentar em um msgbox.. me ajuda...por favor, serei muito grato

 

não consegui!

 

eu falei, estou apenas começando!!!

 

pode me ajudar, por favor

 

tenho essas informações dentro de um textbox

 

Armando Cruz 24.00

Daniel Teixeira 12.00

Gabriel Certz 8.00

 

Agora só preciso somar e apresentar em um msgbox.. me ajuda...por favor, serei muito grato

[edsongozzi 0]

mil desculpas, sem querer colei a pergunta duas vezes, ...

 

aguardo ansioso por ajuda

[scorpio 7]

Está lendo o arquivo texto ? Se está coloca aqui que te indico onde colocar a linha.

[edsongozzi 0]

Está lendo o arquivo texto ? Se está coloca aqui que te indico onde colocar a linha.

 

 

 

 

Open "C:\lancamento.txt" For Input Access Read As #1

Do While Not EOF(1)

texto = texto & Input(1, #1)

Loop

Text1.Text = texto

Close #1

 

" O Text1 é o textbox que fica as informações, ok"

 

 

nossa, to no aguardo.......muitissimo obrigado!!!!

 

End Sub

[scorpio 7]

Open "C:\lancamento.txt" For Input Access Read As #1
Do While Not EOF(1)
'texto = texto & Input(1, #1)
linha = Input(1, #1)
msgbox Right(linha , InStr(1, StrReverse(linha), " "))
Loop
Text1.Text = texto
Close #1

Veja o que aparece na mensagem.

[edsongozzi 0]

Infelizmente não deu certo!

 

Ao clicar no botão a mensagem (msgbox) aparece diversas vezes e sempre sem nenhum valor.

 

Por favor, você consegue verificar o pq?

[scorpio 7]

Troca a linha

linha = Input(1,#1)

por

Line Input #1, linha

[edsongozzi 0]

Nossaaaa! Estamos quase lá!!!!

 

Ele esta mostrando os valores em mensagens separadas, ou seja, pega o valor de cada linha e apresenta em uma mensagem,

 

A primeira mensagem sempre aparece sem nenhuma informação

 

Preciso que a mensagem seja a soma de todos os valores...

 

Nem acredito, acho que hoje conseguimos...

[edsongozzi 0]

Lucas...muitissimo obrigado, sua ajuda foi fundamental p/ eu conseguir desenvolver um simples programa que vai me ajudar muito...

 

 

Abaixo segue o restante da linha que precisa...

 

Dim Contador As Currency
Dim Contador2 As Currency

'faz as somas do valores no text2'
Open "C:\lancamento.txt" For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, linha
Contador = Right(linha, InStr(1, StrReverse(linha), " "))
Contador2 = Contador2 + Contador
Text2 = Contador2
Loop
Close #1

 

Vcs são feras!!!!!!