Topics

1

Предложения / Зрительно уменьшаем объемные скрипты

« on: September 23, 2015, 11:28:01 PM »

Вот столкнулся с такой проблемой:
Писал скрипт, постепенно он увеличивался, начал использовать подпрограммы (sub.... end_sub) но объем текста не уменьшался , просто стало легче писать скрипты. Далее увидел что есть такая штука как #include, но радость моя была не долго т.к подпрограммы не работают если они находятся в этом файле.
Вспоминая ранее языки программирования была очень удобная штука как сворачивание отдельных кусков программы
например:
вот изображение полного текста:

Code: [Select]

1 sub(new)
2   GETSCREEN
3    IF_PICTURE_IN (798,138, 1806,646, "nww.bmp", 14737634, 90)
4       move($_return1, $_return2)
5       waitms(100)
6       LCLICK($_return1, $_return2)
7       wait(0.5)
8   end_if
9    zagr()
10 end_sub
11
12 //далее код

далее нажимается волшебная кнопка(ну тут можно разными способами придумать скрытие выделенного текста, скрытие по каким-то маячкам и т.д и т.п )
и в итоге получается:

Code: [Select]

+ 1 sub(new)
  11
  12 //далее код
*+-это как пример для развертывания текста
то есть фактически сам текст никуда не делся просто его можно зрительно скрыть и тогда не надо придумывать с #include .
 

2

Общие вопросы / путь к файлу с помощью цикла

« on: December 05, 2014, 09:32:54 PM »

подскажите как можно например подсчитать общую сумму цифр в файлах (1.txt.......90.txt) (предположим что в файле по 1 цифре)

Code: [Select]

$i0=90
while($i0>$i)
   $a=$a+tfread("\temp\" &$1&".txt",1)
print("\temp\" & $ i& ".txt") //итог \temp\&1&.txt.....\temp\&90&.txt
   inc($i)
end_cyc
print($a)
$a=$a+tfread("\temp\" & $i &".txt",1) - как правильно совместить переменную и путь?
если написать  $a=$a+tfread(("\temp\" $i".txt"),1)то будет ошибка