[Løst] Akkumulering/Summering av tall i tekst fil

[Larsmars]

Jeg holder på med et prgm der jeg lagrer salg i en text fil(append). Det jeg ikke får til er å summere salgene som er i textfila og vise det. Noen som kan hjelpe ??

 

Greier bare å få siste salg opp og ikke summen :\

 

På forhånd takk

 

Bruker VB 6.0, har følgende kode som da ikke funker :

filnr = FreeFile

filnavn = App.Path & "\Salg.txt"

 

Open filnavn For Input As #filnr

 

Input #filnr, sumtotal

lblsammenlagt.Caption = sumtotal

 

Close #filnr

Endret 7. mars 2006 av Larsmars

[Gjakmarrja]

Her kan du prøve noe sånn som dette:

 

Fileopen(1,dinfil,OpenMode.Input)
dim sum as integer = 0 
do until(eof(1))
sum += cint(lineinput(1)) 'eventuelt bare lineinput(1)
loop
'så vis summen her

 

Finnes cint i 6.0 ?

 

Er det slik at du har en verdi på hver linje?

Endret 4. mars 2006 av chills

[Larsmars]

Tror ikke det er Visual basic 6.0 språk...funka jaffal ikke.

 

Lagringen er følgende:

filnr = FreeFile

filnavn = App.Path & "\Salg.txt"

Open filnavn For Append As #filnr

Write #filnr, Sumtotal

Close #filnr

 

og da lagres alle summene etterhverandre i text fila.

 

Jeg får bare fram siste summen med denne koden :\

 

filnr = FreeFile

filnavn = App.Path & "\Salg.txt"

 

Open filnavn For Input As #filnr

Input #filnr, Sumtotal

lblsammenlagt.Caption = Sumtotal

Close #filnr

 

Andre som kan hjelpe?

[Gjakmarrja]

Jeg vil anbefale deg å laste ned Visual Basic.NET 2005 Express Edition fra microsoft.

6.0 Er utdatert.

 

Last opp sourcen din... ?

 

Så kan vi få se!? også skal eg heller gidde siden det hva så laber respons

Har du funent det ut eller?

 

Anyone?

Endret 5. mars 2006 av chills

[Larsmars]

Her er hele koden...Håper det kan hjelpe til å finne riktig kode

frmfaktura.zip

[Harald Staff]

Du må lese linje for linje og summere verdien av dem:

 

Open filnavn For Input As #filnr

While Not EOF(filnr)

Line Input #filnr, S

sumtotal = sumtotal + Val(S)

Wend

Close #filnr

 

Om du bruker VAL eller CDbl eller hva avhenger av hvilket nummerformat tekstfila skrives i og i hvilke(t) land programmet skal kjøres i.

 

Det finnes nok av folk som sier at VB6 er utdatert. Det finnes også nok av folk som tror de får mange og villige damer om de kliner seg inn med Axe. Ikke bry deg om sånt.

 

HTH. Beste hilsen Harald

[Larsmars]

Takk for svarene, fikk det til etterhvert..Ganske logisk

 

Skulle gjerne fått nullstillt\tømt en text fil for tall, noe som vet hvordan? Prøve å slette og rett forså å lage en ny fil med samme navn?

 

På forhånd takk

 

PS! Holder på med visual basic for det er det læreren bruker, ville nok ikke hjelpet hvis jeg kmr med nye koder ingen kan skjønne

[Harald Staff]

Om du sletter og lager ny så fjerner du bokstaver og tegn også. Det er ikke det du mener med "nullstilt/tømt for tall" ? I så fall er det bare å åpne for skrivning:

 

Open filnavn For Output As #filnr

Close #filnr

 

HTH. Beste hilsen Harald

[Larsmars]

Joda, takk ! Blir en god karakter dette

[Harald Staff]

Velbekomme. Håper du har lært noe nytt også, så karakteren blir fortjent