Разбор строки на части

Разделяет строку на подстроки, используя заданный разделитель.

 

Параметры:

 

string Используемая строка.
delimiters Один или более символов используются как разделитель (с учетом регистра).

 

Возвращаемое значение

Возвращает коллекцию, в которой  элементы содержат найденные подстроки.

Если разделители не найдены или разделитель есть пустая строка - возвращается коллекция из одного элемента, содержащего исходную строку.

К сожалению, варианта на чистом QPILE у меня нет.

 

Func Str_Split(str,delimiter)
result = create_collection()
if delimiter != ""
Loop
m4_loop_counter = find(str,0,delimiter)
Until(m4_loop_counter == Unknown)
result = Add_Collection_Item(result,Str_Left(str,m4_loop_counter))
str = Str_Right(str,m4_loop_counter + len(delimiter))
EndLoop
else
result = Add_Collection_Item(result,str)
end if
EndFunc(result)

Добавить комментарий


Защитный код
Обновить