StringRegExpReplace(): Убрать пробелы по краям массива

[wisenlucky]

Добрый день!

Помогите, пожалуйста, решить задачку сабжа.

#include <Array.au3>

Dim $sValues[5] = [" 10 "," 11","12 "," 13 ","14"]

$aValues = StringRegExpReplace($sValues, '(?m)^[\s]*[\s]*$', '')
ConsoleWrite($aValues&@CRLF)

Во-первых что-то не так с шаблоном. Пробовал разные вариации, за основу взял эту тему.

Во-вторых. Как заставить его работать с массивом?

 

[sngr]

Задача не имеет решения. StringRegExpReplace это функция для работы со строками.

_ArrayTrim

 

[wisenlucky]

Задача не имеет решения. StringRegExpReplace это функция для работы со строками.

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

При помощи

_ArrayTrim

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

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

$sValues[0]

 

[AZJIO]

#include <Array.au3>

Dim $sValues[5] = [" 10 ", " 11", "12 ", " 13 ", "14"]

For $i = 0 To UBound($sValues) - 1
	If StringRegExp($sValues[$i], '\A\s|\s\z') Then $sValues[$i] = StringStripWS($sValues[$i], 3)
Next

$sRes = ''
For $i = 0 To UBound($sValues) - 1
	$sRes &= '|' & $sValues[$i] & '|' & @LF
Next
MsgBox(0, 'Сообщение', $sRes)

#include <Array.au3>

Dim $sValues[5] = [" 10 ", " 11", "12 ", " 13 ", "14"]

For $i = 0 To UBound($sValues) - 1
	$sValues[$i] = StringStripWS($sValues[$i], 3)
Next

$sRes = ''
For $i = 0 To UBound($sValues) - 1
	$sRes &= '|' & $sValues[$i] & '|' & @LF
Next
MsgBox(0, 'Сообщение', $sRes)

 

[wisenlucky]

Как всё просто, когда уже видишь решение

Спасибо, AZJIO! :beer:

 

[InnI]

wisenlucky [?]

решить задачку сабжа

Для этого конкретного случая (целые числа окружены пробелами) можно так:

Dim $sValues[5] = [" 10 "," 11","12 "," 13 ","14"]

For $i = 0 To UBound($sValues) - 1
  $sValues[$i] = Int($sValues[$i])
Next

 

[wisenlucky]

Для этого конкретного случая (целые числа окружены пробелами) можно так:

Иногда встречаются и буквы, но спасибо за идею. Думаю

Int()

ещё пригодится. ;)

 

[madmasles]

wisenlucky [?]

Int() ещё пригодится.
Иногда встречаются и буквы

Аккуратнее с Int

Dim $sValues[5] = [' 1e0 ', ' 11g', 'r12h ', ' a13 ', 'rty14<>']

For $i = 0 To UBound($sValues) - 1
	ConsoleWrite('Int: ' & Int($sValues[$i]) & @LF)
	$sValues[$i] = StringRegExpReplace($sValues[$i], '[^\d]', '')
	ConsoleWrite('RegExpReplace: ' & $sValues[$i] & @TAB & StringIsDigit($sValues[$i]) & @LF)
Next

 

[gregaz]

Вариант:

#include <Array.au3>

Dim $aValues[5] = [" 10 ", " 11", "12 ", " 13 ", "14"]
_ArrayDisplay($aValues)
$aResult=StringSplit(StringStripWS(_ArrayToString($aValues,"|"),8),"|", 2)
_ArrayDisplay($aResult)

Есть правда ограничение: Элементы массива должны быть односложные.
Правда его легко можно обойти

 

[CreatoR]

AZJIO
А есть ли смысл делать проверку?

 

[AZJIO]

CreatoR

А есть ли смысл делать проверку?

нет, но рег.выр зря что ли писал. Я молчу про ответы после меня.