D-Lib — скриптовый язык




Принцип обмена данными из 1С с сайтом (на MySQL) и выдачи (публикации) этих данных по запросу.
PHP-Скрипт автоматической загрузки данных из файла данных в формате CSV в базу данных сайта работающего на WordPress.

В продолжение моей темы: 1С:Альфа-Авто Автосалон Автосервис: обмен с сайтом.
С помощью данного скрипта можно загружать в автоматическом режиме, по расписанию, данные сервисных книжек (ремонтов авто) из 1С:Альфа-Авто Автосалон Автосервис.
Также можно загружать данные в ручном режиме: для этого делается скрытая страница, где размещается специальная кнопка.
Комментарии размещенные внутри скрипта разъяснят логику и порядок действия.
Комментарии с "/////    echo" использовались для отладки.
Дополнительно создана таблица для журналирования результатов загрузки данных.
Скрипт включает в себя защиту от SQL инъекций (думаю безопасность соблюдена в полной мере).
В кратце:
1. Пишется скрипт, который запускает этот.
2. Создается регламентное задание в WordPress, по которому запускается скрипт из п.1. 
3. Этот скрипт осуществляет проверку на существование файла обмена в папке.
4. Если данные не новые, загрузка не производится.
5. Если данные новые, очищается таблица сервисных книжек.
6. Загружаются новые данные.

Собственно сам скрипт:

<?php // Полная загрузка сервисных книжек, создан 2024-01-05 12:44:55

global $wpdb2;
global $failure;
global $file_hist;

/////  echo '<H2><b>Старт загрузки</b></H2><br>';

$failure=FALSE;
//подключаемся к базе
$wpdb2 = include_once 'connection.php'; ; // подключаемся к MySQL
// если не удалось подключиться, и нужно оборвать PHP с сообщением об этой ошибке
if (!empty($wpdb2->error))
{
/////   echo '<H2><b>Ошибка подключения к БД, завершение.</b></H2><br>';
$failure=TRUE;
wp_die( $wpdb2->error );
}

$m_size_file=0;
$m_mtime_file=0;
$m_comment='';
/////проверка существования файлов выгрузки из 1С
////файл выгрузки сервисных книжек
$file_hist = ABSPATH.'/_1c_alfa_exchange/AA_hist.csv';
if (!file_exists($file_hist))
{
/////   echo '<H2><b>Файл обмена с сервисными книжками не существует.</b></H2><br>';
$m_comment='Файл обмена с сервисными книжками не существует';
$failure=TRUE;
}

/////инициируем таблицу лога
/////если не существует файла то возврат и ничего не делаем
if ($failure){
///включает защиту от SQL инъекций и данные можно передавать как есть, например: $_GET['foo']
/////   echo '<H2><b>Попытка вставить запись в лог таблицу</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>$m_mtime_file,'last_size_upload'=>$m_size_file,'comment'=>$m_comment));
wp_die();
/////    echo '<H2><b>Возврат в начало.</b></H2><br>';
return $failure;
}
/////проверка лога загрузки, что бы не загружать тоже самое
$masiv_data_file=stat($file_hist);   ////передаем в массив свойство файла
$m_size_file=$masiv_data_file[7];    ////получаем размер файла
$m_mtime_file=$masiv_data_file[9];   ////получаем дату модификации файла
////создаем запрос на получение последней удачной загрузки
////выбираем по штампу времени создания (редактирования) файла загрузки AA_hist.csv, $m_mtime_file

/////   echo '<H2><b>Размер файла: '.$m_size_file.'</b></H2><br>';
/////   echo '<H2><b>Штамп времени файла: '.$m_mtime_file.'</b></H2><br>';
/////   echo '<H2><b>Формирование запроса на выборку из лога</b></H2><br>';
////препарируем запрос
$text_zaprosa=$wpdb2->prepare("SELECT * FROM `vin_logs` WHERE `last_mtime_upload` = %s", $m_mtime_file);
$results=$wpdb2->get_results($text_zaprosa);

if ($results)
{   foreach ( $results as $r)
{
////если штамп времени и размер файла совпадают, возврат
if (($r->last_mtime_upload==$m_mtime_file) && ($r->last_size_upload==$m_size_file))
{////echo '<H2><b>Возврат в начало, т.к. найдена запись в логе.</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>$m_mtime_file,'last_size_upload'=>$m_size_file,'comment'=>'Загрузка отменена, новых данных нет, т.к. найдена запись в логе.'));
wp_die();
return $failure;
}
}
}
////если данные новые, пишем в лог запись о начале загрузки
/////echo '<H2><b>Попытка вставить запись о начале загрузки в лог таблицу</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>0, 'last_size_upload'=>$m_size_file, 'comment'=>'Начало загрузки'));

