n =
(
<text start="17">цена на нефть упала до такого минимума что</text>
<text start="20">под угрозу уже оказалась сланцевая</text>
<text start="22">революция в самих соединенных штатов</text>
)
msgbox % regexreplace(n, "<text start=""(\d+?)"">", "<text start=""" timecode($1) """>")
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
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
}Надежней - да, если в тексте есть другие ограниченные кавычками части, нужна дополнительная проверка.
]]>n =
(
<text start="17">цена на нефть упала до такого минимума что</text>
<text start="20">под угрозу уже оказалась сланцевая</text>
<text start="22">революция в самих соединенных штатов</text>
)
pos := 1 - StrLen(timecode(found1))
while pos := regexmatch(n, "<text start=""(\d+?)"">", 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
}
SetFormat, FloatFast, 02.0
n =
(
<text start="17">цена на нефть упала до такого минимума что</text>
<text start="20">под угрозу уже оказалась сланцевая</text>
<text start="22">революция в самих соединенных штатов</text>
)
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
]]>SetFormat, FloatFast, 02.0
n =
(
<text start="17">цена на нефть упала до такого минимума что</text>
<text start="20">под угрозу уже оказалась сланцевая</text>
<text start="22">революция в самих соединенных штатов</text>
)
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
<text start="17">цена на нефть упала до такого минимума что</text>
<text start="20">под угрозу уже оказалась сланцевая</text>
<text start="22">революция в самих соединенных штатов</text>а вывод такой —
<text start="00:00:17">цена на нефть упала до такого минимума что</text>
<text start="00:00:20">под угрозу уже оказалась сланцевая</text>
<text start="00:00:22">революция в самих соединенных штатов</text>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
}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(), расписывать не надо, надеюсь.
]]>
: как применять к содержимому переменной эти коды? Примерно по такому формату, где цифры в кавычках: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Было бы крайне любопытно взглянуть .
n := 11822
time = 20140101
time += n, seconds
FormatTime, time, %time%, HH:mm:ss
MsgBox, %time%
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%