[madmasles]

andr_mozg,
Попробуйте так:

Код:

$sString = '20110416085104'
If StringRegExp($sString, '^(\d{14})$') Then
    $sNewString = StringRegExpReplace($sString, '^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$', '$4:$5:$6 $3/$2/$1')
    MsgBox(64, 'Info', $sNewString)
Else
    MsgBox(16, 'Error', 'Строка неправильная')
EndIf