(资料图片仅供参考)

1、Dim objfs,objargsSet objargs=WScript.ArgumentsSet objfs=CreateObject("scripting.filesystemobject")Set f=objfs.OpenTextFile(objargs(0),1)Dim stime,ssec=0Do While f.AtEndOfStream<>True stime=f.ReadLine s=Split(stime,":",-1,1) sec=sec+CInt(s(0)*60+s(1))LoopWScript.Echo sec/60 & " 分"终于写出来了。

2、呵呵，用vbs写。

3、你把代码保存为a.vbs，然后把要计算的时间按 5:15 5:17 5:26 5:26 5:34 5:42 这样的格式写在一个文本文件里，然后把这个文本文件拖到a.vbs这个文件上就出来结果了。

4、记住只能是保存为以上格式的才行。

本文到此讲解完毕了，希望对大家有帮助。