регулярные выражения

@Султанов · Регистрация: 25.01.2013

Author24 — интернет-сервис помощи студентам

Добрый день!!
Какой синтаксис регулярки должна быть, чтобы текст "011120", "01112" или "0111" преобразовать в "01.11.20", "01.11.2" и "01.11" соответственно

@Казанский · 25.09.2015, 13:37

Султанов, обязательно регулярка? Обычный
Left(s,2)&"."&mid(s,3,2)&iif(len(s)>4,"."&mid(s,5),"")
не устроит?

Аксима · 25.09.2015, 14:42

Ну вот. А я корпел над функцией больше часа, потому что по какой-то непонятной причине подумал, что длина строки может быть любой... Позор.

Visual Basic

Function AddDots(ByVal s As String, Optional ByVal period As Long = 2) As String
    Dim i As Long, n As Long
    If period <= 0 Then Err.Raise 5, , "Расстояние между точками должно быть положительным числом."
    n = Len(s)
    If n = 0 Then Exit Function
    n = n + n Mod period + n \ period - 1
    AddDots = Space(n)
    period = period + 1
    For i = 1 To n: Mid(AddDots, i, 1) = IIf(i Mod period, Mid(s, i - i \ period, 1), "."): Next
End Function

@Alex_Gur · 25.09.2015, 15:29

К сожалению, с помощью регулярных выражений пока удалось сделать только двумя поисками-заменами:

Для 5- и 6-значных чисел:

Поиск: <([0-9]{2})([0-9]{2})([0-9]{1;2})>
Замена: \1.\2.\3

Для 4-значных чисел:

Поиск: <([0-9]{2})([0-9]{2})>
Замена: \1.\2

Можно было бы - за один проход:

Поиск: <([0-9]{2})([0-9]{2})(*)>
Замена: \1.\2.\3

Но в последнем случае для 4-значного числа проставляется лишняя точка в конце.

@Султанов · 25.09.2015, 19:15 **[ТС]**

Аксима, да текст может быть до 18 знаков, это код товаров, работ и услуг (КТРУ), но почему-то со сайта грузит без точек, а вот вносит надо с точками

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368
		1
	регулярные выражения 25.09.2015, 12:59. Показов 658. Ответов 4 Метки нет (Все метки) Добрый день!! Какой синтаксис регулярки должна быть, чтобы текст "011120", "01112" или "0111" преобразовать в "01.11.20", "01.11.2" и "01.11" соответственно 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	25.09.2015, 13:37	2
	Султанов, обязательно регулярка? Обычный Left(s,2)&"."&mid(s,3,2)&iif(len(s)>4,"."&mid(s,5),"") не устроит? 1

@Alex_Gur 47 / 47 / 6 Регистрация: 28.04.2015 Сообщений: 160 Записей в блоге: 4
	25.09.2015, 15:29	4
	К сожалению, с помощью регулярных выражений пока удалось сделать только двумя поисками-заменами: Для 5- и 6-значных чисел: Поиск: <([0-9]{2})([0-9]{2})([0-9]{1;2})> Замена: \1.\2.\3 Для 4-значных чисел: Поиск: <([0-9]{2})([0-9]{2})> Замена: \1.\2 Можно было бы - за один проход: Поиск: <([0-9]{2})([0-9]{2})(*)> Замена: \1.\2.\3 Но в последнем случае для 4-значного числа проставляется лишняя точка в конце. 0

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368
	25.09.2015, 19:15 [ТС]	5
	Аксима, да текст может быть до 18 знаков, это код товаров, работ и услуг (КТРУ), но почему-то со сайта грузит без точек, а вот вносит надо с точками 0