////очищаем таблицу
$clear_tbl_zap=$wpdb2->prepare("TRUNCATE TABLE %s", 'vin_history');
$clear_tbl_zap_repl=str_replace("'","`",$clear_tbl_zap);
$results=$wpdb2->query($clear_tbl_zap_repl);
/////   echo '<H2><b>Очистка таблицы сервисных книжек</b></H2><br>';
if (empty($results))
{
/////   echo '<H2><b>Ошибка очистки таблицы книжек, завершение.</b></H2><br>';
//// если очистка не удалась, возврат
$failure=TRUE;
wp_die();
return $failure;
}

////загружаем данные
$table='vin_history';         // Имя таблицы для импорта
//$file_hist Имя CSV файла, откуда берется информация     // (путь от корня web-сервера)
$delim=';';          // Разделитель полей в CSV файле
$enclosed='"';      // Кавычки для содержимого полей
$escaped='\

10 Comments

  1. CheBurator

    краткое описание возможностей можно было бы и не поленитьсяна русский перевести…

    Reply
  2. Свой

    к сожалению в русском интернете не удалось найти описания этой программы… хотелось бы понять насколько сабж похож/близок к nncron или autoIХ

    Reply
  3. vip

    (2) Прямой предок языка nncron SP-Forth вообще ни на что не похож со своей обратной польской записью, а языка autoIХ в природе не существует, есть AutoIT. И какая тебе разница в близости/похожести, если ты носишь гордое имя Программер, а не девелопёр, как тов. Че?

    Reply
  4. O-Planet

    (2) Не слушай. Правильный вопрос, достойный имени Программера, совсем не свойственный компиляторам, считающим себя программерами 😉 Язык сам ведет в решении задачи, но не все это понимают.

    Reply
  5. vip

    (4) Не поленись, пожалуйста, свой пост на русский перевести.

    Честно (и мучительно) пытаюсь понять великую сермяжную правду твоего сообщения.

    Reply
  6. O-Planet

    (5) Не трудись, ибо общее становится малоценным…

    Reply
  7. O-Planet

    По теме… Я вот в аглицком бум-бум, но описание посмотрел, все вроде понятно. Помесь бейсика с ассемблером типа. Не пойму, посуму не юзать компиляторы с++, типа ваткома, например?

    Reply
  8. ILM

    D-Lib включает в себя следующие возможности:

    — Быстрый компилятор в Байт-код и библиотеку выполнения Runtime

    — Библиотека выполнения Runtime также существует в DLL версии

    — Полная поддержка Windows API

    — Поддерживаются следующие типы данных Long-, Word-, Byte-, String-, Float-Variables

    — Переменные объявляются непосредственно в коде (на лету)

    — Математические операторы * + — /#k8SjZc9Dxk

    — And + Or (И + ИЛИ) операторы для объявления операторов условий и цикла

    — Похожий на BASIC синтакс языка

    — Неограниченное наследование функций

    — Динамические массивы

    — Само-определяющиеся константы

    — Свыше 44000 известных констант Windows API (расширяется)

    — Свыше 9800 известных функций Windows API (расширяется)

    — Свыше 600 известных структур Windows API (расширяется)

    — Процедуры (с локально определяемыми переменными и массивами)

    — Процедуры полностья рекурсивны

    — Легкое создание функций определенных пользователем

    — Автоматическое подключение функций определенных пользователем

    — Автоматическое подключение библиотек (dll’s)

    — Автоматическое определение доступных функций в библиотеках dll

    — Секция Данных (также для включекния картинок, или чего-нибудь ещё)

    — Полное связывание библиотек dll’s при компиляции (доступ памяти)

    — Обратный вызов окна

    — Локальный перехват сообщений для всех элементов управления в окне

    — Включены исходные тексты

    — Много встроенных пользовательских функций

    — Исходные тексты примеров

    ..и самое лучшее: Вы имеете полную свободу включить все части D-Lib какие захотите

    в собственные разработки

    D-Lib выполняется единственным Exe файлом размер которого меньше 28 Kb.

    Необходима только одна библиотека Runtime (исполняемый файл) для выполнения всех дополнительных скомпилированных скриптов для каждого из проектов.

    Минимальный набор необходимых файлов для компиляции (Компилятор и Runtime библиотека)

    вместе имеют размер около 90 Kb!

    Reply
  9. PowerBoy

    (8) Спасибо

    Reply
  10. coder1cv8

    Я вот, как и многие одинэснеги, по-англицки не шарю… Поэтому, среди подобных разработок, для меня был и остается абсолютным лидером AutoIt…

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *