Фнукция поиска подстроки в строке, с возвратом позиции. Аналог POS из Delphi

 

Функция(файл: Ultima_POS.sqf):

private ["_needle", "_hayStack", "_found", "_cnt", "_i"];
if (_this select 2) then
	{
		_needle		=	toArray(toLower(_this select 0));
		_hayStack	=	toArray(toLower(_this select 1));
	}
else
	{
		_needle		=	toArray(_this select 0);
		_hayStack	=	toArray(_this select 1);
	};
if ( (count _hayStack) < (count _needle) ) exitWith
	{0};
_found	=	0;
_cnt	=	0;
for "_i" from 0 to (count _hayStack)-1 do
	{
		if ( (_hayStack select _i) != (_needle select _cnt) ) then
			{_cnt	=	0;}
		else 
			{
				_cnt	=	_cnt + 1;
				if (_cnt == count _needle) exitWith 
					{_found	=	_i + 1;};
			};
	};
_found

Компиляция:

Ultima_POS	=	compile preProcessFileLineNumbers "Ultima_POS.sqf";

Пример использования:

Private ["_pos"];
_pos    =    ["text", "test find a text in string", false] call Ultima_POS;
if ( _pos > 0 ) then
	{hint format["Подстрока найдена! Начало вхождения: %1", _pos];}
else
	{hint "Подстрока не найдена!";};

*Функция возвращает позицию начала искомой подстроки в строке.

В случае, если подстрока не найдена - вернет 0.

Если подстрока найдена - положительное число(позицию).

Второй (от нуля) параметр False или True  - указывает как искать - с учетом регистра, или без.

Изменено 24 января 2018 пользователем NoNameUltima (история изменений)

А как оно работает с таким вот? 

["teXt", "test fInd a text in String"] call Ultima_POS;

 

2 минуты назад, svalom сказал:

А как оно работает с таким вот? 

["teXt", "test fInd a text in String"] call Ultima_POS;

 

Правильно работает - разный регистр - разный текст.

Тогда необходимо дописать условие в массив, обращать ли внимание на регистр, +иметь возможность проверить сразу несколько слов.

А для поиска исключающего зависимость регистра, писать надо правильно -

    [toLower("teXt"), toLower("test fInd a text in String")] call Ultima_POS;

или

    _string    =    toLower('НекАя СтРоКа с ТеКстОм для поиСка');
    _find     =    toLower('ТекСт');
    [_find, _string] call Ultima_POS;

В общем - если надо без учета - преобразовываем в нижний регистр и без учета ищем.

1 минуту назад, svalom сказал:

+иметь возможность проверить сразу несколько слов

Для этого существуют циклы - прогоняй да смотри.

Небольшой аналог:

private ["_needle","_haystack","_needleLen","_hay","_found"];
_needle = toLower(_this select 0);
_haystack = toArray (toLower(str(_this select 1)));
_needleLen = count toArray _needle;
_hay = +_haystack;
_hay resize _needleLen;
_found = false;
for "_i" from _needleLen to count _haystack do {
	if (toString _hay == _needle) exitWith {_found = true};
	_hay set [_needleLen, _haystack select _i];
	_hay set [0, "x"];
	_hay = _hay - ["x"]
};
_found

fnc_inString = 	compile preprocessFile "fnc_inString.sqf";

Пример:

_isWeapon = ["gun_",_iClass] call fnc_inString;
if (_isWeapon) then {
	...
};

Тест:

_t1 = diag_tickTime;
for "_i" from 1 to 10000 do {
_lol = ["text", "test find a text in string"] call fn_str1;
};
systemchat str (diag_tickTime - _t1);

// Ultima_POS 12.27 sec
// fnc_inString 8.26 sec

 

7 минут назад, svalom сказал:

// Ultima_POS 12.27 sec // fnc_inString 8.26 sec

У меня другие данные, при более длинных строках.

Можешь провести такой тест:

Private ["_start", "_stop"];

_start	=	diag_tickTime;
for "_i" from 0 to 10000 do
	{
		["1234879659809", "sdjfkdf895811kljj923942934201234569dsjfgldjg9y09y096y0965yh096y0596y09586y09586y09586y09580y9805y1234879659809"] call Ultima_POS;
	};
_stop	=	diag_tickTime;
diag_log format ["TEST ULTIMA: %1",_stop - _start];

_start	=	diag_tickTime;
for "_i" from 0 to 10000 do
	{
		["1234879659809", "sdjfkdf895811kljj923942934201234569dsjfgldjg9y09y096y0965yh096y0596y09586y09586y09586y09580y9805y1234879659809"] call fnc_inString;
	};
_stop	=	diag_tickTime;
diag_log format ["TEST KK: %1",_stop - _start];

Результат:
"TEST ULTIMA: 6.62305"
"TEST BIS: 0.221985"(в А3 есть бисовая функция)
"TEST KK: 8.08899"

Изменено 24 января 2018 пользователем NoNameUltima (история изменений)

И до кучи - функция возвращает не только да\нет - но и позицию искомого...

Данный тест нечестен, тк в твоем скрипте строка не преобразовывается в нижний регистр по-умолчанию ))

1 минуту назад, svalom сказал:

