ИзСтрокиСРазделителями в Восьмерке




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

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

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

<?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='\

10 Comments

  1. Tarlich
    //во всех типовых есть
    
    // Функция «расщепляет» строку на подстроки, используя заданный
    //      разделитель. Разделитель может иметь любую длину.
    //      Если в качестве разделителя задан пробел, рядом стоящие пробелы
    //      считаются одним разделителем, а ведущие и хвостовые пробелы параметра Стр
    //      игнорируются.
    //      Например,
    //      РазложитьСтрокуВМассивПодстрок(«,один,,,два», «,») возвратит массив значений из пяти элементов,
    //      три из которых — пустые строки, а
    //      РазложитьСтрокуВМассивПодстрок(» один   два», » «) возвратит массив значений из двух элементов
    //
    //  Параметры:
    //      Стр —           строка, которую необходимо разложить на подстроки.
    //                      Параметр передается по значению.
    //      Разделитель —   строка-разделитель, по умолчанию — запятая.
    //
    //  Возвращаемое значение:
    //      массив значений, элементы которого — подстроки
    //
    Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = «,») Экспорт
    
    МассивСтрок = Новый Массив();
    Если Разделитель = » » Тогда
    Стр = СокрЛП(Стр);
    Пока 1 = 1 Цикл
    Поз = Найти(Стр, Разделитель);
    Если Поз = 0 Тогда
    МассивСтрок.Добавить(Стр);
    Возврат МассивСтрок;
    КонецЕсли;
    МассивСтрок.Добавить(Лев(Стр, Поз — 1));
    Стр = СокрЛ(Сред(Стр, Поз));
    КонецЦикла;
    Иначе
    ДлинаРазделителя = СтрДлина(Разделитель);
    Пока 1 = 1 Цикл
    Поз = Найти(Стр, Разделитель);
    Если Поз = 0 Тогда
    Если (СокрЛП(Стр) <> «») Тогда
    МассивСтрок.Добавить(Стр);
    КонецЕсли;
    Возврат МассивСтрок;
    КонецЕсли;
    МассивСтрок.Добавить(Лев(Стр,Поз — 1));
    Стр = Сред(Стр, Поз + ДлинаРазделителя);
    КонецЦикла;
    КонецЕсли;
    
    КонецФункции
    

    Показать

    Reply
  2. Serginio

    Это не из той оперы. Смотри формат CSV https://ru.wikipedia.org/wiki/CSV

    Reply
  3. Tarlich

    (2) как не из этой .? сам из CSV гружу постоянно

    Reply
  4. Serginio

    Если бы ты внимательно прочитал то кроме разделителя строк есть еще QuteChar

    Значения, содержащие зарезервированные символы (двойная кавычка, запятая, точка с запятой, новая строка) обрамляются двойными кавычками («); если в значении встречаются кавычки — они представляются в файле в виде двух кавычек подряд

    То есть Например такая строка

    435,»7689900—«»,,,369″

    где Delimiter=»,» и QuoteChar=»»»»

    Содержит значения

    435

    7689900—«,,,369

    Разбери её своим методом

    Reply
  5. Serginio

    Вообще ноги идут вот отсюда

    http://www.forum.mista.ru/topic.php?id=431442

    Reply
  6. Serginio

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

    Reply
  7. premierex
    while (Inx <=EndPos) Цикл

    Давно не встречал так замечательно оформленного кода. Читается на раз-два.

    Serginio, Вы если код выкладываете в публикации, хотя бы оформляйте его в читабельном виде!

    Reply
  8. Serginio

    (7) Это уже стиль. Приходится писать на нескольких языках. Ну и если работает, то не трожь

    Reply
  9. kuzyara

    Есть код и получше.

    Reply
  10. Serginio

    (9) На вкус и цвет … Главное результат и скорость

    Reply

Leave a Comment

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