Разделение/анализ переменных данных

{ :local test “081234567890|Западная Ява|Джон Дью” :put [:pick $test ( -1 + 1) [:find $test “|” -1] ] :put [:pick $test ( [:find $test “|” -1] + 1) [:find $test “|” [:find $test “|” -1]] ] :put [:pick $test ( [:find $test “|” [:find $test “|” -1]] + 1) [:len $test ] ] }

Пробелы не были расставлены случайно… Если [:find $test “|” -1] определяет позицию первого “|” ([:find $test “|” -1] + 1) это следующий символ после |, так что если вы начнете следующий :find с ([:find $test “|” -1] + 1), вы получите следующий “|” и так далее… { :local test “081234567890|West Java|John Due” :put [:pick $test (-1 + 1) [:find $test “|” -1] ] :put [:pick $test ([:find $test “|” -1] + 1) [:find $test “|” [:find $test “|” -1]] ] :put [:pick $test ([:find $test “|” [:find $test “|” -1]] + 1) [:len $test ] ] } так что, если вы добавите еще один элемент: { :local test "081234567890|West Java|John Due|another one" :local s "|" ; # разделитель :put [:pick $test ( -1 + 1) [:find $test $s -1] ] :put [:pick $test ([:find $test $s -1] + 1) [:find $test $s [:find $test $s -1]] ] :put [:pick $test ([:find $test $s [:find $test $s -1]] + 1) [:find $test $s [:find $test $s [:find $test $s -1]]] ] :put [:pick $test ([:find $test $s [:find $test $s [:find $test $s -1]]] + 1) [:len $test ] ] }

Это всего лишь пример для немного сложной строки, если полей больше, то цикл будет лучше...

Использование :toarray "трюка" для разбора делимитированной строки не учитывает | как разделитель. Под "циклом" подразумевается цикл :for с :pick и :find внутри... поскольку :toarray на самом деле не является парсером, он просто удобно использует запятую в синтаксисе для определения элементов.

Обычно причиной использования разделителя является то, что известно, что этот разделитель не может встречаться в данных. Я часто использую , но в данном случае, судя по всему, был выбран |. Я не хотел бы заменять все | на , а затем использовать :toarray, потому что вполне возможно, что некоторые поля между | могут содержать , в значении, и это приведет к хаосу. Нам действительно нужны функции скриптов, которые могут преобразовать строку в массив, используя пользовательский разделитель или, лучше, регулярные выражения с захватом. В свое время нам обещали библиотеку скриптов с такими полезными функциями…

Не просто замени запятую “,” на (например) $$$comma$$$, а когда массив будет создан, верни назад $$$comma$$$ на “,” для каждого элемента.

Что-то вроде этого, да? {
:local string "081234567890|Западная Ява|Джон Дью|Еще один|Второй элемент"
:local reEncoded

:for i from=0 to=([:len $string] - 1) do={
   :local char [:pick $string $i]
   :if ($char = "|") do={:set $char ","}
   :set reEncoded ($reEncoded . $char)
}

:local test [:toarray $reEncoded]
:put ($test->0)
:put ($test->1)
:put ($test->2)
:put ($test->3)
:put ($test->4)
}

Вывод:
081234567890
Западная Ява
Джон Дью
Еще один
Второй элемент. Я адаптировал эту функцию, которую нашел на форуме по скриптам, и она подходит для моих нужд, поэтому делюсь ей. :global strEncode do={
   :local string $1
   :local reEncoded
   :local char
   :if (([:typeof $string] != "str") or ($string = "")) do={
       :return ""
   } else={
       :for i from=0 to=([:len $string] -1) do={
           :set char [:pick $string $i]
           :if ($char = "|") do={:set $char ","}
           :if ($char = "!") do={:set $char ","}
           :set reEncoded ($reEncoded . $char)
       }
       :return $reEncoded
   }
}

Используйте:
:put [$strEncode "081234567890|Западная Ява|Джон Дью|Еще один!Второй элемент"]
Вывод:
081234567890,Западная Ява,Джон Дью,Еще один,Второй элемент.

Данные, используемые, предназначены только для учебных целей.