SOMATORIA DENTRO DO TXT

USUARIO.EXCLUIDOS 07/03/2005 00:44:06
#71490
Tenho dentro de um arquivo txt a seguinte coluna:

VALOR1
VALOR2
VALOR3
VALOR4
========

Quero saber como somar estes valores e colocar o resultado logo embaixo

Grato
WEBMASTER 07/03/2005 01:35:40
#71492 Resposta escolhida
Pode utilizar o Lineinput para pegar os valores, transformá-los em long ou double com CLng ou CDbl, respectivamente, e depois somá-los para guardar o valor no final. Me desculpe, mas estou a ir dormir. Bom, qualquer coisa deixei uma opção aqui para quem escreva o código para você ;))

USUARIO.EXCLUIDOS 07/03/2005 09:59:08
#71522
Olá Young

Vou seguir sua dica mas mesmo assim fico grato se você ou outro integrante do site colocar o código aqu,i porque se eu cometer algum erro venho aqui e pego o codigo correto.

Grato
RODRIGUESRM 07/03/2005 12:39:35
#71551
Aí está o exemplo:

 Dim NumArq As Long
    Dim vLINHA As String
    Dim vTOTAL As Double
    
    NumArq = FreeFile
    
    Open App.Path & "\Texto.txt" For Input As #NumArq
    
    vTOTAL = 0
    
    Do While Not EOF(NumArq)
    
        Line Input #NumArq, vLINHA
        If IsNumeric(vLINHA) Then
        
            vTOTAL = vTOTAL + CDbl(vLINHA)
        
        End If
    
    Loop
    
    Close NumArq
    
    NumArq = FreeFile
    
    Open App.Path & "\Texto.txt" For Append As #NumArq
    
        Print #NumArq, vbCrLf & Trim(vTOTAL)
    
    Close NumArq
Tópico encerrado , respostas não são mais permitidas
Voltar