Read a file with numbers and add these up

[TrickKiste]

I have a text file which look like this. I'd like to add these all up to get the sum, but can't seem to figure it out Any tips on how I can do this (sure it's really easy but I can't think of it).

[JohnOne]

Best post a copy from file, never know if there are TAB, LF, CR, CRLF ending the lines otherwise.

[jguinch]

You can read the file line by line (look at the helpfile for FileReadLine), and then add each number to the sum (starting to 0)

$sum = 0

While 1

 $line = FileReadLine(......)

 $sum += Number($line)

WEnd

ConsoleWrite($sum)

You can also use _FileReadToArray and make a For...Next loop

[guinness]

You will need the help file and...

_FileReadToArray()
Int()/Number()
+
=
Loop e.g. For

Edited January 15, 2015 by guinness

[UEZ]

Here one trick(box):
 

Global $aZahlen = StringSplit(FileRead(@ScriptDir & "\Zahlen.txt"), @CRLF, 2), $i, $iSumme
For $i = 0 To UBound($aZahlen) - 1
    $iSumme += $aZahlen[$i]
Next
MsgBox(0, "Summe", $iSumme)

Br,

UEZ

[SmOke_N]

Keep in mind, the below example won't help with "big numbers"

Func _sumFile($sFile)
    
    Local $sFRead = $sFile
    If FileExists($sFRead) Then
        $sFRead = FileRead($sFile)
    EndIf
    
    Local $aNums = StringRegExp($sFRead, "\d+(?:\.d+)?", 3)
    If @error Then Return SetError(1, 0, 0)
    
    Local $iSum = 0
    For $i = 0 To UBound($aNums) - 1
        $iSum += Number($aNums[$i])
    Next
    
    Return $iSum
EndFunc

Edited January 15, 2015 by SmOke_N

[TrickKiste]

Thanks you guys!

[Valuater]

Simple Valuater... 8)

FileRead()

Stringreplace( $String, @CRLF, "+")

Number($String)

Tada!!!

8)

[guinness]

The issue with those who have suggested splitting at @CRLF, is what if the file has line-feed as the EOL char?

[JohnOne]

Simple Valuater... 8)

 

FileRead()

 

Stringreplace( $String, @CRLF, "+")

 

Number($String)

Nice.

 

Take an internet point from the internet cupboard.

Edited January 15, 2015 by JohnOne

[UEZ]

Simple Valuater... 8)

 

FileRead()

 

Stringreplace( $String, @CRLF, "+")

 

Number($String)

 

Tada!!!

 

8)

 

 

Brilliant idea but one line is not correct!

 

Instead of Number($String) you have to use Execute($String)

 

Global $sAddition = Stringreplace(FileRead(@ScriptDir & "\Zahlen.txt"), @CRLF, "+")
MsgBox(0, "Summe", Execute($sAddition))

Br,

UEZ