Выкладываю скрипт *Умножение данных из txt и запись результатов в txt*

[Smartpk]

Не нашел раздела, где все делятся своими костылями скриптами. Закину сюда, может пригодится кому...
Предыстория: Спарсил цены на товары из оптового магазина. Все они у меня в столбик в файле "cen.txt".
Задача: Умножить все цены на "3"  и записать в том же порядке в другой текстовый документ "cengood.txt".
Решение:

Code: [Select]

// Author: Smartpk


#name "CalcPrice"
$is =  TFREAD("cen.txt", 1)
$in =  $is*3
TFWRITE("cengood.txt", $in)
TFDelete("cen.txt", 1)
UNDEFINE ($in)
UNDEFINE ($is)
Количество повторов выставляете равным количеству строк в файле cen.txt
PS:
cen.txt очистится после завершения скрипта.

[Oraven]

А вот мой вариант

Code: (clickermann) [Select]

// Author: Oraven
#name "CalcPrice"

for ($a, $a<TFCOUNT ("cen.txt"))
   $cen = TFREAD("cen.txt", $a)*3
   TFDELETE ("cen.txt", $a)
   TFWRITE("cen.txt", $cen, $a)
end_cyc

HALT

[Smartpk]

Супер. Я еще с циклами не начинал разбираться. Благодарю за исходник