ShenZhou (26 Ноябрь 2012 - 10:51) писал:
Вот что необходимо Есть СКУД BioSmart для контроля спец-та УКП, при заполнении базы необходимо добавление фотографии. Задумка такая, из Акус выгружать фото всего отряда УКП
Собственно можно сваять какуюнибудь стороннюю утилиту, но при поверхностном рассмотрении выяснил что фото хранятся в каталогах с названием вида 2009111, и имя файла например 20091111058535.jpg.
Насколько понял в имени файла заложена двта добваления записи и уникальный номер : 2009 - год, 11 - месяц, 1 - декада месяца, а далее 1058535 - в базе запись чтото типа $b8‡%ќb, так вот если догадки верные и понять как перекодировать $b8‡%ќb в 1058535 тогда сваяю програмку.
имя файла получается таким образом :
filename = STR(cton(cvalue, 142, 34), 14) где cvalue - поле VFOTOFAS из таблицы CARD
функция cton:
FUNCTION cton
PARAMETER string, p, shift
PRIVATE k, nresult
nresult = 0
string = CHRTRAN(string, CHR(33), '')
FOR k = 1 TO LEN(string)
nresult = nresult*p+ASC(SUBSTR(string, k, 1))-shift
ENDFOR
RETURN nresult
ENDFUNC
Пробуйте...