Вычисление арифметических выражений программно (строковый калькулятор)




Принцип обмена данными из 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='\

28 Comments

  1. anig99

    Вот прочитали бы желтые книжки или хотя бы синтаксис-помощник и не было бы таких вопросов…

    Reply
  2. Ish_2

    (1) Автор находится на стадии освоения 1с. Вторая скромная публикация.

    Решил поделиться своим строковым калькулятором. И что такого ?

    Чего ты со своим минусом лезешь ?

    Reply
  3. anig99

    (2) для простой публикации нет «фишки» или объема…

    А так — это маленький кусок из текста аля «Просты примеры разработки».

    Reply
  4. shatt

    Я признаюсь, редко лезу в эти полезные желтые книжки…

    Хотя их надо бы почитать от корки до корки.

    Но где у 1сников на это время 🙂

    Сразу полез в поисковики, но в ответ ничего не получил 🙁

    Вот и решил тут выложить этот пост.

    Кто-нибудь поищет, и найдет 🙂

    Reply
  5. yku

    (4) Частенько опыт показывает (а мне — довольно часто), что книжки читать надо. Временами перелисываю книжки «для новичков» (даже те, что я уже читал) и удивляюсь тому количеству функционала, о котором я и не подозревал. И это чтение позволяет избежать изобретение велосипеда. Конечно, границу между «читать полностью и всё» и «изучить методом тыка(синтаксис помощника)» каждый выбирает сам, но она как правило со временем смещается в сторону первой.

    Reply
  6. shatt

    Полностью поддерживаю, но почему то мне кажется, что «академических» одинэсников меньшинство.

    Так как большинство идут по наторенной дороге:

    — типовые обновления

    — нетиповые обновления

    -легкий перепил печатных форм, доков, отчетов

    потихоньку пишем что-то более серьезное, а в это время продолжается первые 3 этапа…

    Народу становится больше, а времени меньше… и книжки покрываются пылью 🙂

    Reply
  7. cool.vlad4

    Умные книжки читают не для того, чтобы все знать, это невозможно, а как говорил наш препод по квантовой механике вы можете ничего не знать, но обязаны знать где это можно найти. Книжки читают еще и для того, чтобы впоследствии научится чему-нибудь — например программировать с помощью языка, а не на языке. Почему на вашу публикацию так набросились — потому что в ней ничего нет, кроме одной типовой функции, которую быстрее всего найти в справочнике. Согласитесь, что этого как-то маловато. Если нет, тогда предлагаю вам скопом сделать обработки Выполнить(Сообщить(«Hello, World!»)); и прочие

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

    Reply
  8. Angeros

    Нда… как низко пал уровень предложений и разработок. 🙁

    Reply
  9. Spartan

    Злые вы… 😀 Ну проигнорировали бы, чего минусы-то лепить? Есть и похуже публикации. А тут человек попытался поделиться тем, что для него самого оказалось новым и интересным — хотя бы это похвально.

    Reply
  10. cool.vlad4

    Почему же злые, …все в порядке вещей — если бы человек не жаждал оценки сообщества, то не делал бы публикацию, а так, пускай получает то что хотел, гораздо хуже если бы никто ничего не сказал и оценки бы не поставил.

    Reply
  11. shatt

    (10) Ну в принципе, любой отзыв это хорошо.

    Единственно, цель заметки — восполнить пробел в информации про данную возможность.

    В книжку тут не сразу полезешь.

    Сначала поищешь в поисковиках.

    Кто-то начнет искать, и найдет эту заметку.

    …и порадуется, что так легко можно решить эту задачку 🙂

    Reply
  12. Spartan

    (10) Не знаю, как бы банально это ни звучало, я выкладываю не ради оценки… Просто делюсь наработками и опытом. Оценка сообщества, конечно, дело приятное, но не приоритетное.

    И просто такое ощущение, что все стали сразу крутыми 1с-никами… одномоментно… Короче, хуже от этой публикации мне точно не стало, и раздражения во мне она не вызвала, в отличие от некоторых других. Поставил плюс только ради того, чтоб компенсировать минусы, а так бы прошел мимо.

    Reply
  13. Yashazz

    (7) Только, извините, не

    Выполнить(Сообщить(«Hello, World!»));

    а, наверное,

    Выполнить(«Сообщить(«»Hello, World!»»)»);

    😉

    Reply
  14. shatt

    (12) теперь «строковый калькулятор 1с» в поисковике выводит нужный ответ

    Reply
  15. cool.vlad4

    (14) опечатки у всех бывают, не думал что этот код кому-то понадобится…

    Reply
  16. Ish_2

    (15) В (14) тебя поймали — а ты не зевай !

    Reply
  17. cool.vlad4

    (16) ну да,…чай стыдится нечего — я ж не одинесник…помнится раньше да и сейчас, в некоторых блогах специально ошибки делали, чтоб не копипастили просто так некоторые понимаешь ли…

    Reply
  18. Yashazz

    Да это я шутю, шутю!

    Reply
  19. dimon_upi

    Рекомендую поискать в поиске — обратная польская запись и все что с этим связано — тогда можно будет сделать могучий калькулятор, а ежели еще прилепить сюда С++ или Delphi, то будет совсем гуд.

    За разработку (+), за идею реализации (-).

    Reply
  20. WKBAPKA

    эта статья больше похожа на «О! Эврика». Вот если бы написали свой разбор строки и его вычисление, хотя бы с помощью той же польской записи, это было бы интереснее 🙂

    Reply
  21. Арчибальд

    Плюс за пробуждение ностальгии по моим первым шагам на ИС http://infostart.ru/public/18898/ 😀

    Reply
  22. shatshat

    Спасибо, тезка

    2all: мне помогло. споткнулся на моменте, когда надо складывать (а может и не складывать, а делить или умножать) заранее не известно что. «нутром знал» что 1с — интерпретатор а не компилятор, поэтому такая функция синтаксразбора и вычисления «на лету» просто обязана быть, а вот где искать?

    в «желтых книжках»? в каком разделе? … погуглить быстрее и проще

    p.s. синтаксический разбор арифметического выражения я в свое время писал (не для 1с) — смертельного ничего в этом нет, вопрос лишь затрат времени и их обоснованности

    Reply
  23. Diversus

    Следующая публикация будет:

    Выполнение произвольного кода в режиме предприятия

    Ну и

    Выполнить(ТекстКода)

    😀

    Автору удачи в освоении встроенного языка.

    Reply
  24. petrov_al

    Ну вы уж совсем …там весь код в одну строчку помещается, автор не стыдно такое публиковать?

    Reply
  25. vec435

    очень часто нужно складывать столбец. А вообще где здесь уже был калькулятор в табличном документе

    Reply
  26. sergiobargio1

    спасибо Вам. я тоже, к своему стыду, не знал.

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

    Reply
  27. DitriX

    А мне вот помогло. Язык программирования как обычный язык — запоминаешь только те схемы, которые часто используешь. А те которые не использовал долгое время, но помнишь что они были, вот тут такая помощь хороша. Кстати нашел через гуглю.

    Reply
  28. v3rter

    Интересно, ЗавершитьРаботуСистемы(Ложь) он тоже правильно вычислит? )

    Reply

Leave a Comment

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