兔子昂

问题

需要将00:20:02这样的时分秒时间转化为秒数1202

方法

.版本 2
.支持库 spec

.子程序 子程序_时分秒转秒, 文本型
.参数 videoTime, 文本型
.局部变量 timeArr, 文本型, , "0"
.局部变量 totalTime, 文本型

timeArr ＝ 分割文本 (videoTime, “:”, )
totalTime ＝ 到文本 (3600 × 到整数 (timeArr [1]) ＋ 60 × 到数值 (timeArr [2]) ＋ 到数值 (timeArr [3]))
返回(totalTime)

需要注意，timeArr是文本数组，所以要在变量声明的数组那一列填上0

未完

如果是3小时9分0秒这种格式的呢？ 或者9分12秒 或者12秒

.版本 2

.子程序 时分秒到秒格式, 文本型, , 将时分秒格式的时间转换成秒
.参数 参_时分秒格式文本, 文本型
.局部变量 局_时分秒格式文本, 文本型
.局部变量 局_位置, 整数型
.局部变量 局_秒, 整数型
.局部变量 局_时, 文本型
.局部变量 局_分, 文本型
.局部变量 局_临时秒数, 文本型

局_时分秒格式文本 ＝ 参_时分秒格式文本

局_位置 ＝ 寻找文本 (局_时分秒格式文本, “小时”, , 假)
.如果真 (局_位置 ≠ -1)
    局_时 ＝ 取文本左边 (局_时分秒格式文本, 局_位置 － 1)
    局_秒 ＝ 到整数 (局_时) × 60 × 60
.如果真结束


局_位置 ＝ 寻找文本 (局_时分秒格式文本, “分”, , 假)
.如果真 (局_位置 ≠ -1)
    .如果 (寻找文本 (局_时分秒格式文本, “小时”, , 假) ≠ -1)
        局_分 ＝ 文本_取出中间文本 (局_时分秒格式文本, “时”, “分”, , )
    .否则
        局_分 ＝ 取文本左边 (局_时分秒格式文本, 局_位置 － 1)
    .如果结束
    局_秒 ＝ 局_秒 ＋ 到整数 (局_分) × 60
.如果真结束

局_位置 ＝ 寻找文本 (局_时分秒格式文本, “秒”, , 假)
.如果真 (局_位置 ≠ -1)
    局_临时秒数 ＝ 文本_取出中间文本 (局_时分秒格式文本, “分”, “秒”, , )
    局_秒 ＝ 局_秒 ＋ 到整数 (局_临时秒数)
.如果真结束

返回 (到文本 (局_秒))

参考：
https://bbs.125.la/thread-13885637-1-1.html