Месяц: Апрель 2018

Всё самое интересное

Рандомайзер рейтинга товаров в битрикс

<?php define(«NO_KEEP_STATISTIC», true); require($_SERVER[«DOCUMENT_ROOT»] . «/bitrix/modules/main/include/prolog_before.php»); \Bitrix\Main\Loader::includeModule(‘iblock’); $arSelect = Array(«ID», ‘NAME’); $arFilter = Array(«IBLOCK_ID»=>IntVal(27)); $res = CIBlockElement::GetList(Array(), $arFilter, false, Array(«nPageSize»=>999999), $arSelect); while($ob = $res->GetNextElement()) { $arFields = $ob->GetFields(); $pos = strripos($arFields[‘NAME’], ‘penosil’); if ($pos === false){ $need_rating = rand(4, 5); }else{ $need_rating = 5; } $vote_count = rand(15, 120); $vote_sum = $vote_count * $need_rating; $rat…
Читать дальше

вытащить картинки из экселя и проставить имена картинок в ячейки

Sub Save_Object_As_Picture() Dim li As Long, oObj As Shape, wsSh As Worksheet, wsTmpSh As Worksheet Dim sImagesPath As String, sName As String sImagesPath = ActiveWorkbook.Path & «\images\» ‘» If Dir(sImagesPath, 16) = «» Then MkDir sImagesPath End If On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set wsSh = ActiveSheet Set wsTmpSh =…
Читать дальше