Messages

1

Предложения / Re: [Alpha/Beta Testing]

« on: December 20, 2018, 04:41:21 AM »

Новый сезон нашего шоу!
Версия 4.14.000b х32

Шо нового в основном:
- цветной текст в логе (см. printc, в хистори забыл добавить..)

вопрос, как это правильно работает
printc("В таре №1 = 115 л.", 1582483) получаем цветной текст в логе - приятно, удобно, но с подстановкой переменной не работает
printc("В таре №1 = ", $PL_1_G," л.", 1582483) - получаем пропуск строки, хотя при написании print("В таре №1 = ", $PL_1_G," л.") - получаем текст в логе"В таре №1 = 115 л."
printc(В таре №1 = $PL_1_G, 1582483) - а так получаем цветной текст Втаре№1=115

2

Общие вопросы / Re: Список файлов, находящихся в указанной папке и запуск нужного

« on: August 17, 2018, 12:30:02 PM »

... так писать не нужно, чтоб потом не искать причины неправильной работы.

Тогда так должно быть

Code: (clickermann) [Select]

getfilelist($arr, STRCONCAT("*", $list_1, "*.cms"))

понял, попробую, возможно из-за этого и не работал на 4.13

3

Общие вопросы / Список файлов, находящихся в указанной папке и запуск нужного

« on: August 17, 2018, 10:46:59 AM »

А что это вообще такое?

Code: (clickermann) [Select]

getfilelist($arr, "*"$list_1"*.cms")что за набор символов.

это строка поиска, найти список файлов содержащие $list_1, да все, тему можно считать закрытой, код доработали, все работает, всем спасибо.

4

Общие вопросы / Re: Список файлов, находящихся в указанной папке и запуск нужного

« on: August 17, 2018, 05:21:24 AM »

Только вот у меня почему то в последней версии КМ ...

решили проблему по другому, но столкнулись с новой проблемой на 4.12 работает, а на 4.13 нет

Code: (clickermann) [Select]

$list_1 = INPUTBOX("message", "", 10)
   print($list_1)

if ($list_1 = 0)
   print("Отмена")
   halt
end_if

getfilelist($arr, "*"$list_1"*.cms")
   print($arr)
for($i=arrsize($arr), $i< 21)
   ARRPUSH($arr, "Пусто")
end_cyc

$list_2 = radiobox("Выберете название скрипта:", $arr[0], $arr[1], $arr[2], $arr[3], $arr[4], $arr[5], $arr[6], $arr[7], $arr[8], $arr[9], $arr[10], $arr[11], $arr[12], $arr[13], $arr[14], $arr[15], $arr[16], $arr[17], $arr[18], $arr[19], $arr[20])

if ($list_2 > 0)
   $list_3 = DIALOGBOX("Вы выбрали: "$arr[$list_2-1],4,2)
   
   if ($list_3 = 6)
      print("Вы выбрали: ",$arr[$list_2-1])
      TFCLEAR("Script_Start_Config.cms", 0)
      TFREADARR($arr[$list_2-1], $ara)
      TFWRITEARR("Script_Start_Config.cms", $ara)
      TFWRITE("Script_Start_Config.cms", "#Autorun")
      EXECUTE("Script_Start_Config.bat")
      HALT(1)
   else
      print("Отмена")
      halt
   end_if
else
   print("Отмена")
   halt
end_if"*"$list_1"*.cms" в 4.12 понимает что от него хотят, ищет искомое слово на кириллице, в 4.13 на русском точно не ищет если проблема в этом.

Code: (txt) [Select]

start ../Clickermann.exe Script_Start_Config.cms

5

Общие вопросы / Список файлов, находящихся в указанной папке и запуск нужного

« on: August 16, 2018, 03:32:54 PM »

Очевидно так, а в чем смысл.

Code: (clickermann) [Select]

$res = RADIOBOX("Выберете пункт", arrsize($arr))

так он выводит количество найденных файлов
я пока остановился на таком решении:

Code: (clickermann) [Select]

TFCLEAR("file.cms", 0)
...
getfilelist($arr, $list) //$list предменю с путями, тут не указан

for($i=0, $i< arrsize($arr))
   print($arr[$i])
end_cyc

for($i=arrsize($arr), $i< 21)
   ARRPUSH($arr, "пусто")
end_cyc

$res = radiobox("Выберете пункт", $arr[0], $arr[1], $arr[2], $arr[3], $arr[4], $arr[5], $arr[6], $arr[7], $arr[8], $arr[9], $arr[10], $arr[11], $arr[12], $arr[13], $arr[14], $arr[15], $arr[16], $arr[17], $arr[18], $arr[19], $arr[20])

if ($res > 0)
   print("Вы выбрали: ", $arr[$res-1])
   DEFINE($var, $arr[$res-1])
   
   TFREADARR($var, $a)
   TFWRITEARR("file.cms", $a)
else
   print("Вы ничего не выбрали")
end_if

WAIT(3)

#include "file.cms"
haltно возникла проблемма с #include "file.cms" он почему то запускается первым, то есть я указал на нужный файл, он его записывает в file.cms, но #include запускается до выполнения всего скрипта, получается, при последующих запусках, запускается предыдущий файл, хотя файл обновляется сразу...

6

Общие вопросы / Список файлов, находящихся в указанной папке и запуск нужного

« on: August 16, 2018, 11:27:11 AM »

Требуется последняя бетта 4.13 Там функция GETFILELIST заработала как надо.
http://crapware.aidf.org/forum/index.php?topic=356.msg23510#msg23510

Code: (clickermann) [Select]

$path = "Image\" // Путь до папки с картинкой

GETFILELIST($a_image, STRCONCAT($path,"name[b]*[/b].bmp")) // Получаем список файлов в массив
GETSCREEN
FOR($i=0,$i<ARRSIZE($a_image))  // Перебор списка 
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, STRCONCAT($path,$a_image[$i]), -1, 100)
      LCLICK($_return1, $_return2)
      WAITMS(100)
   END_IF   
END_CYC

вопрос следующий, как выполнить файл из списка при помощи radiobox("Выберете пункт", $arr[0]):
у меня есть проекты по Работе, Домашние, Игры, Прочие... работа_name.cms, картинки_name.cms...

Code: (clickermann) [Select]

GETFILELIST($arr, "Script\name[b]*[/b].cms")) // Получаем список файлов в массив
for($i=0, $i< arrsize($arr))
   print($arr[$i])
end_cyc
$res = radiobox("Выберете пункт", [b]$arr[/b]) - как вместо $arr вставить переменную (количество) найденных файлов
...
а после выбора реализовать запуск нужного скрипта?

другими словами хочу создать меню проектов.