• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][源码分享]----PC时间转秒----微光(66) [复制链接]

1#
如何实现时间转秒:

  • 例:[3天1小时20分17秒]转秒
思路1:split

代码
  1. t = "3天1小时20分17秒"
  2. 天 = split(t, "天")(0)
  3. 小时 = GetStrAB(t, "天", "小时")
  4. 分=GetStrAB(t, "小时", "分")
  5. 秒 = GetStrAB(t, "分", "秒")
  6. TracePrint 天*3600*24+小时*3600+分*60+秒&"秒"
  7. Function GetStrAB(Str, StrA, StrB)
  8. If InStr(Str,StrA)>0 And InStr(Str,StrB)>0 Then GetStrAB=Split(Split(Str,StrA)(1),StrB)(0)
  9. End Function
复制代码
调试输出
  1. t = "3天1小时20分17秒"
  2. 天 = split(t, "天")(0)
  3. 小时 = GetStrAB(t, "天", "小时")
  4. 分=GetStrAB(t, "小时", "分")
  5. 秒 = GetStrAB(t, "分", "秒")
  6. TracePrint 天*3600*24+小时*3600+分*60+秒&"秒"
  7. Function GetStrAB(Str, StrA, StrB)
  8. If InStr(Str,StrA)>0 And InStr(Str,StrB)>0 Then GetStrAB=Split(Split(Str,StrA)(1),StrB)(0)
  9. End Function
复制代码

思路2"正则+split
代码:
  1. str = "3天1小时20分17秒"
  2. Set regEx = New RegExp
  3. regEx.IgnoreCase = True
  4. Execute "regEx.Global = True"
  5. regEx.pattern = "\d+"
  6. Set Matches = regEx.Execute(str)
  7. ReDim Rlt(Matches.Count)
  8. For Each Match in Matches
  9. Rlt(i) = Match.Value
  10. i = i + 1
  11. Next
  12. TracePrint Join(rlt, "|")
  13. TracePrint rlt(0)*3600*24+rlt(1)*3600+rlt(2)*60+rlt(3)&"秒"
复制代码
调试输出:
  1. 脚本 N7.Q ,第14行:3|1|20|17|
  2. 脚本 N7.Q ,第15行:264017
复制代码
思路3:Replace+eval
代码:
  1. t = "3天1小时20分17秒"
  2. t = Replace(t, "天", "*3600*24+")
  3. t = Replace(t, "小时", "*3600+")
  4. t = Replace(t, "分", "*60+")
  5. t = Replace(t, "秒", "")
  6. TracePrint t
  7. TracePrint eval(t)
复制代码
调试输出:
  1. 脚本 N7.Q ,第6行:3*3600*24+1*3600+20*60+17
  2. 脚本 N7.Q ,第7行:264017
复制代码
作者什么也没留下

最后编辑瑞祥幽冥狼 最后编辑于 2022-07-24 16:30:16
本主题由 超级版主 瑞祥幽冥狼 于 2023/2/21 13:14:30 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#

66666

3#

6666666

4#

感谢狼神

5#

感谢狼神

6#

感谢老狼

7#

36666,我正在找这个

8#

我就看看

9#

我就学习一下

10#