Перевести код алгоритма шинглов из PHP в Delphi

@i_kalina · Регистрация: 30.05.2014

Студворк — интернет-сервис помощи студентам

Добрый день! Прошу помочь перевести код из PHP в Delphi. Кому не сложно, очень прошу! Это не для лабы, для диплома. Просто нужен код на языке Delphi данного алгоритма. Язык PHP не изучали.

PHP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
<?php
$test_text=file_get_contents($url); // получить файл по ссылке $url
?>
<?php
$text=strip_tags($test_text); // удалим теги с помощью функции php
?>
 
<?php
$i=0;$j=0;
$hesh_word=array(); // массив слов
$hesh_string=array(); // массив подстрок
$hesh_mass=array(); // массив значений хеш подстрок
$tmp=»;
?>
 
<?php
$hesh_word = explode(« », $text); // опять стандартная функция php
?>
 
<?php
foreach ($hesh_word as $word)
{
$tmp.=$word;
if($j==4)
{
$hesh_string[$i]=$tmp;
$i++;
$j=0;
$tmp="";
}else $j++;
};
$hesh_string[$i]=$tmp;
?>
 
<?php
$i=0;
foreach ($hesh_string as $string)
{
$hesh_mass[$i]=hash(«md5″,$string);
$i++;
};
?>
 
<?php
$similar_counter=0;
foreach ($hesh_mass1 as $var1)
{
foreach ($hesh_mass2 as $var2)
{
if($var1==$var2)
{
$similar_counter++;
break;
}
}
}
echo 'Процент совпадения: '.$similar_counter*100/size($hesh_mass1);
?>

@gazlan · 30.05.2014, 17:25

Делал когда-то на C++ (MSVC + MFC). Если устраивает - могу поделиться кодом.

@i_kalina · 30.05.2014, 17:32 **[ТС]**

С++ уже лучший вариант, чем PHP. Заранее спасибо за помощь!

@gazlan · 30.05.2014, 17:43

Ответил на почту.

@i_kalina · 31.05.2014, 12:45 **[ТС]**

всё же, если у кого-то есть данный алгоритм на Delphi или Pascal, то буду рада принять помощь.

@dieselgm · 28.12.2014, 22:33

Сообщение от gazlan

Делал когда-то на C++ (MSVC + MFC). Если устраивает - могу поделиться кодом.
Миниатюры
Вложения
Shingles.exe.7z (10.4 Кб, 9 просмотров)
__________________
И сказал Он: пойди и скажи этому народу: слухом услышите - и не уразумеете, и очами смотреть будете - и не увидите. @ Ис 6:9

Можете поделится исходным кодом алгоритма?

@gazlan · 29.12.2014, 02:49

Сообщение от dieselgm

Можете поделитЬся

Эташ.

@dieselgm · 29.12.2014, 11:02

Сообщение от gazlan

Эташ.
Вложения
Shingles.rar (79.1 Кб, 0 просмотров)

Я извиняюсь за свою наглость, но не могли бы Вы перезалить архив, так как выдает сообщение что он повреждён...

@gazlan · 29.12.2014, 12:09

Сообщение от dieselgm

повреждён

Архив OK. | MD5: A4D9994813ED0D8414844C913FCD9D47 | Обновите RAR до версии 5+

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@i_kalina 0 / 0 / 0 Регистрация: 30.05.2014 Сообщений: 18
	30.05.2014, 17:32 [ТС]
	С++ уже лучший вариант, чем PHP. Заранее спасибо за помощь! 0

@gazlan 3176 / 1935 / 312 Регистрация: 27.08.2010 Сообщений: 5,131 Записей в блоге: 1
	30.05.2014, 17:43
	Ответил на почту. 0

@i_kalina 0 / 0 / 0 Регистрация: 30.05.2014 Сообщений: 18
	31.05.2014, 12:45 [ТС]
	всё же, если у кого-то есть данный алгоритм на Delphi или Pascal, то буду рада принять помощь. 0