Серый форум — AHK: Число представить в формате «Часы-Минуты-Секунды»

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (Malcev) — Wed, 25 Feb 2015 15:57:25 +0000

Irbis, а можешь подсказать как сразу с помощью regexreplace сделать?
Так не выходит:

n =
(
цена на нефть упала до такого минимума что
под угрозу уже оказалась сланцевая
революция в самих соединенных штатов
)

msgbox % regexreplace(n, "", "")


timecode(n)
{
   s := SubStr( "0" Mod(n, 60), -1 )
   m := SubStr( "0" Mod(n // 60, 60), -1 )
   h := SubStr( "0" n // 3600, -1 )
   return, time := h ":" m ":" s
}

Чую, что надо использовать RegExCallout, но не пойму как?
http://ahkscript.org/docs/misc/RegExCallout.htm

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (Irbis) — Wed, 25 Feb 2015 14:57:51 +0000

Проще - кому, или для чего? Вряд ли массив сложней для понимания, чем RegExp'ы. Тем более если функцию преобразования вынести отдельно.

for k, v in J:=StrSplit(n,"""")
   (k&1)||J[k]:="""" NtoTime(J[k]) """",Out .= J[k]
MsgBox % Out

NtoTime(n) {
   Return (n+0) ? n//(3600.0) ":" Mod(n//60,60.0) ":" Mod(n,60.0) : n
}

Надежней - да, если в тексте есть другие ограниченные кавычками части, нужна дополнительная проверка.

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (Malcev) — Wed, 25 Feb 2015 12:34:56 +0000

Регексом проще и надежней:

n =
(
цена на нефть упала до такого минимума что
под угрозу уже оказалась сланцевая
революция в самих соединенных штатов
)

pos := 1 - StrLen(timecode(found1))
while pos := regexmatch(n, "", found, pos+StrLen(found)-StrLen(found1)+StrLen(timecode(found1)))
   StringReplace, n, n, %found1%, % timecode(found1)
msgbox % n

timecode(n)
{
   s := SubStr( "0" Mod(n, 60), -1 )
   m := SubStr( "0" Mod(n // 60, 60), -1 )
   h := SubStr( "0" n // 3600, -1 )
   return, time := h ":" m ":" s
}

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (Irbis) — Wed, 25 Feb 2015 12:22:26 +0000

Нашел еще пару-тройку лишних "запчастей" в коде. ))

SetFormat, FloatFast, 02.0
n =
(
цена на нефть упала до такого минимума что
под угрозу уже оказалась сланцевая
революция в самих соединенных штатов
)
for k, v in J:=StrSplit(n,"""")
   (k&1)||J[k]:="""" J[k]//3600.0 ":" Mod(J[k]//60,60.0) ":" Mod(J[k],60.0) """",Out .= J[k]
MsgBox % Out

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (DD) — Wed, 25 Feb 2015 12:08:08 +0000

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (Irbis) — Wed, 25 Feb 2015 11:52:40 +0000

SetFormat, FloatFast, 02.0
n =
(
цена на нефть упала до такого минимума что
под угрозу уже оказалась сланцевая
революция в самих соединенных штатов
)

Obj:=StrSplit(n,"""")
for k, v in Obj{
   if !(k&1)
      Obj[k]:="""" Obj[k] // 3600.0 ":" Mod(Obj[k] // 60, 60.0) ":" Mod(Obj[k], 60.0) """"
   Out .= Obj[k]
}
MsgBox % Out

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (DD) — Wed, 25 Feb 2015 11:29:55 +0000

Всё-таки не справляюсь. Можно ли сделать, чтобы вывод содержал все строки разом, включая окружающие цифры текст? Например, входной текст такой —

цена на нефть упала до такого минимума что
под угрозу уже оказалась сланцевая
революция в самих соединенных штатов

а вывод такой —

цена на нефть упала до такого минимума что
под угрозу уже оказалась сланцевая
революция в самих соединенных штатов

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (DD) — Wed, 25 Feb 2015 11:03:34 +0000

Спасибо!

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (Malcev) — Wed, 25 Feb 2015 10:55:54 +0000

Например так:

n =
(
ЛюбойТекст="83"ЛюбойТекст
ЛюбойТекст="85"ЛюбойТекст
ЛюбойТекст="88"ЛюбойТекст
)

pos = 1
while pos := regexmatch(n, ".*?=""(\d+)""", found, pos+StrLen(found))
   msgbox % timecode(found1)

timecode(n)
{
   s := SubStr( "0" Mod(n, 60), -1 )
   m := SubStr( "0" Mod(n // 60, 60), -1 )
   h := SubStr( "0" n // 3600, -1 )
   return, time := h ":" m ":" s
}

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (stealzy) — Wed, 25 Feb 2015 10:53:07 +0000

Что вы хотите сделать? Выделить число из текста?
Заменить число на ваш формат?

Loop, parse, n, `n, `r
{
String:=A_LoopField
RegExMatch(String, "\D(\d+)\D", Time)
NewTime:=mySuperPuperFormat(Time)
String:=RegExReplace(String, Time, NewTime)
NewN.=String . "`n"
}
msgbox % NewN

Как оформить mySuperPuperFormat(), расписывать не надо, надеюсь.

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (DD) — Wed, 25 Feb 2015 10:33:05 +0000

Пожалуй, задача сродни первой : как применять к содержимому переменной эти коды? Примерно по такому формату, где цифры в кавычках:

n =
(
ЛюбойТекст="83"ЛюбойТекст
ЛюбойТекст="85"ЛюбойТекст
ЛюбойТекст="88"ЛюбойТекст
)

;n := 88
s := SubStr( "0" Mod(n, 60), -1 )
m := SubStr( "0" Mod(n // 60, 60), -1 )
h := SubStr( "0" n // 3600, -1 )
time := h ":" m ":" s


msgbox % time

Было бы крайне любопытно взглянуть .

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (DD) — Wed, 25 Feb 2015 10:14:28 +0000

Спасибо за идеи и воплощения!

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (YMP) — Wed, 25 Feb 2015 10:06:22 +0000

Да, с FormatTime идея тоже работает:


n := 11822
time = 20140101
time += n, seconds
FormatTime, time, %time%, HH:mm:ss

MsgBox, %time%

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (YMP) — Wed, 25 Feb 2015 09:59:47 +0000

Вот так можно:


n := 11822
s := SubStr( "0" Mod(n, 60), -1 )
m := SubStr( "0" Mod(n // 60, 60), -1 )
h := SubStr( "0" n // 3600, -1 )
time := h ":" m ":" s

MsgBox, %time%

Re: AHK: Число представить в формате «Часы-Минуты-Секунды»

null@example.com (Malcev) — Wed, 25 Feb 2015 09:39:51 +0000

Можно взять произвольную дату прибавить к ней количество секунд и потом сформатировать время с помощью FormatTime.