Разделить число на цифровые тройки пробелами
- Автор темы gora
- Дата начала
dwerf
Высший пилотаж !!!
:beer:
Добавлено:
Самое интересное это решение оказалось самым быстрым ,
даже чуть быстрее красивого решения с помощью строковых ф-ий от kzru_hunter
Высший пилотаж !!!
:beer:
OffTopic:
" И все же она вертится !"
" И все же она вертится !"
Добавлено:
Сообщение автоматически объединено:
Самое интересное это решение оказалось самым быстрым ,
даже чуть быстрее красивого решения с помощью строковых ф-ий от kzru_hunter
gregaz [?]
Наверное, потому что регулярные выражения обрабатываются скомпилированным движком PCRE, котороый включен в AutoIt, а обычные строковые функции обрабатываются интерпретатором AutoIt. (Хотя при желании регулярные выражения можно очень медленные написать).
Добавлено:
Мастера Perl подсказывают еще два решения:
Первое решение работает довольно медленно, но второе - очень быстрое.
Наверное, потому что регулярные выражения обрабатываются скомпилированным движком PCRE, котороый включен в AutoIt, а обычные строковые функции обрабатываются интерпретатором AutoIt. (Хотя при желании регулярные выражения можно очень медленные написать).
Добавлено:
Сообщение автоматически объединено:
Мастера Perl подсказывают еще два решения:
Код:
return StringRegExpReplace($tn, '(\d)\s?(\d?)\s?(\d?)(?=((\d\s?){3})*\z)', "\1\2\3 ")
Код:
return StringRegExpReplace($tn, '(^\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))', '\1 ')Первое решение работает довольно медленно, но второе - очень быстрое.
Dreadfulangel
Знающий
- Сообщения
- 19
- Репутация
- 11
Ещё одно элегантное решение найдено в книге Дж.Фридла "Регулярные выражения"
Код:
Func _TabNum0($tn)
Return StringRegExpReplace($tn, '(?<=\d)(?=(\d{3})+\z)', ' ')
EndFunc