;Phone Number Formatted."
Local $sOriginal = "1234567890"
Local $sFormatted1 = StringRegExpReplace($sOriginal, "(...)?((....)$|(...))", "\1-\2") ; 7 or 10 digit phone number
Local $sFormatted2 = StringRegExpReplace($sOriginal, "(.{3}){1}(...{1})", "\1-\2-\3")
Local $sFormatted3 = StringRegExpReplace($sOriginal, "(...)(...)", "\1-\2-")
Local $sFormatted4 = StringRegExpReplace($sOriginal, "(.{3})(.{3})", "\1-\2-")
MsgBox(0, "","1: " & $sFormatted1 & @CRLF & "2: " & $sFormatted2 & @CRLF & "3: " & $sFormatted3 & @CRLF & "4: " & $sFormatted4)