Модификация строки.
Здравствуйте помогите написать функцию для изменение строки из вида +79139139696 в +7 913 913 9696.
|
По какому принципу? Если по позиционному, то можно, например, так:
читать дальше »
Код:
Option Explicit
Dim strIn
Dim strOut
Dim objRexExp
strIn = "+79139139696"
With WScript.CreateObject("VBScript.RegExp")
.Pattern = "(\+\d)(\d{3})(\d{3})(\d{4})"
strOut = .Replace(strIn, "$1 $2 $3 $4")
WScript.Echo strOut
End With
WScript.Quit 0
|
Получилось. Спасибо большое за помощь.
|
Время: 14:06.
© OSzone.net 2001-
