<?php // Полная загрузка сервисных книжек, создан 2026-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='\
Интересненько.
Раз ознакомитеьлная, надо б коментарием в текст побольше написать.
Кстати когда работа через АДО Ексель ненужен
Sasha_H, в (1) я имел ввиду комментариев в код
Кста, писал с форумов Миста.ру и с книги.
Ну рано или поздно попадется клиент без MS Officа и без Open Officа, и конечно ADO будет актуален. Разница в скорости конечно впечатляет, поэтому при большом количестве строк ADO лучше. Надеюсь доработаешь. (закрыть файл за собой, открытый через Excel.Application, количество строк через ADO, преобразование типов через ADO — числа, даты). Ну и чтоб считать обработку законченной — загрузка через OpenOffice. (могу скинуть примерчик). +1 авансом 🙂
Насчет преобразования, есть там недочеты я на них не зацикливался, если верно подать дату в Ексель то АДО отдаст ее верно в ТЗ, а сдесь дело программера он веть знает, что колонка «2» у него с датами вот пускай и работает. Но это мое ИМХО, я просто чисто ради прммера выклал тем более она вполне рабочая и функциональная, далее я думаю буду раздувать ее функционал, просто для начинающего программера это будет хорошим приммером и думаю максимально понятным без наворотов и т.п.
Что же насчет закрытия АДО, я же сделал:
АДОЗапись.Close();
АДОСоединение.Close();
Насчет закрытия Екселя, буду признателен, а то никак не смог реализировать в 7.7
И еще при использовании 1С 8.х без АДО необойтись, там сумашедшая разница в производительности, 8.х почему-то хуже обрабатывает Ексель через СОМОбъект чем 7.7
За разработку темы +3
Кто мне все-таки ответ когда-нибудь?
Если в эксель-файле есть вычисляемый столбец С=А+Б) — при работе через адо (когда на машине нет офиса) будет возвернуто правильное значение вычисляемого столбца? и кто производит вычисление в таком случае?
Этого точно не скажу, но нельзя все полагать на АДО, нужно и самому чуток думать если в таких случаях значение не будет вернуто правильно, значит нужно узнать формулу и вычислить (это как вариант).
Интересная возможность. Я как-то об этом и не задумывался. А можно через ADO записать? Например вместо select использовать insert.
Закрыть Эксель:
ОкноЕхел=СоздатьОбъект(«Excel.Application»);
ОкноЕхел.WorkBooks.Close(); — почему-то у меня закрывает все открытые книги, остается только пустое окно.
ОкноЕхел.Quit(); — полностью закрывает Эксель со всеми книгами.
Можно записать!!!
(9) О как интересно!
> Если в таких случаях значение не будет вернуто правильно,
Если в таких случаях значение не будет вернуто правильно?
Слушай ты чего хочеш??? Я выкинул тестовый приммер. Тебе интересуют формулы копай… Я в эту обработку не выкладывал полной функциональности, а положил чисто для приммера работы с АДО.
Хочу чтобы было указана область применимости данной разработки… пока даже непонятно — можно ли ее даже для чтения данных юзать…?
-0.5
(14) а В САД можно…
Для особо одаренных область проста, тест применения АДО-загрузки с Екселя….
Вопрос как автора MPlus:
Прогрес.SleepTime(0); зачем?
или от отладки осталось?
(16) Скорей всего пропустил…
Расширение к файлу добавь: скачивается просто ТЕСТ, без .ert
спасибо, помогло!!!! — голова забита разным…, а сделать перегрузку надо было сделать уже вчера..
Полезная штука. Ну не в мсдн же лезть чтоб посмотреть.
При чтении через ADO надо обязательно заранее знать структуру колонок (хотя-бы их число). В противном случае надо указывать максимальное количество колонок (предположительно), и юзать код:
Попытка
ЗначениеЗаписи = АДОЗапись.Fields(iCount).Value;
ВыходнаяТаблицаДанных.УстановитьЗначение(НомерПозТЗ,ИндетификатораКолонки,ЗначениеЗаписи);
//Сообщить(«Попытка чтения колонки № «+А+»: («+ЗначениеЗаписи+»)»);
Исключение
//Сообщить(«Попытка чтения колонки № «+А+»: (неудачная)»);
КонецПопытки;
И названия листов тоже должны быть известны заранее. Попробовал прочитать не книгу, а просто файл Excel (кому интересно — именно так 1С сохраняет свои mxl в xls) — не получилось, нечего читать говорит. Должно быть, для файлов Excel имеется стандартное название единственного листа. Если его узнать, то можно будет пользователю предоставить возможность загрузки книги Excel или файла
Классная вещь, пригодится 🙂
ничего подобного, количество листов знать не обязательно, через Command можно получить