Печать

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

Опубликовано в QPILE

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

 

Параметры:

 

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)

Архив QPILE