Отправлено: 24.12.15 14:13. Заголовок: [?] Строку в массив (Разминка перед новым годом)

Есть строка вида 1,2,456,77
Или 1c2_456(77
Разделитель между цифрами может быть любой (кроме цифры разумеется)
Надо преобразовать строку в числовой массив вида {1,2,456,77}
Есть идеи ?

PS
Решение я уже знаю , хочется посмотреть и другие подходы.

 Отправлено: 24.12.15 14:33. Заголовок: aDim := HB_ATokens(..

aDim := HB_ATokens(cStr,",",.F.,.F.)

 Отправлено: 24.12.15 14:37. Заголовок: Andrey пишет: aDim ..

Andrey пишет:

цитата:

aDim := HB_ATokens(cStr,",",.F.,.F.)

Неа не верно. Проверь на строке 1c2_456(77

 Отправлено: 24.12.15 14:47. Заголовок: Dima пишет: Неа не ..

Dima пишет:

цитата:

Неа не верно. Проверь на строке 1c2_456(77

Сделай перед этим
FOR nI := 1 TO 255
IF nI <=48 .OR. nI > 59
ELSE
STRTRAN(cStr,CHR(nI),";")
ENDIF
NEXT
STRTRAN(cStr,":",";")

 Отправлено: 24.12.15 14:55. Заголовок: Andrey пишет: Сдела..

Andrey пишет:

цитата:

Сделай перед этим FOR nI := 1 TO 255

так не годится - так из строки "1xxx2zzz3...4" в массиве будет
{1,,,,2,,,,3,,,,4} а надо {1,2,3,4}

 Отправлено: 24.12.15 15:15. Заголовок: aNumbers := hb_Regex..

aNumbers := hb_RegexSplit("[^0-9]+",cTestString)

 Отправлено: 24.12.15 15:16. Заголовок: или "\D"..

или "\D" вместо "[^0-9]" )))

 Отправлено: 24.12.15 15:16. Заголовок: Vlad69 пишет: aNumb..

Vlad69 пишет:

цитата:

aNumbers := hb_RegexSplit("[^0-9]+",cTestString)

в точку
это самый короткий и правильно работающий код

 Отправлено: 24.12.15 16:23. Заголовок: Haz пишет: в точку ..

Haz пишет:

цитата:

в точку

Да , так и есть !

 Отправлено: 24.12.15 17:06. Заголовок: Vlad69 пишет: или &..

Vlad69 пишет:

цитата:

или "\D" вместо "[^0-9]" )))

Все красиво пока нет пробелов
На такой строке c:="1c 2_456(77 "
вернет {"1", "", "2", "456", "77","",""}
наверное это косяк Harbour , так как маска "[^0-9]" означает любой не цифровой символ а
за пробел разрабы забыли :)

Поэтому сделать можно так

 
 Func strtoArrayn(c) 
 local ams:=hb_regexSplit( '\D', c ) 
 local ret:={} 
   if len(ams)#0 
 aeval(ams,{|x| iif(!empty(x), aadd(ret,val(x)),"") })   
   endif 
 return ret 
 

 Отправлено: 24.12.15 17:40. Заголовок: Пробелы в середине у..

Пробелы в середине убираются через "\D+", хвостовые - тривиальным Alltrim )))

 Отправлено: 24.12.15 17:49. Заголовок: Vlad69 Понятно. Спа..

Vlad69
Понятно. Спасибо.
Оставлю пожалуй код без изменений :)