Просмотрел текстовые функции, но, не нашел решения. Подскажите, пожалуйста. Есть произвольный набор символов, всегда одинаковой длинны. Выглядит так: 331d645fd55c4981ab7e9029be33424c
Необходимо добавить символ "-" между символами в следующем формате: хххххххх-хххх-хххх-хххх-хххххххххххх
То есть, после 8-го, 12-го, 16-го, 20-го символов.
Заранее спасибо.
Добрый день,
Просмотрел текстовые функции, но, не нашел решения. Подскажите, пожалуйста. Есть произвольный набор символов, всегда одинаковой длинны. Выглядит так: 331d645fd55c4981ab7e9029be33424c
Необходимо добавить символ "-" между символами в следующем формате: хххххххх-хххх-хххх-хххх-хххххххххххх
То есть, после 8-го, 12-го, 16-го, 20-го символов.
Function uuu$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "^(.{8})(.{4})(.{4})(.{4})(.{12})$" uuu = .Replace(t, "$1-$2-$3-$4-$5") End With End Function
[/vba]
LIO, добрый вечер,вариант функции uuu в C1
[vba]
Код
Function uuu$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "^(.{8})(.{4})(.{4})(.{4})(.{12})$" uuu = .Replace(t, "$1-$2-$3-$4-$5") End With End Function