按键精灵小Q
[源码分享]----PC时间转秒
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区作者：瑞祥幽冥狼
如何实现时间转秒:
例:[3天1小时20分17秒]转秒
思路1:split
代码
t = "3天1小时20分17秒"
天 = split(t, "天")(0)
小时 = GetStrAB(t, "天", "小时")
分=GetStrAB(t, "小时", "分")
秒 = GetStrAB(t, "分", "秒")
TracePrint 天*3600*24+小时*3600+分*60+秒&"秒"
Function GetStrAB(Str, StrA, StrB)
If InStr(Str,StrA)>0 And InStr(Str,StrB)>0 Then GetStrAB=Split(Split(Str,StrA)(1),StrB)(0)
End Function
调试输出
t = "3天1小时20分17秒"
天 = split(t, "天")(0)
小时 = GetStrAB(t, "天", "小时")
分=GetStrAB(t, "小时", "分")
秒 = GetStrAB(t, "分", "秒")
TracePrint 天*3600*24+小时*3600+分*60+秒&"秒"
Function GetStrAB(Str, StrA, StrB)
If InStr(Str,StrA)>0 And InStr(Str,StrB)>0 Then GetStrAB=Split(Split(Str,StrA)(1),StrB)(0)
End Function
思路2"正则+split
代码：
str = "3天1小时20分17秒"
Set regEx = New RegExp
regEx.IgnoreCase = True
Execute "regEx.Global = True"
regEx.pattern = "\d+"
Set Matches = regEx.Execute(str)
ReDim Rlt(Matches.Count)
For Each Match in Matches
Rlt(i) = Match.Value
i = i + 1
Next
TracePrint Join(rlt, "|")
TracePrint rlt(0)*3600*24+rlt(1)*3600+rlt(2)*60+rlt(3)&"秒"
调试输出：
脚本 N7.Q ，第14行：3|1|20|17|
脚本 N7.Q ，第15行：264017
思路3：Replace+eval
代码：
t = "3天1小时20分17秒"
t = Replace(t, "天", "*3600*24+")
t = Replace(t, "小时", "*3600+")
t = Replace(t, "分", "*60+")
t = Replace(t, "秒", "")
TracePrint t
TracePrint eval(t)
调试输出：
脚本 N7.Q ，第6行：3*3600*24+1*3600+20*60+17
脚本 N7.Q ，第7行：264017
相关推荐
分享源码 元气桌面PC白嫖VIP壁纸源码
元气桌面PC白嫖VIP壁纸源码自己搞个精易模块，超级模块就好了如果不用监视热键功能不用超级模块也行精易的监视热键用不明白~~~~~
MSVOD魅思视频系统 V9.6.3高级版源码_PC+WAP手机端+PC试看时间限制功能
【MSVOD魅思视频系统 V9.6.3高级版源码】MSVOD魅思视频系统是一款专业级的在线视频服务平台，主要用于构建和管理视频内容，支持PC和WAP（移动）终端。
二开版聚星微盘聚星源码-支持pc h5自适应 – 英文 游戏 时间盘.zip
【标题解析】"二开版聚星微盘聚星源码-支持pc h5自适应 – 英文 游戏 时间盘.zip" 这个标题提到了几个关键概念。
基于JavaScript的OSChina For PC设计源码分享
本项目“基于JavaScript的OSChina For PC设计源码分享”，就是这样一个典型的开源项目，它不仅提供了丰富的资源，还展现了在PC端构建OSChina平台的实践过程。
【功能更新】蓝奏云网盘 - PC客户Duan 开源分享-易语言
【蓝奏云网盘 - PC客户端 开源分享】是一个基于易语言开发的程序，主要针对蓝奏云服务进行优化和扩展。蓝奏云是一款流行的云存储服务，它为用户提供便捷的文件上传、下载以及分享功能。
