[Iska]

По какому принципу? Если по позиционному, то можно, например, так:

читать дальше »

Код:

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