[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

[kaster]

Код:

$s = '20110416085104'
$Year = StringLeft($s, 4)
$Month = StringMid($s, 5, 2)
$Day = StringMid($s, 7, 2)
$HH = StringMid($s, 9, 2)
$MM = StringMid($s, 11, 2)
$SS = StringRight($s, 2)
$sNew = $HH & ':' & $MM & ':' & $SS & ' ' & $Day & '/' & $Month & '/' & $Year
MsgBox(0, '', $sNew)

[madmasles]

Код:

$sString = '20110416085104'
$aString = StringRegExp($sString, '\d{2}', 3)
$Year = $aString[0] & $aString[1]
$Month = $aString[2]
$Day = $aString[3]
$HH = $aString[4]
$MM = $aString[5]
$SS = $aString[6]
$sNewString = $HH & ':' & $MM & ':' & $SS & ' ' & $Day & '/' & $Month & '/' & $Year
MsgBox(64, 'Info', $sNewString)

[andr_mozg]

спасибо..