Что нового

Подсчитать сумму массива из файла

AlexVong

Новичок
Сообщения
112
Репутация
1
Как подсчитать сумму массива из файла?
Код:
15615645 15643 10546154 15641561546154 20.34 FFF 08.10.2012 20.34 FFF 104686 1054105430504 0 5 06.10.2012 hdfghfd fghдfghfhfghцвfg fhf /151536/156565/566664/ 
10543655 58999 26536665 5456454500556 10.00 SSS 08.10.2012 10.00 SSS 454554 5545545454598 1 5 08.10.2012 ddfgdfgdfgdgfdfgлотdfgdf Vfd /454556/656656/898989/ 
54654554 54553 54545454 556656556666 2 406.49 FFF 08.10.2012 2 406.49 FFF 545456 55565454564654 1  06.10.2012 dfgdgdfgdfg dfgdfg dfgdf dfg /455666/545446/565464/ 
46545457 56453 56465547 56454555555504 1.90 CCC 08.10.2012 1.90 CCC 465406 5456456544558 1  06.10.2012 sdfsfds sdfsdfds dsfds f sfd /546464/564545/545454/ 
65565569 56666 65545645 5645456454556 56.00 SSS 08.10.2012 56.00 SSS 345656 5465465455668 1 5 08.10.2012 sfsfdfdsfsdffsd sdfsdfsd dfg /555646/564566/564569/ 
66454656 56456 56545564 5344545433438 1.90 FFF 08.10.2012 1.90 FFF 654506 56465456456564 1  06.10.2012 sfsfdsaвsdfs sdfsdfsdfар dfd /546545/054564/564654/
А имено получить сумму пятой колонки 20,34+10+2406,49+1,90+56+1,90!
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
AlexVong,
Попробуйте так.
Код:
$iSumm = 0
$sText = FileRead(@ScriptDir & '\1.txt')
$aColumn5 = StringRegExp($sText, '(?m)^(?:[^\h]+\h){4}([\d\h]+[\.]*[\d]*)\h[A-Z]', 3)
If @error Then Exit 13
For $i = 0 To UBound($aColumn5) - 1
	ConsoleWrite(StringStripWS($aColumn5[$i], 8) & @LF)
	$iSumm += Number(StringStripWS($aColumn5[$i], 8))
	;$iSumm += StringStripWS($aColumn5[$i], 8); так тоже работает (у меня)
Next
ConsoleWrite('Summ = ' & $iSumm & @LF)
 
Верх