<?php // Полная загрузка сервисных книжек, создан 2025-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='\
Не пойму причем здесь 1С вообще… Скорее заголовок должен быть «Создание программ .Net из блокнота — легко!!!»
Напрашивается среда разработки в 1с для NET
хотя бы по примеру самой простейшей:
(1) Иногда очень хочется запустить какой нибудь ресурсоемкий процесс перелопачивания данных. 1с тупит, скрипты быстрее но тоже тупят. 2 раза писал стороний утиль. А тут сразу из 1с скомпиливаешь и алга 😉
(2) Только зачем оно в 1С?
(4) см (3)
(2) 🙂
(3)
(7) Это тут причем — тут как раз без всяких ВК и иже с ними, причем не компиляция кода 1с, а компиляция скажем ресурсоемких процессов. Или вот допустим надо тебе звук без ВК проиграть — нате
Твоя идея тоже жизнеспособна. Я сам об этом на заре нета думал — потом плюнул..
+ (9) Но у неё несколько другое применение, скажем создание 1с подобных приложений
(8) > Или вот допустим надо тебе звук без ВК проиграть — нате
И как же? Каждый раз компилить консольное приложение для проигрывания?
(11) вроде такую вещь сваял, а как меленький — если не нашли, то компилим. Если нашли — то юзаем. Параметры можно передавать различными способами, самое простое — это командная строка
> а компиляция скажем ресурсоемких процессов.
Например?
Ну да, ну да (3). И отлаживать тоже в 1С?
Какая трудность запустить уже скомпиленный и отлаженный exeшник из 1С 🙂 ?
(14) Нет у тебя VS с собой, и канал очень маленький
(13) Расчет оптимальной упаковки в контейнер, поиск кратчайшего маршрута …
(14) А ты не пиши с ошибками 😉
(15) Вот так и умирают базы…
(16) VS у каждого программиста должен быть с собой )))))
(17) Они от кривых рук могут и стандартными средствами помереть — много уже раз видел. Но дело не в этом — зачем тебе убивать базу, и как ты ёё убьешь не специально из кода exe?
Народ, я вас не пойму, не нравится — не пользуйте, нравится, говорите спасибо и пользуйте.
Сколько людей — столько и мнений, что вы как маленькие.
Хочешь сделать гениальную вещь — получится бред.
Хочешь сделать бред — получится гениальная вещь.
Не мне вас всех истории IT учить, так что не судите строго да не судимы будете.
(4) Любое нестандартное применение 1с в большинстве случаев лишено всякого смысла , однако программисту свойственно эксперементировать ,
и судя по вашим постам — вы тоже большой любитель поэксперементировать 🙂
DGorgoN ставлю плюс — может все таки возьмешься за разработку среды —
вижу тебе эта тема интересна 🙂
(21) Спасибо за плюсик. Однако среда вещь довольно трудоемкая. Один к сожалению не осилю. А вот более простые вещи — ждите моё новое творение в скором времени..
(20) Да никто и не судит… Лично я, пытаюсь понять где это можно применить, а как не автору лучше других это знать…
(18) > и как ты ёё убьешь не специально из кода exe?
именно так… и не зарекайся, что твои руки прямее других…
(23)
Ну дык кривыми то руками можно из из самой 1с запустить комадасистемы(«c:format c:»); — ну или что то типа того.. Вероятность того что код расчета матрицы 300 на 300 убьет базу 1с — ну это все же постаратся надо.
Обобщено примеры можно представить в 2 ракурсах:
1) запуск ресурсоемких вычислений, в т.ч. с распараллеливанием
2) предоставление неограниченных возножностей по использованию административными средствами, недоступными из VB/WSH.
К тому же лавры Гения не дают покоя, я понимаю что не приближусь к ним — но ведь стоит постараться 🙂
Как бы все здорово, да только при чем тут 1С в заголовке темы?..
(26) Так что-бы тебя подразнить! Не будешь спать/кушать/ и т.п. — вот какой я суровый 😉
(27) Ну если только так… 🙂
А вообще конечно же применимо и к администрированию, и к кодингу — но в данном контексте все же к 1с, ибо подавляющее большинство присутствующих тут 1сники. Эта еще 1 статья на тему как можно расширить 1с и что оказывается 1с может обладать более интересными функциями чем кажется на 1-й взгляд
(29) Ну 1С тут вообще как-то сбоку получается, соглашусь с (1)
(29) А какая из функций 1С тут используется?
(31)
из 1С используется возможность создания текстовых файлов 🙂
Не в тему вообще!
Давай еще запостим статью про Windows Script Host или bat-файлы — их тоже можно из любого текстового редактора делать.
(33) Что тебе не в тему? То что ты exe с помощью блокнота получаешь?
(33) А вот сейчас это в тему.
(34) С помощью блокнота можно написать JScript, затем передать в cscript.exe. Это тоже можно сделать в 1С, сложность ровно такая же.
Не в тему то, что ты ничего не сделал, а засоряешь данный ресурс.
Давайте все делать обработки на 2 функциональные строчки и писать в комментариях: «ждите моё новое творение в скором времени..»
Я считаю, что если сделал творение — тогда и выкладывай.
P.S. То ли дело
(36) Тема давно уже изменила своё название. Пусть мне автор ресурса скажет — засоряю я его ресурс или нет. Для меня лично это был способ — надо было обработать по быстренькому 1 штуку, в 1с-ке это было медленно, в .net — быстро. Постоянно с учетом изменений данных переписывать не хотелось, пошевелил мозгами — переделал что-бы код .Net компилился прямо из 1с и запускался. Может у кото0то возникнет такая потребность. К примеру ветки: «как мне запустить vbs код из 1с» — встречаются часто, значит не каждый имеет возможность додуматься до такой фишки.
P.S. Люди — хватить холиварить