Получить в переменную массив данных

[Dotacka]

Добрый день всем!

Возникла такая задачка у меня.
Есть массив данных в строке в файле (*.txt) :

Картошка 34 яблоко груша 334 23 7

Нужно записать эти данные в переменные в таком виде.

$a = Картошка
$b = 34
$c = яблоко
$d = груша
$e = 334
$f = 23
$g = 7

Пробелы являются разделителями между значениями которые беруться в переменную. Пробелов может быть множество или один.

Количество значений в одной строке не более 26 - т.е Используем англиский алфавит. (abcdefghijklmnopqrstuvwxyz)

Количество слов и цифр в строке изначально неизвестно...

Подскажет кто-нибудь? Либо буду благодарен за пример похожей тематики - попробую разобрать сам.

 

[InnI]

$str = " Картошка 34   яблоко груша     334  23 7   "

; убрать лишние пробелы
$str = StringStripWS($str, 1+2+4)

; создать массив
$arr = StringSplit($str, " ")

С какой целью раскладывать массив по переменным? Вместо $a просто пишите $arr[1], вмеcто $b пишите $arr[2], вместо $c - $arr[3] и т.д.

 

[Dotacka]

$str = " Картошка 34   яблоко груша     334  23 7   "

; убрать лишние пробелы
$str = StringStripWS($str, 1+2+4)

; создать массив
$arr = StringSplit($str, " ")

С какой целью раскладывать массив по переменным? Вместо $a просто пишите $arr[1], вмеcто $b пишите $arr[2], вместо $c - $arr[3] и т.д.

Спасибо! сработало.
Цель такая:
в строке идут параметры всегда в определенной последовательности (Квадрат-Ширина-Длина)(Яблоко-радиус-цвет). Получив их в переменную можно их потом умножать и складывать и получать данные.

 

[InnI]

Элементы массива такие же переменные. Просто выглядят иначе.

 

[Dotacka]

Элементы массива такие же переменные. Просто выглядят иначе.

Cпасибо! уже разобрался. Использую $arr[0]...$arr[100]

Сообщение автоматически объединено: 23 Июн 2020

Элементы массива такие же переменные. Просто выглядят иначе.

Прошу прощения, я еще хотел уточнить один момент.
Возможно ли как-либо группировать элементы.
Например:
Cтрока вида:
2 А B C D E 1 ( $arr[1] = 2 $arr[2] = А B C D E $arr[3] = 1)
или
1 A B 3 ( $arr[1] = 1 $arr[2] = А B $arr[3] = 3)
или
4 А 1 ( $arr[1] = 4 $arr[2] = А $arr[3] = 1)

Я например всегда хотел бы получать в переменную буквы между первой и последней цифровой.

Возможно ли это как то сделать с разумной простотой?

Я начал делать cам с помощью данных выражений :

If Not StringRegExp($sText, '[[:alpha:]А-ёЁ]')   
If Not StringRegExp($sText, '\d')

У меня получается куча условий и вложенных условий...вобщем мрак(((((

 

[InnI]

буквы между первой и последней цифровой

$a = StringRegExp("2 А B C D E 1", "(\d) (.*) (\d)", 3)

ConsoleWrite($a[0] & @CRLF & $a[1] & @CRLF & $a[2] & @CRLF)

 

[Dotacka]

$a = StringRegExp("2 А B C D E 1", "(\d) (.*) (\d)", 3)

ConsoleWrite($a[0] & @CRLF & $a[1] & @CRLF & $a[2] & @CRLF)

Превосходно. Cпасибо

Сообщение автоматически объединено: 1 Июл 2020

$a = StringRegExp("2 А B C D E 1", "(\d) (.*) (\d)", 3)

ConsoleWrite($a[0] & @CRLF & $a[1] & @CRLF & $a[2] & @CRLF)

Позвольте спросить- а если числа не целые? Например 10,3 то как сделать что бы скрипт читал дробные числа?

 

[InnI]

как сделать

Изменить регулярное выражение. Например, так

"([^ ]+) (.*) (\d.*)"

Но всё зависит от конкретики. Если нужно искать именно цифры, то будет по другому.

 

[Dotacka]

Изменить регулярное выражение. Например, так

"([^ ]+) (.*) (\d.*)"

Но всё зависит от конкретики. Если нужно искать именно цифры, то будет по другому.

Спасибо

 

[CreatoR]

Для удобства обращения к массивам я обычно делаю так:

Global Enum $a = 0, $b, $c, $d, $e, $f

...

$arr[$a] ;эквивалентно $arr[0]
$arr[$b] ;эквивалентно $arr[1]
;и т.д

 

[Dotacka]

Для удобства обращения к массивам я обычно делаю так:

Global Enum $a = 0, $b, $c, $d, $e, $f

...

$arr[$a] ;эквивалентно $arr[0]
$arr[$b] ;эквивалентно $arr[1]
;и т.д

Благодарю

Сообщение автоматически объединено: 3 Июл 2020

$a = StringRegExp("2 А B C D E 1", "(\d) (.*) (\d)", 3)

ConsoleWrite($a[0] & @CRLF & $a[1] & @CRLF & $a[2] & @CRLF)

Прошу прощения- у меня возникла еще одна сложность. Я пытаюсь выполнить отсечение ненужного мусора при применении вашего выражения, но не получается((

$a = StringRegExp("2 А B C D E 1","([^ ]+) (.*) (\d.*)", 3)

ConsoleWrite($a[0] & @CRLF & $a[1] & @CRLF & $a[2] & @CRLF)

имеется ввиду что если у меня есть некий массив (2 А B C D E 1 dsfc3f543f grev543f3) - я хочу отсекать все что после второй цифры ( не учитывать)
Тобишь пробел служит отделителем после второй цифры (1) - после которого массив уже не рассматривается.
Необходим такой результат:

$a = StringRegExp("2 А B C D E 1 dsfc3f543f grev543f3","([^ ]+) (.*) (\d.*)", 3)

ConsoleWrite($a[0] & @CRLF & $a[1] & @CRLF & $a[2] & @CRLF)

$a[0]=2
$a[1]=А B C D E
$a[2]=1

 

[InnI]

пробел служит отделителем после второй цифры

"([^ ]+) (.*?) (\d[^ ]*)"

 

[Dotacka]

"([^ ]+) (.*?) (\d[^ ]*)"

Cпасибо