Автокликер Clickermann :: Форум

Основной раздел => Использование => Topic started by: Smartpk on November 29, 2013, 01:06:40 PM

Title: Выкладываю скрипт *Умножение данных из txt и запись результатов в txt*
Post by: Smartpk on November 29, 2013, 01:06:40 PM

Не нашел раздела, где все делятся своими костылями скриптами. Закину сюда, может пригодится кому...
Предыстория: Спарсил цены на товары из оптового магазина. Все они у меня в столбик в файле "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 очистится после завершения скрипта.

Title: Re: Выкладываю скрипт *Умножение данных из txt и запись результатов в txt*
Post by: Oraven on November 29, 2013, 01:31:03 PM

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

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

Title: Re: Выкладываю скрипт *Умножение данных из txt и запись результатов в txt*
Post by: Smartpk on December 03, 2013, 07:44:10 AM

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