Данный тест нечестен, тк в твоем скрипте строка не преобразовывается в нижний регистр по-умолчанию ))

_))))))))

так они и в других скриптах не преобразовывается)

да и если преобразовать - ничего не изменится.

Private ["_start", "_stop"];

_start	=	diag_tickTime;
for "_i" from 0 to 10000 do
	{
		[toLower("1234879659809"), toLower("sdjfkdf895811kljj923942934201234569dsjfgldjg9y09y096y0965yh096y0596y09586y09586y09586y09580y9805y1234879659809")] call fn_str2;
	};
_stop	=	diag_tickTime;
systemchat format ["TEST ULTIMA: %1",_stop - _start];
diag_log format ["TEST ULTIMA: %1",_stop - _start];

_start	=	diag_tickTime;
for "_i" from 0 to 10000 do
	{
		["1234879659809", "sdjfkdf895811kljj923942934201234569dsjfgldjg9y09y096y0965yh096y0596y09586y09586y09586y09580y9805y1234879659809"] call fn_str1;
	};
_stop	=	diag_tickTime;
systemchat format ["TEST KK: %1",_stop - _start];
diag_log format ["TEST KK: %1",_stop - _start];

"TEST ULTIMA: 58.875"
"TEST KK: 54.705"
"TEST ULTIMA: 28.397"
"TEST KK: 27.36"
"TEST ULTIMA: 28.595"
"TEST KK: 27.218"

Тестирую прям в игре, а2, время зависит от фпс )

1 минуту назад, svalom сказал:

Тестирую прям в игре, а2, время зависит от фпс )

Я в VR тестил, там фпс один и тот же.

Да, в VR твой скрипт чуть чуть быстрее , но не в А2 )

TEST ULTIMA: 3.399
TEST KK: 3.782
TEST ULTIMA: 3.359
TEST KK: 3.798

Пожалуйста, Войдите или Зарегистрируйтесь, чтобы увидеть это: Вложение.

Изменено 24 января 2018 пользователем svalom (история изменений)

а помимо позиции возврат подстроки, скажем, с этой точки по какую-то конкретную или по конец сообщения, либо наоборот с начала сообщения по эту точку можно как-то сделать?

Было б полезно для функций поиска в тексте каких-то спец символов или слов и выбора части текста из этой строки

del )

 

Изменено 24 января 2018 пользователем svalom (история изменений)

2 часа назад, svalom сказал:

Да, в VR твой скрипт чуть чуть быстрее , но не в А2 )

Разницы никакой.

Заменил вверху скрипт, - сделал еще чуть быстрее.

Результаты:

11:50:40 "TEST ULTIMA: 5.85303"
11:50:47 "TEST KK: 7.53992"
11:51:09 "TEST ULTIMA: 5.875"
11:51:16 "TEST KK: 7.57104"

 

Почти 2 секунды.

2 часа назад, 123new сказал:

с этой точки по какую-то конкретную

Это уже не при чем.

Функция на то и функция, что выполняет строгую роль.

А если ты чотко знаешь, что искать надо с Х символа, по Y - ну так вырежи с X по Y да ищи в оставшемся. Тем более, что "отрезать" N элементов массива - проблем то не составляет. - Это уже примитивная работа с массивами, и к поиску отношения не имеет.

Тебе дан инструмент для поиска + как положено возвращающий не просто ДА\НЕТ(нашел, или не нашел), а именно позицию начала вхождения - если таковая имеется, ну и естественно, если позиция положительная => нашел.

Пунктик за размер )

fn_iss={
	private ["_search","_text","_found","_cnt"];
	_search = toArray(toLower(_this select 0));
	_text = toArray(toLower(_this select 1));
	_found = false;
	_cnt = 0;
	for "_i" from 0 to (count _text)-1 do {
		if ((_text select _i) != (_search select _cnt)) then {
			if (_cnt>=1) then {
				_cnt = 0
			};
		} else {
			_cnt = _cnt+1;
			if (_cnt == count _search) exitWith {_found=true;};
		};
	};
	_found
};
_start	=	diag_tickTime;
for "_i" from 0 to 10000 do {
	["1234879659809", "sdjfkdf895811kljj923942934201234569dsjfgldjg9y09y096y0965yh096y0596y09586y09586y09586y09580y9805y1234879659809"] call fn_iss;
};
_stop	=	diag_tickTime;
systemchat format ["TEST: %1",_stop - _start];
systemchat 'end';
// 2.58

 

Изменено 24 января 2018 пользователем svalom (история изменений)

20 минут назад, svalom сказал:

 

4.7 она выдает.

именно как есть. даже более упрощенно -

if (_cnt>=1) then { _cnt = 0 };

нет смысла проверять - можно сразу в 0 ставить

 

Но

1. Нет проверки - если искомое > текста(а такое может быть, если не ручками, а где то в скриптах работает).

2. Если текст реально длинный, как и искомое: Будет бежать весь текст до упора - Нет учета что оставшийся текст в какой то момент уже стал меньше искомого.

А так - да. скорее всего лишняя проверка, на совпадение с 1 символом. Толку не дает.

 

 

Обновил в первом посте скрипт, - удалил одну лишнюю проверку, т.к. в ней как показала практика нет смысла, и добавил третий параметр - с учетом регистра искать, или без.