29. ACL -- задачи и решения. Интернет.

автор: Виктор Кон, Курчатовский институт, URL: http://kohnvict.narod.ru

1. Скачивание файлов из интернета.

Возможность работы с файлами в интернете в ACL появилась не сразу. Но сейчас она есть. Одной из задач является операция скачивания файлов картинок из интернета на свой компьютер. В принципе такую работу делает браузер, но только по одной картинке. Ниже показана программа, которая способна делать это в пакетном режиме. Будем предполагать, что адреса картинок в интернете нам известны и что они записаны в файл в кавычках. Порядок размещения адресов неважен, обычно они записываются по одному в каждой строке, и возможно через запятую.

Сначала я покажу программу, которая решает задачу, то есть проводит скачивание с одновременным показом картинок, а потом объясню как она работает.

#f [op=fold; file=null;] # s(3)=1; #pri C:/__vk/__ACL/_Main/appl/wci/maks1ref.txt\E  # I=1; S=s(5); #f [op=size; file=arg;] \TI S\E  # I1=I+S; S1=s(1); #io [op=rt; fir=t(I1); n=S1;] \TI S\E #te [op=find; b=I1; le=S1; c=34; n=1;] # N=s(1)/2; j=1; k=1; #f [op=fold; file=oldf;] #rep N  # a=i(j)+1; b=i(j+1)-a; #w [op=im; mo=-1; sav=-1; file=here; form=\u119;ci/im\I-3 k;\E] \Ta b\E # j=j+2; k=k+1; #end

В первой строке устанавливается нулевая папка и курсор текстового массива. Во второй строке печатается полное имя файла на компьютере, в котором находится список имен файлов картинок в интернете, которые необходимо скачать. Оно может быть любым. В переменных I и S запоминаются параметры текстовой строки, то есть номер начального символа и их число.

В третьей  строке определяется размер этого файла. Так как его имя большое, то вынесено в аргумент. Зная размер, мы можем сразу определить параметры текстовой строки, которая будет записана после чтения файла. Эти параметры записаны в переменных I1 и S1. И тут же выполняется считывание файла.

В четвертой строке сначала в записанной текстовой строке находятся все положения символа с номером 34, это кавычки. Они записываются в целый массив i() начиная с начала. Соответственно число картинок N равно половине числа таких символов. Предполагается, что файл со списком записан правильно. В переменных j и k задаем стартовые значения и возвращаем текущую рабочую папку, в которой записана сама программа.

В пятой строке делается цикл и в нем последовательно определяются параметры текстовой строки с именем конкретного файла картинки, они записываются в переменные a и b. В шестой строке происходит показ картинки и запись ее в файл. Для этого в команде #w используется режим [mo=-1;], а в качестве папки для записи картинок выьрана папка "wci" внутри папки программы. Файлы имеют имена im001.jpg, im002.jpg и так далее.

Важно помнить, что в этом режиме имя файла является аргументом, но параметр file все равно надо определить, хоть он и не используется, иначе будет выдано сообщение об ошибке. Такова грамматика языка. Затем счетчики цикла переопределяются и цикл закрывается.

2. Замена картинок разного размера на картинки одинакового размера.

Иногда, например, для показа слайд-шоу по объекту "живые ссылки" необходимо все картинки разного размера привести в одному и тому же размеру. Такую работу тоже очень просто сделать на ACL с использованием графики. Я снова сначала покажу программу, а потом объясню как она работает.

# k=1; N=45; W=728; H=666; x=W/2; y=H/2;   #f [op=fold; file=appl/wci;] #rep N   # s(3)=1; #pri \u105;m\I-3 k;\E  # a=s(4); b=s(5); #win [op=im; mo=0; sav=1; file=\Ta b .jpg\E]  #eg [op=open;  twi=W; the=H; col=246;] #d 7 r(1) x y 0 0 0 1 1 #eg [op=imag; n=1; b=1; em=1;] #eg [op=clos; cod=1; sav=-1; form=\Ta b\E] Title\E  # k=k+1; #end

В первой строке задаем начальное значение счетчика цикла и число повторений в переменных k и N. В переменных W и H задаем ширину и высоту всех картинок. В переменных x и y положение центра картинки. И устанавливаем рабочую папку, в которой находятся все картинки.

Во второй строке начинаем цикл. Печатаем имя файла, запоминаем параметры. В третьей строке записываем картинку из файла с заданным именем в базу данных картинок с номером 1. А затем открываем графичекий режим с заданными размерами и с белым цветом фона. В четвертой строке записываем параметры и ставим картинку на полотно графики.

В пятой строке закрываем графический режим с показом новой картинки и с записью ее в тот же файл. После этого изменяем счетчик цикла и закрываем цикл. В заключение замечу, что путем несложного добавления к программе можно было бы к каждой картинке добавить подпись. При этом для подписи надо выделить место. Но если картинки используются в живых ссылках, то там есть свой режим записи подписей.

3. Манипуляции со списками имен файлов.

Для различных вариантов сайтов с программой фото-шоу может понадобиться иметь списки с именами файлов картинок, ссылок и подписей. Пусть у нас есть картинки, записанные все в одну папку, нам надо к ним добавить одну и ту же ссылку и разные подписи, записанные  в другой файл. Эту задачу решает следующая программа.

# k=1; N=45; s(3)=1; #pri "http://dl.dropboxusercontent.com/u/29019411/maksimov/\E # a=s(4); b=s(5); #pri "http://kohnvict.ucoz.ru/main.htm", \E  # e=s(4); f=s(5); #rep N  #f [op=line; file=wci/maks2tit.txt; n=-k;]  # c=s(4); d=s(5); #pri \Ta b im\I-3 k;.jpg", \Te f\Tc d\E #f [file=wci/maks3ful.txt; n=k; b=s(4); le=s(5); em=0;]  # k=k+1;  #end

Здесь в первой строке задаются параметры цикла и имя папки, где записаны картинки. Во второй строке задается имя постоянной ссылки. В третьей строке открывается цикл и считывается одна строка из файла с подписями. После этого печатается составная строка, которая содержит все нужные компоненты в правильном порядке. И затем эта строка записывается в файл. В конце номер строки (счетчик цикла) изменяется и цикл закрывается.

Работа с текстовыми строками -- очень важный компонент любого языка программирования. В ACL все делается командой #pri которая имеет много полезных форматов и способна сформировать  строку любой степени сложности как часть текстового массива юникодов.