3
51
349a3c53-c37c-4d65-ae41-b8eebd7ebc9f
https://serialage.tv
234DF17B-418C-4FDC-9DFE-CD0C586D2E76
4
SerialAge.tv (С поиском)
515
1
700
0
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
512
0
532
1
553
1
522
0
570
1
245
349a3c53-c37c-4d65-ae41-b8eebd7ebc9f
93
43194,959372662
530
string gsUrlBase = 'https://serialage.tv'; // База для относительных ссылок
int gnTotalItems = 0; // Счётчик созданных элементов
TDateTime gStart = Now; // Время начала запуска скрипта
int gnMaxPages=10, gnMaxInGroup=100; bool gbYearInTitle=false; char gsGroupMode='';
// Регулярные выражения для поиска на странице блоков с информацией о видео
string
gsPatternBlock = '<tr>(.*?)</tr>' , // Искомые блоки
gsCutPage = '<fromCut>(.*?)<toCut>' , // Обрезка загруженной страницы
gsPatternTitle = '(<a.*?</a>)' , // Название
gsPatternLink = '<a[^>]+href="(.*?)"' , // Ссылка
gsPatternImg = '<img[^>]+src="(.*?)"' , // Картинка
gsPatternYear = 'shortinfo.*?>(\\d{4})<' , // Год
gsPatternAudio = '' , // Озвучка / Перевод
gsPatternPages = '.*/page/\\d+/">(\\d+)' , // Регулярное выражение для поиска максимального номера страницы для дозагрузки
gsPagesParams = 'page/<PN>/' , // Параметр с номером страницы, который добавляется к ссылке
;
///////////////////////////////////////////////////////////////////////////////
// Создание папки или подкаста
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') {
THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой
Item[mpiTitle ] = sName; // Присваиваем наименование
Item[mpiThumbnail ] = sImg; // Картинка
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания
gnTotalItems++; // Увеличиваем счетчик созданных элементов
return Item; // Возвращаем созданный объект
}
///////////////////////////////////////////////////////////////////////////////
// Получение имени группировки по имени видео (первая буква, "A..Z" или "#")
string GetGroupName(string sName) {
string sGrp = '#';
if (HmsRegExMatch('([A-ZА-Я0-9])', sName, sGrp, 1, PCRE_CASELESS)) sGrp = UpperCase(sGrp);
if (HmsRegExMatch('[A-Z]', sGrp, sGrp)) sGrp = 'A..Z';
if (HmsRegExMatch('[0-9]', sGrp, sGrp)) sGrp = '#';
return sGrp;
}
///////////////////////////////////////////////////////////////////////////////
// Загрузка страниц и парсинг
void LoadAndParse() {
string sHtml, sData, sName, sLink, sImg, sYear, sPage, sVal, sPost, sServ; // Объявляем переменные
THmsScriptMediaItem Item, Folder = FolderItem; TRegExpr RegEx;
int i, n, nPages=0, iCnt=0, nGrp=0; char sGrp=""; bool bGroup=false;
if (HmsRegExMatch('--maxingroup=(\\d+)', mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal);
if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal);
HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, gsGroupMode);
gbYearInTitle = (Pos('--yearintitle', mpPodcastParameters)>0);
if (LeftCopy(mpFilePath, 4) != "http") {
// Если нет ссылки - делаем поиск названия
sLink = 'https://serialage.tv/search?query='+HmsPercentEncode(HmsUtf8Encode(mpTitle));
sHtml = HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true);
} else {
// Иначе просто, загружаем страницу по ссылке
sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+gsUrlBase, true);
}
sHtml = HmsUtf8Decode(sHtml); // Декодируем страницу из UTF-8
sHtml = HmsRemoveLineBreaks(sHtml); // Удаляем переносы строк, для облегчения работы с регулярными выражениями
// Если указан шаблон поиска максимального номера страницы - применяем
if ((gsPatternPages!='') && HmsRegExMatch(gsPatternPages, sHtml, sVal)) nPages = StrToIntDef(sVal, 0);
// Вырезаем только нужный участок текста HTML, где будем искать блоки.
// Вместо <fromCut> и <toCut> вставляем начало и конец участка HTML, между которыми
// будем искать блоки текста с сылкой, наименованием и проч.
HmsRegExMatch(gsCutPage, sHtml, sHtml); // ищем в sHtml, результат кладём обратно в sHtml
// =========================================================================
// Дозагрузка страниц
if ((gnMaxPages!=0) && (nPages>gnMaxPages)) nPages = gnMaxPages;
for (i=2; i<=nPages; i++) {
HmsSetProgress(Trunc(i*100/nPages));
HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, nPages]));
sLink = mpFilePath + ReplaceStr(gsPagesParams, '<PN>', IntToStr(i));
sPage = HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true);
sPage = HmsUtf8Decode(sPage);
if (gsCutPage!='') HmsRegExMatch(gsCutPage, sPage, sPage);
sHtml += sPage;
if (HmsCancelPressed) break;
}
HmsHideProgress();
// =========================================================================
// Создаём объект для поиска блоков текста по регулярному выражению,
// в которых есть информация: ссылка, наименование, ссылка на картинку и проч.
// Обычно, определяем начало и конец блока и вставляем их вместо <section> и </section>
RegEx = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE);
try {
// Определяем, если блоков в загруженном более чем gnMaxInGroup, включаем группировку
i=0; if (RegEx.Search(sHtml)) do i++; while (RegEx.SearchAgain());
bGroup = (i > gnMaxInGroup);
// Главный цикл поиска блоков
if (RegEx.Search(sHtml)) do {
sLink=''; sImg=''; sYear=''; sName='';
HmsRegExMatch(gsPatternTitle, RegEx.Match, sName);
HmsRegExMatch(gsPatternLink , RegEx.Match, sLink);
HmsRegExMatch(gsPatternImg , RegEx.Match, sImg );
HmsRegExMatch(gsPatternYear , RegEx.Match, sYear);
if (Trim(sLink)=="") continue;
sName = ReplaceStr(HmsHtmlToText(sName), "/", "-");
sLink = HmsExpandLink(sLink, gsUrlBase);
if (sImg!='') sImg = HmsExpandLink(sImg, gsUrlBase);
// Если в ссылках встречаются русские символы - делаем их безопасными
if (HmsRegExMatch('^.*?([а-яА-Я].*)', sImg, sVal)) sImg = ReplaceStr(sImg, sVal, HmsPercentEncode(HmsUtf8Encode(sVal)));
// Если указано добавлять год вназвание и в названии его нет, добавляем
if (gbYearInTitle && (sYear!='') && (Pos(sYear, sName)<1)) sName += ' ('+sYear+')';
// Контроль группировки (создаём папку с именем группы)
if (gsGroupMode=='alph') {
Folder = FolderItem.AddFolder(GetGroupName(sName));
Folder[mpiFolderSortOrder] = "mpTitle";
} else if (gsGroupMode=='year') {
Folder = FolderItem.AddFolder(sYear);
Folder[mpiFolderSortOrder] = "mpTitle";
Folder[mpiYear ] = sYear;
} else if (bGroup) {
iCnt++; if (iCnt>=gnMaxInGroup) { nGrp++; iCnt=0; }
Folder = FolderItem.AddFolder(Format('%.2d', [nGrp]));
}
CreateFolder(Folder, sName, sLink, sImg); // Создание ссылки (папки с фильмом)
} while (RegEx.SearchAgain);
} finally { RegEx.Free(); }
if (gsGroupMode=='alph') FolderItem.Sort('mpTitle');
else if (gsGroupMode=='year') FolderItem.Sort('-mpYear');
HmsLogMessage(1, mpTitle+': создано элементов - '+IntToStr(gnTotalItems));
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
{
FolderItem.DeleteChildItems(); // Удаляем созданные ранее элементы в текущей папке
LoadAndParse(); // Запускаем загрузку страниц и создание папок видео
}
531
C++Script
550
string gsUrlBase = "https://serialage.tv";
TDateTime gStart = Now; // Время старта скрипта
int gnTotalItems = 0; // Счётчик созданных ссылок
int mpiCountry = 10012; // Идентификаторы для хранения дополнительной
int mpiTranslate = 10013; // информации в свойствах подкаста
int mpiQuality = 10014;
int mpiSiteRating = 10015;
int mpiVideoMessage = 1001001;
string gsTime = "01:00:00.000"; // Длительность по-умолчанию для всех видео
string gsPodcastName = "serialage.tv";
string gsPreviewPrefix = 'serialage'; // Префикс кеша информационных картинок на сервере wonky.lostcut.net
///////////////////////////////////////////////////////////////////////////////
// Создание папки или подкаста
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') {
THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой
Item[mpiTitle ] = sName; // Присваиваем наименование
Item[mpiThumbnail ] = sImg; // Картинка
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания
gnTotalItems++; // Увеличиваем счетчик созданных элементов
return Item; // Возвращаем созданный объект
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки на видео
THmsScriptMediaItem CreateMediaItem(THmsScriptMediaItem Folder, string sTitle, string sLink, string sImg="", string sGrp="") {
THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID, sGrp);
Item[mpiTitle ] = sTitle;
Item[mpiThumbnail ] = sImg;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
Item[mpiTimeLength] = gsTime;
gnTotalItems++;
return Item;
}
///////////////////////////////////////////////////////////////////////////////
// Вывод видео сообщения с заданным текстом
void ShowVideoMessage(string sMsg, string sTitle='', int nErr=0, string sDescr='') {
if (nErr==1) sMsg = '<c:#e22>'+Trim(sMsg);
TStrings INFO = TStringList.Create();
INFO.Values['Title' ] = sTitle;
INFO.Values['Info' ] = sMsg;
INFO.Values['Descr' ] = sDescr;
PodcastItem[mpiVideoMessage] = INFO.Text;
INFO.Free();
VideoPreview();
}
///////////////////////////////////////////////////////////////////////////////
// Создание информационной ссылки
void CreateInfoItem(string sName, string sVal) {
THmsScriptMediaItem Item; sVal = Trim(sVal);
if (sVal=="") return;
Item = HmsCreateMediaItem('Info'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID);
Item[mpiTitle ] = sName+': '+sVal;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg';
Item[mpiTimeLength] = 9;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
gnTotalItems++;
}
///////////////////////////////////////////////////////////////////////////////
// Формирование видео с картинкой с информацией о фильме
bool VideoPreview() {
string sVal, sFileImage, sPoster, sTitle, sDescr, sCateg, sInfo, sLink, sData;
int xMargin=7, yMargin=10, nSeconds=10, n; string sCacheDir;
float nH=cfgTranscodingScreenHeight, nW=cfgTranscodingScreenWidth;
// Проверяем и, если указаны в параметрах подкаста, выставляем значения смещения от краёв
if (HmsRegExMatch('--xmargin=(\\d+)', mpPodcastParameters, sVal)) xMargin=StrToInt(sVal);
if (HmsRegExMatch('--ymargin=(\\d+)', mpPodcastParameters, sVal)) yMargin=StrToInt(sVal);
sCacheDir = IncludeTrailingBackslash(HmsTempDirectory);
if (Trim(PodcastItem[mpiVideoMessage])=='') return; // Если нет инфы - выходим быстро!
TStrings INFO = TStringList.Create(); // Создаём объект TStrings
INFO.Text = PodcastItem[1001001]; // И загружаем туда информацию
sPoster = INFO.Values['Poster']; // Постер
sTitle = INFO.Values['Title' ]; // Самая верхняя надпись - Название
sCateg = INFO.Values['Genre' ]; // Жанр
sInfo = INFO.Values['Info' ]; // Блок информации
sDescr = INFO.Values['Descr' ]; // Описание
if (sTitle=='') sTitle = ' ';
ForceDirectories(sCacheDir);
sFileImage = ExtractShortPathName(sCacheDir)+'videopreview_'; // Файл-заготовка для сохранения картинки
sDescr = Copy(sDescr, 1, 3000); // Если блок описания получился слишком большой - обрезаем
INFO.Text = ""; // Очищаем объект TStrings для формирования параметров запроса
INFO.Values['prfx' ] = gsPreviewPrefix; // Префикс кеша сформированных картинок на сервере
INFO.Values['title'] = sTitle; // Блок - Название
INFO.Values['info' ] = sInfo; // Блок - Информация
INFO.Values['categ'] = sCateg; // Блок - Жанр/категории
INFO.Values['descr'] = sDescr; // Блок - Описание фильма
INFO.Values['mlinfo'] = '20'; // Максимальное число срок блока Info
INFO.Values['w' ] = IntToStr(Round(nW)); // Ширина кадра
INFO.Values['h' ] = IntToStr(Round(nH)); // Высота кадра
INFO.Values['xm'] = IntToStr(xMargin); // Отступ от краёв слева/справа
INFO.Values['ym'] = IntToStr(yMargin); // Отступ от краёв сверху/снизу
INFO.Values['bg'] = 'http://www.pageresource.com/wallpapers/wallpaper/noir-blue-dark_3512158.jpg'; // Катринка фона (кэшируется на сервере)
INFO.Values['fx'] = '3'; // Номер эффекта для фона: 0-нет, 1-Blur, 2-more Blur, 3-motion Blur, 4-radial Blur
INFO.Values['fztitle'] = IntToStr(Round(nH/14)); // Размер шрифта блока названия (тут относительно высоты кадра)
INFO.Values['fzinfo' ] = IntToStr(Round(nH/22)); // Размер шрифта блока информации
INFO.Values['fzcateg'] = IntToStr(Round(nH/26)); // Размер шрифта блока жанра/категории
INFO.Values['fzdescr'] = IntToStr(Round(nH/18)); // Размер шрифта блока описания
// Если текста описания больше чем нужно - немного уменьшаем шрифт блока
if (Length(sDescr)>890) INFO.Values['fzdescr'] = IntToStr(Round(nH/20));
// Если есть постер, задаём его параметры отображения (где, каким размером)
if (sPoster!='') {
INFO.Values['wpic' ] = IntToStr(Round(nW/4)); // Ширина постера (1/4 ширины кадра)
INFO.Values['xpic' ] = '10'; // x-координата постера
INFO.Values['ypic' ] = '10'; // y-координата постера
if (mpFilePath=='InfoUpdate') {
INFO.Values['wpic' ] = IntToStr(Round(nW/6)); // Ширина постера (1/6 ширины кадра)
INFO.Values['xpic' ] = IntToStr(Round(nW/2 - nW/12)); // центрируем
}
INFO.Values['urlpic'] = sPoster; // Адрес изображения постера
}
sData = ''; // Из установленных параметров формируем строку POST запроса
for (n=0; n<INFO.Count; n++) sData += '&'+Trim(INFO.Names[n])+'='+HmsHttpEncode(INFO.Values[INFO.Names[n]]);
INFO.Free(); // Освобождаем объект из памяти, теперь он нам не нужен
// Делаем POST запрос не сервер формирования картинки с информацией
sLink = HmsSendRequestEx('wonky.lostcut.net', '/videopreview.php?p='+gsPreviewPrefix, 'POST',
'application/x-www-form-urlencoded', '', sData, 80, 0, '', true);
// В ответе должна быть ссылка на сформированную картинку
if (LeftCopy(sLink, 4)!='http') {HmsLogMessage(2, 'Ошибка получения файла информации videopreview.'); return;}
// Сохраняем сформированную картинку с информацией в файл на диске
HmsDownloadURLToFile(sLink, sFileImage);
// Копируем и нумеруем файл картики столько раз, сколько секунд мы будем её показывать
for (n=1; n<=nSeconds; n++) CopyFile(sFileImage, sFileImage+Format('%.3d.jpg', [n]), false);
// Для некоторых телевизоров (Samsung) видео без звука отказывается проигрывать, поэтому скачиваем звук тишины
char sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3';
try {
if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3);
sFileMP3 = '-i "'+sFileMP3+'"';
} except { sFileMP3=''; }
// Формируем из файлов пронумерованных картинок и звукового команду для формирования видео
MediaResourceLink = Format('%s -f image2 -r 1 -i "%s" -c:v libx264 -pix_fmt yuv420p ', [sFileMP3, sFileImage+'%03d.jpg']);
}
///////////////////////////////////////////////////////////////////////////////
// Вывод вместо видео заданного сообщения
bool VideoMessage(char sCaption, char sMessage, int nTime=30) {
char sFileImage = HmsTempDirectory+'\\videomessage.jpg'; char sCmd;
sCaption = HmsHttpEncode(ReplaceStr(sCaption, '\n', '|'));
sMessage = HmsHttpEncode(ReplaceStr(sMessage, '\n', '|'));
HmsDownloadURLToFile('http://wonky.lostcut.net/videomessage.php?testpic=1&caption='+sCaption+'&msg='+sMessage, sFileImage);
char sFileMP3 = HmsTempDirectory+'\\silent.mp3';
try {
if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3);
sFileMP3 = '-i "'+sFileMP3+'"';
} except {
sFileMP3 = '';
}
sCmd = Format('%s -loop 1 -f image2 -i "%s" -t %d -r 25 ', [ExtractShortPathName(sFileMP3), ExtractShortPathName(sFileImage), 7]);
MediaResourceLink = sCmd;
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки-ошибки
void ErrorItem(string sMsg) {
THmsScriptMediaItem Item = HmsCreateMediaItem('Err', PodcastItem.ItemID);
Item[mpiTitle ] = sMsg;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/symbol-error.png';
}
///////////////////////////////////////////////////////////////////////////////
// Вывод видео сообщения с информацией о фильме
void ShowVideoInfo() {
string sInfo; THmsScriptMediaItem Parent = PodcastItem.ItemParent;
sInfo = '';
if (Trim(Parent[mpiCountry ])!='') sInfo += 'Страна: ' +Parent[mpiCountry ]+"|";
if (Trim(Parent[mpiTranslate])!='') sInfo += 'Перевод: ' +Parent[mpiTranslate]+"|";
if (Trim(Parent[mpiQuality ])!='') sInfo += 'Качество: '+Parent[mpiQuality ]+"|";
if (Trim(Parent[mpiDirector ])!='') sInfo += 'Режиссер: '+Parent[mpiDirector ]+"|";
if (Trim(Parent[mpiActor ])!='') sInfo += 'В ролях: ' +Parent[mpiActor ]+"|";
sInfo = Copy(sInfo, 1, Length(sInfo)-1); // Обрезаем последний символ "|"
TStrings INFO = TStringList.Create();
INFO.Values['Poster'] = Parent[mpiThumbnail];
INFO.Values['Title' ] = Parent[mpiTitle];
INFO.Values['Genre' ] = Parent[mpiGenre];
INFO.Values['Info' ] = sInfo;
INFO.Values['Descr' ] = ReplaceStr(Parent[mpiComment], "\n", "|");
PodcastItem[mpiVideoMessage] = INFO.Text;
INFO.Free();
VideoPreview();
}
///////////////////////////////////////////////////////////////////////////////
// Создание папок сезонов
void CreateSeasons(string sLink) {
string sHtml, sName, sID; TRegExpr RE; int n;
// Загружаем страницу сериала
sHtml = HmsUtf8Decode(HmsDownloadURL(sLink, "Referer: "+gsUrlBase));
RE = TRegExpr.Create('<a[^>]+data-id="(\\d+)".*?</a>', PCRE_SINGLELINE);
try {
// Подсчитываем количество сезонов
n=0; if (RE.Search(sHtml)) do { n++; sID=RE.Match(1); HmsRegExMatch("(\\d+)", HmsHtmlToText(RE.Match(0)), sName); } while (RE.SearchAgain);
// Если всего один сезон и номер сезона 1, то не создаём папку сезона, а запускаем сразу создание серий
if ((n==1) && (sName=="1")) { CreateSeries(gsUrlBase+"/playlists/"+sID+".json"); return; }
// Цикл поиска сезонов
if (RE.Search(sHtml)) {
do {
sID = RE.Match(1); // Получаем ID сериала (сезона)
sName = HmsHtmlToText(RE.Match(0)); // Номер сезона (название)
sLink = gsUrlBase+"/playlists/"+sID+".json";
CreateFolder(PodcastItem, sName, sLink); // Создаём папку сезона
} while (RE.SearchAgain);
} else {
sName = "Не удалось найти data-id на странице фильма.";
ErrorItem(sName); // Создание информационной ссылки с сообщением об ошибке
HmsLogMessage(2, mpTitle+": "+sName); // Вывод сообщения в журнал программы
}
} finally { RE.Free; }
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок на серии с фильтрацией по конкретному pid (родительский ID)
// Первый запуск функции без указания sParentID, т.е. с pid=""
void CreateSeriesByPID(TJsonArray LIST, string sParentID="", string sGrp="") {
string sName, sLink, sID, sVal; int i; TJsonObject VIDEO;
// Цикл обхода всех серий с проверкой, соответствует ли pid серии указанному в sParentID
for (i = 0; i < LIST.Length; i++) {
VIDEO = LIST[i]; if (VIDEO.S["pid"]!=sParentID) continue; // Пропускаем все видео, где pid не совпадаем с переданным в параметрах sParentID
sName = VIDEO.S["title"];
sLink = VIDEO.S["file" ];
sID = VIDEO.S["id" ];
sLink = HmsExpandLink(sLink, gsUrlBase);
// Форматируем номер серии в два знака
if (HmsRegExMatch("ерия\\s*(\\d+)", sName, sVal)) sName = Format("%.2d серия", [StrToInt(sVal)]);
// Если ссылки нет - значит это папка, запускаем рекурсивно создание серий для нашей группы с нашим id
if (sLink=="") CreateSeriesByPID(LIST, sID, sGrp+"\\"+sName);
else CreateMediaItem(PodcastItem, sName, sLink, mpThumbnail, sGrp); // Создаём ссылку на видео
}
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок на серии
void CreateSeries(string sLink) {
// Загружаем JSON данные конкретного сезона сериала со списком серий
string sData = HmsUtf8Decode(HmsDownloadURL(sLink, "Referer: "+gsUrlBase));
TJsonObject JSON = TJsonObject.Create(); // Создаём объект для работы с JSON
try {
JSON.LoadFromString(sData); // Загружаем JSON строку в объект
if (JSON.AsArray == nil) return; // Если массив значений пустой - выходим
CreateSeriesByPID(JSON.AsArray); // Запускаем создание серий из массива JSON
} finally { JSON.Free; } // Что бы ни случилось, освобождаем созданный объект из памяти
}
///////////////////////////////////////////////////////////////////////////////
string NormVal(string sVal) {
string sName = HmsHtmlToText(sVal);
sName = ReplaceStr(sName, '|', '');
return Trim(sName);
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок видео
void CreateLinks() {
string sHtml, sData, sLink, sName, sTime, sImg, sVal, sSeason, sID;
THmsScriptMediaItem Item; TRegExpr RegEx;
//sSeason = '';
//HmsRegExMatch('season=(\\d+)', mpFilePath, sSeason);
//
sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+mpFilePath, true);
sHtml = HmsUtf8Decode(sHtml);
sHtml = HmsRemoveLineBreaks(sHtml);
// =========================================================================
// Сбор информации о фильме
if (HmsRegExMatch('<td>Год выхода</td><td itemprop="copyrightYear">(.*?)</td>', sHtml, sVal)) PodcastItem[mpiYear] = sVal;
if (HmsRegExMatch('duration="(\\d+)"', sHtml, sVal)) gsTime = HmsTimeFormat(StrToInt(sVal)+120)+'.000';
if (HmsRegExMatch('<td>Жанр</td>(.+?)</td>' , sHtml, sVal)) PodcastItem[mpiGenre ] = NormVal(sVal);
if (HmsRegExMatch('<span itemprop="ratingValue" class="serial-rating--value">(.+?)</span>' , sHtml, sVal)) PodcastItem[mpiRating ] = NormVal(sVal);
if (HmsRegExMatch('<td>Страна</td>(.+?)</td>' , sHtml, sVal)) PodcastItem[mpiCountry ] = NormVal(sVal);
if (HmsRegExMatch('<td>Статус</td>(.+?)</td>' , sHtml, sVal)) PodcastItem[mpiTranslate] = NormVal(sVal);
if (HmsRegExMatch('<td>Автор</td>(.+?)</td>', sHtml, sVal)) PodcastItem[mpiQuality ] = NormVal(sVal);
if (HmsRegExMatch('<td>Режисер</td>(.+?)</td>', sHtml, sVal)) PodcastItem[mpiDirector ] = NormVal(sVal);
if (HmsRegExMatch('<td>Режисер</td>(.+?)</td>', sHtml, sVal)) PodcastItem[mpiDirector ] = NormVal(sVal);
if (HmsRegExMatch('<td>Актеры</td>(.+?)</td>' , sHtml, sVal)) PodcastItem[mpiActor ] = NormVal(sVal);
if (HmsRegExMatch('<div id="serial-descriptions" itemprop="description">(.+?)</div>' , sHtml, sVal)) PodcastItem[mpiMood ] = NormVal(sVal);
if (HmsRegExMatch('<td>Возрастная категория</td>(.+?)</td>' , sHtml, sVal)) PodcastItem[mpiAlbum ] = NormVal(sVal);
if (HmsRegExMatch('(<div id="serial-descriptions" itemprop="description">.*?)</div>', sHtml, sVal)) PodcastItem[mpiComment] = NormVal(sVal);
if (HmsRegExMatch('<td>Название:</td>(.+?)</td>', sHtml, sVal)) mpTitle = NormVal(sVal);
HmsRegExMatch('itemprop="thumbnail" content="(.*?)"', sHtml, mpThumbnail);
PodcastItem[mpiTimeLength] = gsTime;
PodcastItem[mpiThumbnail ] = mpThumbnail;
HmsRegExMatch('^(.*?)/', mpTitle, mpTitle);
// =========================================================================
// Если установлен ключ отображения информационных ссылок - добавляем их
if (Pos('--addinfoitems', mpPodcastParameters)>0) {
if (Trim(PodcastItem[mpiYear ])!='') CreateInfoItem('Год выхода' , PodcastItem[mpiYear ]);
if (Trim(PodcastItem[mpiGenre ])!='') CreateInfoItem('Жанр' , PodcastItem[mpiGenre ]);
if (Trim(PodcastItem[mpiCountry ])!='') CreateInfoItem('Страна' , PodcastItem[mpiCountry ]);
if (Trim(PodcastItem[mpiTranslate])!='') CreateInfoItem('Статус' , PodcastItem[mpiTranslate]);
if (Trim(PodcastItem[mpiAlbum ])!='') CreateInfoItem('Возрастная категория', PodcastItem[mpiAlbum ]);
if (Trim(PodcastItem[mpiQuality ])!='') CreateInfoItem('Автор' , PodcastItem[mpiQuality ]);
if (Trim(PodcastItem[mpiDirector ])!='') CreateInfoItem('Режиссер' , PodcastItem[mpiDirector ]);
if (Trim(PodcastItem[mpiMood ])!='') CreateInfoItem('Описание' , PodcastItem[mpiMood ]);
if (Trim(PodcastItem[mpiRating ])!='') CreateInfoItem('Рейтинг' , PodcastItem[mpiRating ]);
}
}
///////////////////////////////////////////////////////////////////////////////
// Получение ссылки на медиаресурс в переменную MediaResourceLink
void GetLink() {
if (LeftCopy(mpFilePath, 4)=='Info') ShowVideoInfo();
else if (LeftCopy(mpFilePath, 3)=='Err' ) VideoMessage(gsPodcastName, mpTitle);
else MediaResourceLink = mpFilePath;
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
{
// Проверяем, заход ли это в папку или запуск фильма на просмотр
if (PodcastItem.IsFolder) {
PodcastItem.DeleteChildItems();
CreateLinks(); // Это зашли в папку подкаста (фильма) - создаём ссылки
// Если это папка - проверяем ссылку, если там ссылка на json - это папка сезона
if (ExtractFileExt(mpFilePath)==".json") CreateSeries (mpFilePath);
else CreateSeasons(mpFilePath); // Иначе считаем что это ссылка на сериал на сайте
} else {
// Если это просто запустили на просмотр видео, то просто передаём ссылку на файл
MediaResourceLink = mpFilePath;
}
}
551
C++Script
527
--addinfoitems
50
Фильмы (основной)_480x270
571
char gsUrlBase="https://serialage.tv"; int gnTotalItems=0; TDateTime gTimeStart=Now;
/////////////////////// Создание структуры подкаста /////////////////////////
///////////////////////////////////////////////////////////////////////////////
// Функция создания динамической папки с указанным скриптом
THmsScriptMediaItem CreateDynamicItem(THmsScriptMediaItem prntItem, char sTitle, char sLink, char &sScript='') {
THmsScriptMediaItem Folder = prntItem.AddFolder(sLink, false, 32);
Folder[mpiTitle ] = sTitle;
Folder[mpiCreateDate] = VarToStr(IncTime(Now,0,-prntItem.ChildCount,0,0));
Folder[200] = 5; // mpiFolderType
Folder[500] = sScript; // mpiDynamicScript
Folder[501] = 'C++Script'; // mpiDynamicSyntaxType
Folder[mpiFolderSortOrder] = -mpiCreateDate;
return Folder;
}
///////////////////////////////////////////////////////////////////////////////
// Замена в тексте загруженного скрипта значения текстовой переменной
void ReplaceVarValue(char &sText, char sVarName, char sNewVal) {
char sVal, sVal2;
if (HmsRegExMatch2("("+sVarName+"\\s*?=.*?';)", sText, sVal, sVal2)) {
HmsRegExMatch(sVarName+"\\s*?=\\s*?'(.*)'", sVal, sVal2);
sText = ReplaceStr(sText, sVal, ReplaceStr(sVal , sVal2, sNewVal));
}
}
///////////////////////////////////////////////////////////////////////////////
// Создание папки ПОИСК (с загрузкой скрипта с форума homemediaserver.ru)
void CreateSearchFolder(THmsScriptMediaItem prntItem, char sTitle) {
char sScript='', sLink, sHtml, sRE, sVal; THmsScriptMediaItem Folder;
// Да да, загружаем скрипт с сайта форума HMS
sHtml = HmsUtf8Decode(HmsDownloadURL('http://homemediaserver.ru/forum/viewtopic.php?f=15&t=2793&p=17395#p17395', '', true));
HmsRegExMatch('BeginDynamicSearchScript\\*/(.*?)/\\*EndDynamicSearchScript', sHtml, sScript, 1, PCRE_SINGLELINE);
sScript = HmsHtmlToText(sScript, 1251);
sScript = ReplaceStr(sScript, #160, ' ');
// И меняем значения переменных на свои
ReplaceVarValue(sScript, 'gsSuggestQuery' , 'https://serialage.tv/search?query=');
ReplaceVarValue(sScript, 'gsSuggestRegExpr', '<input[^>]+placeholder="(.*?)"');
ReplaceVarValue(sScript, 'gsSuggestMethod' , 'GET');
sScript = ReplaceStr(sScript, 'gnSuggestNoUTFEnc = 0', 'gnSuggestNoUTFEnc = 1');
Folder = prntItem.AddFolder(sTitle, true);
Folder[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0));
Folder[mpiFolderSortOrder] = "-mpCreateDate";
gnTotalItems++;
CreateDynamicItem(Folder, '"Набрать текст"', '-SearchCommands', sScript);
}
///////////////////////////////////////////////////////////////////////////////
// Создание подкаста или папки
THmsScriptMediaItem CreateItem(THmsScriptMediaItem Parent, char sTitle='', char sLink='') {
THmsScriptMediaItem Item; bool bForceFolder = false;
if (sLink=='') { sLink = sTitle; bForceFolder = true; }
else sLink = HmsExpandLink(sLink, gsUrlBase);
Item = Parent.AddFolder(sLink, bForceFolder);
Item[mpiTitle ] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0));
Item[mpiFolderSortOrder] = -mpiCreateDate;
gnTotalItems++;
return Item;
}
///////////////////////////////////////////////////////////////////////////////
// --------------------- M A I N P R O C E D U R E -------------------------
{
THmsScriptMediaItem Folder, Item;
FolderItem.DeleteChildItems();
CreateSearchFolder (FolderItem, '00. Поиск');
Folder = CreateItem(FolderItem, '01. Все сериалы', '/');
Folder[mpiPodcastParameters] = '--group=alph';
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnTotalItems));
}
572
C++Script
-
51
5b1cf3a13b01f462811c0642059f74e8
00. Поиск
349a3c53-c37c-4d65-ae41-b8eebd7ebc9f
515
2
512
2
532
2
700
2
553
2
42
3
35
43197,7245138889
215
-mpCreateDate
93
43197,7245287731
-
32
066816d957444a71bf4f97ab1ed8bb6a
-SearchCommands
5b1cf3a13b01f462811c0642059f74e8
515
2
512
2
532
2
700
2
553
2
42
3
4
"Набрать текст"
35
43197,7238310185
200
5
500
// Var 21.12.2014
int mpiFolderType = 200;
int mpiDynamicScript = 500;
int mpiDynamicSyntaxType = 501;
int mpiPreviousItemID = 200104;
int mpiDoNothing = 201100;
char gsSpace = 'Пробел';
char gsDelLastChar = 'Удалить последний символ';
char gsClearSearch = 'Очистить текст поиска';
char gsClearHystoryIn = 'Очистить историю поиска в папке "%s"';
char gsMsgClearHistory = 'История поиска в папке "%s" очищена';
char gsMsgTextSaved = 'Подкаст "%s" добавлен в "%s"';
char gsMsgNothingSaved = 'Текст поиска не набран! Добавлять нечего.';
char gsMsgSearchText = 'Текст поиска: %s';
char gsAddSearchTo = 'Добавить в папку "%s"';
char gsSuggestQuery = 'https://serialage.tv/search?query=';
char gsSuggestResultCut= '';
char gsSuggestRegExpr = '<input[^>]+placeholder="(.*?)"';
char gsSuggestMethod = 'GET';
int gnSuggestNoUTFEnc = 1;
char gsSuggestMessage = 'Вариант: ';
int gnTotalItems=0; TDateTime gTimeStart = Now; char gsTextSearch, gsMsg='';
THmsScriptMediaItem goRootItem, goCmdItem;
// ------------------------------------------ Создание папок команд поиска ----
void CreateSearchCommands() {
int i; char sText; THmsScriptMediaItem Item;
CreateDynamicItem(FolderItem, '#', '-SearchCreateChars=From:32To:58');
CreateDynamicItem(FolderItem, 'A-Z', '-SearchCreateChars=From:65To:91');
CreateDynamicItem(FolderItem, 'А-Я', '-SearchCreateChars=From:192To:224');
CreateDynamicItem(FolderItem, gsClearSearch, '-SearchCmd=ClearSearchText');
// Создание команды добавления в корневую папку поиска
CreateDynamicItem(FolderItem, Format(gsAddSearchTo, [goRootItem[mpiTitle]]), '-SearchCmd=SaveSearchText');
// Создание команд добавления в папки, находящиеся в корневой, если поле "Файл" (mpiFilePath) у них пустое
for (i=0; i<goRootItem.ChildCount; i++) {
Item = goRootItem.ChildItems[i];
if (Item.ItemClassID!=51) continue;
CreateDynamicItem(FolderItem, Format(gsAddSearchTo, [Item[mpiTitle]]), '-SaveSearchTextTo='+Item.ItemID);
}
// Создание команды очистки истории в корневой папке поиска
CreateDynamicItem(FolderItem, Format(gsClearHystoryIn, [goRootItem[mpiTitle]]), '-SearchCmd=ClearSearchHistory');
// Создание команд очистки истории в папках, которые наодятся в корневой
for (i=0; i<goRootItem.ChildCount; i++) {
Item = goRootItem.ChildItems[i];
if (Item.ItemClassID!=51) continue;
CreateDynamicItem(FolderItem, Format(gsClearHystoryIn, [Item[mpiTitle]]), '-ClearSearchHistoryIn='+Item.ItemID);
}
// Создание ссылки, информирующей о текущем набранном тексте поиска
sText = Format(gsMsgSearchText, [gsTextSearch]);
Item = HmsCreateMediaItem(sText, goCmdItem.ItemID);
Item[mpiTitle ] = sText;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg';
}
// ---------------------------- Добавление подкаста с именем текста поиска ----
void AddPodcastSearch(THmsScriptMediaItem prntItem) {
THmsScriptMediaItem Item;
if (Trim(gsTextSearch)=='') {gsMsg = gsMsgNothingSaved; return;}
if (LowerCase(gsTextSearch)==gsTextSearch) gsTextSearch = NameCase(gsTextSearch);
Item = prntItem.AddFolder(gsTextSearch, false);
Item[mpiFilePath ] = Format('search="%s"', [gsTextSearch]);
Item[mpiTitle ] = gsTextSearch;
HmsDatabaseAutoSave(false);
gsMsg = Format(gsMsgTextSaved, [gsTextSearch, prntItem[mpiTitle]]);
//gsTextSearch = '';
}
// --------- Функция создания динамической папки с унаследованным скриптом ----
void CreateDynamicItem(THmsScriptMediaItem prntItem, char sTitle, char sLink) {
char s; THmsScriptMediaItem Folder;
if (Trim(sTitle)=='') sTitle = gsSpace;
Folder = prntItem.AddFolder(sLink, true);
Folder[mpiTitle ] = sTitle;
Folder[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Folder[mpiFolderType ] = prntItem[mpiFolderType];
Folder[mpiDynamicScript ] = prntItem[mpiDynamicScript];
Folder[mpiDynamicSyntaxType] = prntItem[mpiDynamicSyntaxType];
Folder[mpiFolderSortOrder ] = prntItem[mpiFolderSortOrder];
}
// ---------------------------- MAIN PROCEDURE ------------------------------
{
int i, nCnt; char sCh, sCh1, sCh2, sText; THmsScriptMediaItem Item;
char s, sUrlServer = '', sRequestPage = '/', sPostData = '', sHeaders = '';
if (LeftCopy(mpFilePath, 1) != '-') return; // Если это не команда - то и не обрабатываем
// Поиск корневого каталога поиска (папки, которая содержит динамическую папку с путем "-SearchCommands")
goRootItem = FolderItem; goCmdItem = FolderItem;
while ((goRootItem.ItemParent != HmsDatabaseRootItem) && (goRootItem.ItemParent != nil)) {
if (goRootItem[mpiFilePath] == '-SearchCommands') {goCmdItem=goRootItem; goRootItem=goCmdItem.ItemParent; break;}
goRootItem = goRootItem.ItemParent;
}
// Если это повторный вызов, смены папки не произошло - ничего не делаем
if ((FolderItem.ItemID==goRootItem[mpiPreviousItemID]) && !DebugMode && (FolderItem!=goCmdItem)) return;
FolderItem.DeleteChildItems(); goRootItem[mpiPreviousItemID] = FolderItem.ItemID;
gsTextSearch = HmsGetUserSearchText(); // Получаем текущее значение текста поиска
// ---- Проверяем команды - по значению в mpFilePath ----
if (goRootItem[mpiDoNothing]=='1') { // Флаг "Ничего не делать" - например, при возврате
goRootItem[mpiDoNothing] = ''; // в команду набирания буквы из подпапки варианта
} else if (HmsRegExMatch('-SearchCommands', mpFilePath, sCh1)) { // Создание корневых команд поиска
CreateSearchCommands(); return;
} else if (HmsRegExMatch('-SearchChar=(\\d+)', mpFilePath, sCh1)) { // Добавление буквы (символа) к набираемому тексту поиска
gsTextSearch += Chr(StrToInt(sCh1));
} else if (HmsRegExMatch('-SetSearchText=(.*)', mpFilePath, gsTextSearch)) { // Назначить текст поиска значением варианта подсказки
goRootItem[mpiDoNothing] = '1'; gsSuggestQuery = ''; // включаем флаг не выполнять команду при возврате из этой папки
} else if (HmsRegExMatch('-SaveSearchTextTo=(.*)', mpFilePath, sCh1)) { // Добавление в папку Х. Поиск этой папки по ItemID.
Item = goRootItem; // Ищем папку с ItemID равному идентификатору, переданному в mpFilePath
for (i=0; i<goRootItem.ChildCount; i++) {
if (goRootItem.ChildItems[i].ItemID==sCh1) {Item = goRootItem.ChildItems[i]; break;}
}
AddPodcastSearch(Item); // и добавляем в найденную папку подкаст текстом поиска
} else if (HmsRegExMatch('-ClearSearchHistoryIn=(.*)', mpFilePath, sCh1)) { // Очистка истории (добавленных ранее) поисковых значений
Item = goRootItem; // Ищем папку с ItemID равному идентификатору, переданному в mpFilePath
for (i=0; i<goRootItem.ChildCount; i++) {
if (goRootItem.ChildItems[i].ItemID==sCh1) {Item = goRootItem.ChildItems[i]; break;}
}
for(i=0; i<Item.ChildCount; i++) { // Удаляем все элементы с начинающимся словом 'search' в поле mpiFilePath
if (LeftCopy(Item.ChildItems[i].Properties[mpiFilePath], 6)=='search') {Item.ChildItems[i].Delete();i--;}
}
gsMsg = Format(gsMsgClearHistory, [Item[mpiTitle]]); // вывод сообщения, что история очищена
} else if (HmsRegExMatch('-SearchCmd=(\\w+)', mpFilePath, sCh1)) {
if (sCh1=='DeleteLastChar' ) gsTextSearch = LeftCopy(gsTextSearch, Length(gsTextSearch)-1); // Удаление последнего символа
else if (sCh1=='SaveSearchText' ) AddPodcastSearch(goRootItem); // Добавить текст поиска в корневую папку
else if (sCh1=='ClearSearchText') gsTextSearch = ''; // Очистка текста поиска
else if (sCh1=='ClearSearchHistory') { // Очистка истории (добавленных значений поиска)
for(i=0; i<goRootItem.ChildCount; i++) {
Item = goRootItem.ChildItems[i]; // Ищем все элементы, у которых значение mpiFilePath начиначется с 'search'
if (LeftCopy(Item[mpiFilePath], 6)=='search') {goRootItem.ChildItems[i].Delete();i--;}
}
gsMsg = Format(gsMsgClearHistory, [goRootItem[mpiTitle]]);
}
} else if (HmsRegExMatch2('-SearchCreateChars=From:(\\d+)To:(\\d+)', mpFilePath, sCh1, sCh2)) { // Создание списка букв/символов
CreateDynamicItem(FolderItem, gsDelLastChar, '-SearchCmd=DeleteLastChar Suggestions'); // В начало - команда удаления символа
CreateDynamicItem(FolderItem, ' ', '-SearchChar=32 Suggestions'); // Пробел
for (i= StrToInt(sCh1); i<StrToInt(sCh2); i++) CreateDynamicItem(FolderItem, Chr(i), '-SearchChar='+IntToStr(i)+' Suggestions');
// слово "Suggestions" добавлено к значению mpiFilePath тек команд, в которых возможно использование подсказок
}
else return; // Если неизвестная нам команда - просто выходим
HmsSetUserSearchText(gsTextSearch); // Устанавливаем значение текста поиска
Item = HmsCreateMediaItem('-command=none', FolderItem.ItemID);
if (gsMsg=='') { // Если сообщения небыло - просто выводим ссылку с текущим значением набранного текста
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg';
Item[mpiFilePath ] = Format(gsMsgSearchText, [gsTextSearch]);
} else { // Выводим сообщение
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
Item[mpiFilePath ] = gsMsg;
}
Item = HmsCreateMediaItem('-command=none', FolderItem.ItemParent.ItemID); // В родительской папке (выше) обновляем информацию о текущем значении текста
Item[mpiFilePath] = Format(gsMsgSearchText, [gsTextSearch]);
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg';
Item = HmsCreateMediaItem('-command=none', goCmdItem.ItemID); // Также в папке, содержащую главные команды поиска
Item[mpiFilePath] = Format(gsMsgSearchText, [gsTextSearch]);
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg';
// Suggestions ------ Блок работы с подсказками -------
if ((gsSuggestQuery!='') && (Pos('Suggestions', mpFilePath)>0) && (Length(gsTextSearch)>1) && !HmsRegExMatch("^\\s", gsTextSearch, "")) {
int nPort = 80; if (LeftCopy(gsSuggestQuery, 5)=="https") nPort = 443;
sText = gsTextSearch; if (gnSuggestNoUTFEnc==0) sText = HmsUtf8Encode(sText); // Если не указано не кодировать в UTF - кодируем
sText = HmsHttpEncode(sText); string sUrlBase;
// Если есть ключ <TEXT> в запросе - заменяем его на значение набранного текста, иначе просто добавляем в конец
if (Pos('<TEXT>', gsSuggestQuery)>0) gsSuggestQuery = ReplaceStr(gsSuggestQuery, '<TEXT>', sText);
else gsSuggestQuery = gsSuggestQuery + sText;
HmsRegExMatch3('(https?://(.*?))(/.*)', gsSuggestQuery, sUrlBase, sUrlServer, sRequestPage);
if (gsSuggestMethod=='POST') HmsRegExMatch2('^(.*?)\\?(.*)', sRequestPage, sRequestPage, sPostData);
sHeaders = sUrlBase+'/\r\n'+
'Accept-Encoding: gzip, deflate\r\n'+
'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0\r\n'+
'Connection: Keep-Alive\r\n'+
'Origin: '+sUrlBase+'/\r\n'+
'Accept: application/json, text/javascript, */*; q=0.01\r\n'; // Для включения возможности gzip в запросах
sText = HmsSendRequestEx(sUrlServer, sRequestPage, gsSuggestMethod, 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, sPostData, nPort, 0x10, '', true);
sText = HmsUtf8Decode(sText);
if (gsSuggestResultCut!='') HmsRegExMatch(gsSuggestResultCut, sText, sText);// Если есть выражение обрезки - обрезаем
sText = HmsJsonDecode(sText); TRegExpr t = TRegExpr.Create('(<[^>]+>)'); // Избавляемся от тегов в середине слов подсказки
TRegExpr reSearch = TRegExpr.Create(gsSuggestRegExpr, PCRE_SINGLELINE);
if (reSearch.Search(sText)) do {
s = reSearch.Match;
if (t.Search(s)) do s=ReplaceStr(s, t.Match, ''); while (t.SearchAgain());// (функция HmsHtmlToText не подходит т.к. ставит пробел в середине слова)
if (HmsRegExMatch('^(.*?)[/\\(\\|]', s, sCh)) { // Обрезаем подсказку до знаков /, ( или |
if (Pos(LowerCase(gsTextSearch), LowerCase(sCh))>0) s = sCh; // Если после этого в подсказке встречается набранный текст - то так и оставляем
}
if (LowerCase(s)==s) s = NameCase(s); // Если подсказки - все маленькие буквы, делаем NameCase
// Если в подсказке больше одного слова - дополнительно создаём сначала подсказки из слов, которые содержат набранный текст (выделяем слова отдельно)
if (WordCount(s, ' ')>1) {
nCnt = WordCount(s, ' ');
for (i=1; i<=nCnt; i++) {
sCh=ExtractWord(i, s, ' '); if (Trim(sCh)=='') continue;
if (Pos(LowerCase(gsTextSearch), LowerCase(sCh))<1) continue;
if (LowerCase(gsTextSearch)==LowerCase(sCh)) continue;
sCh = ReplaceStr(sCh, ':', ''); sCh=ReplaceStr(sCh, '\\', '');
CreateDynamicItem(FolderItem, gsSuggestMessage+sCh, '-SetSearchText='+sCh);
}
}
// Создаём папку с предложением варианта (подсказку)
if (LowerCase(s)!=LowerCase(gsTextSearch)) CreateDynamicItem(FolderItem, gsSuggestMessage+s, '-SetSearchText='+s);
if (gnTotalItems>100) break; // Ограничиваем количество создаваемых элементов = 100
} while (reSearch.SearchAgain());
}
HmsIncSystemUpdateID(); // Говорим устройству об обновлении содержания
}
501
C++Script
215
-35
93
43197,7245287731
-
53
b255a83526c7115b5e459c94d3e44146
https://serialage.tv/
349a3c53-c37c-4d65-ae41-b8eebd7ebc9f
515
2
512
2
532
2
700
2
553
2
42
3
4
01. Все сериалы
35
43197,7238194444
215
-35
527
--group=alph
93
43197,7245287731
525
43197,7246184491