Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


Цитата Creat0R:
Но мне всё же нужно доделать чтобы оно работало с одной строкой (где может встречаться и дата, и время)...
например так - опознавать месяц по наличию вблизи "M" символов "D" и "Y":
Код: Выделить весь код
$Str = 'DD/MM/YYYY, [HH;MM;SS]'
ConsoleWrite(_DateTimeConvertFormat($Str))

Func _DateTimeConvertFormat($sFormat)
    StringReplace($sFormat, "y", "")
    Local $Year = StringRight(@YEAR, @extended)
    Local $Stamp = '<'& Random(10000000,99999999,1) &'>'
    Local $Mounth_Raw = @MON
    Local $Day_Raw = @MDAY
    Local $Hours_Raw = @HOUR
    Local $Minutes_Raw = @MIN
    Local $Seconds_Raw = @SEC

    $sFormat = StringRegExpReplace($sFormat, "(?i)(?:(d+|y+)(\W*)(mm)|(mm)(\W*)(d+|y+))", '\1\2'& $Stamp &'\5\6')
    If @extended Then $sFormat = StringReplace($sFormat, $Stamp, $Mounth_Raw)
    $sFormat = StringRegExpReplace($sFormat, "(?i)(?:(d+|y+)(\W*)(m)|(m)(\W*)(d+|y+))", '\1\2'& $Stamp &'\5\6')
    If @extended Then $sFormat = StringReplace($sFormat, $Stamp, $Mounth_Raw+0)

    $sFormat = StringRegExpReplace($sFormat, '(?i)y+', $Year)

    $sFormat = StringReplace($sFormat, "mm",$Minutes_Raw)
    $sFormat = StringReplace($sFormat, "m", $Minutes_Raw+0)

    $sFormat = StringReplace($sFormat, "dd",$Day_Raw)
    $sFormat = StringReplace($sFormat, "d", $Day_Raw+0)

    $sFormat = StringReplace($sFormat, "hh",$Hours_Raw)
    $sFormat = StringReplace($sFormat, "h", $Hours_Raw+0)

    $sFormat = StringReplace($sFormat, "ss",$Seconds_Raw)
    $sFormat = StringReplace($sFormat, "s", $Seconds_Raw+0)

    Return $sFormat
EndFunc
Это сообщение посчитали полезным следующие участники:

Отправлено: 11:19, 13-08-2007 | #295