Что нового

[Математика] Сложение столбца чисел из текстового файла

exHalfer

Новичок
Сообщения
12
Репутация
0
Помогите написать скрипт сложения столбца чисел.
Есть текстовый файл вида
Код:
Пауза 10 мин с 08:47
Пауза 5 мин с 09:06
Пауза 11 мин с 09:52
Пауза 8 мин с 10:48
Пауза 14 мин с 11:39
Пауза 71 мин с 12:31
Надо посчитать количество минут.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,320
exHalfer,
Попробуйте так.
Код:
$vTmp = 'Пауза 10 мин с 08:47' & @CRLF & _
		'Пауза 5 мин с 09:06' & @CRLF & _
		'Пауза 11 мин с 09:52' & @CRLF & _
		'Пауза 8 мин с 10:48' & @CRLF & _
		'Пауза 14 мин с 11:39' & @CRLF & _
		'Пауза 71 мин с 12:31'

$aTmp = StringRegExp($vTmp, '\h(\d+?)\h', 3)
;$aTmp = StringRegExp($vTmp, '(\d+?)\h+мин', 3)
If @error Then Exit 13
$vTmp = 0
For $i = 0 To UBound($aTmp) - 1
	$vTmp += $aTmp[$i]
Next
$aTmp = 0
ConsoleWrite('Summ: ' & $vTmp & @LF)
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Еще способ
Код:
#include <file.au3>
#include <String.au3>

Dim $aRecords
_FileReadToArray(@ScriptDir & "\Test1.txt", $aRecords)

$Sum = 0
For $i = 1 To $aRecords[0]
    $aMin = _StringBetween($aRecords[$i], "Пауза ", " мин", -1)   
    $Sum += $aMin[0]	
Next

MsgBox(64, "Сумма", $Sum & " минут")
 

sngr

AutoIT Гуру
Сообщения
990
Репутация
396
Код:
#include 'array.au3'
$file='Пауза 10 мин с 08:47'& _
'Пауза 5 мин с 09:06'& _
'Пауза 11 мин с 09:52'& _
'Пауза 8 мин с 10:48'& _
'Пауза 14 мин с 11:39'& _
'Пауза 71 мин с 12:31'
$str=StringRegExp($file,'Пауза (\d+)',3)
;~ _ArrayDisplay($str)
MsgBox(32,'',Execute(_ArrayToString($str,'+')))
 
Верх