Board logo

标题: [已解决]如何计算例中两个时间的差？ [打印本页]
作者: flybird2020     时间: 2008-7-21 17:21    标题: [已解决]如何计算例中两个时间的差？

由于工作原因，我要收集一下各电视台播放节目的时间段及时长
在计算时长方面，很考验数学能力。。。
算着算着就晕了

我把一个用EXCEL文件存储的文件先复制到TXT文件中(有制表符)，不知能否通过批处理程序，计算出以下格式的同一行内前后相隔一列的时间差(节目播放时长，以分钟为计数形式)，并导出到新的TXT中(备我再次覆盖到EXCEL中)
原数据
开始时间        节目名称        开始时间        节目名称        开始时间        节目名称        开始时间        节目名称
6:44        节目一        6:50        节目二        8:00        节目三        12:00        节目四
6:48        节目一        7:50        节目二        8:20        节目三        15:00        节目四
若可以，我希望得到的数据
开始时间        节目名称        节目时长        开始时间        节目名称        节目时长        开始时间        节目名称        节目时长        开始时间        节目名称
6:44        节目一        6        6:50        节目二        70        8:00        节目三        240        12:00        XXXX
6:48        节目一        62        7:50        节目二        30        8:20        节目三        160        11:00        XXXX
不知能否达成，先谢谢各位兄台了，辛苦了

[ Last edited by flybird2020 on 2008-7-22 at 10:20 AM ]
作者: slore     时间: 2008-7-21 19:12
。。。excel不是能计算呢？
作者: HAT     时间: 2008-7-21 19:17
excel的函数功能很强大啊，楼主不会用？
作者: 26933062     时间: 2008-7-21 19:19
计算不难，关键是不知道你的节目名称有多长，没办法排版。
再说你一行的内容也太长了吧，记事本都自动换行了，看的我眼花缭乱。。。呵呵。。
假设你的每行都是 4 个节目。
以下只是得到结果，未作排版。

  Quote:

  1. @echo off
  2. echo 开始时间 名称  时长 开始时间 名称 时长 开始时间 名称 时长 开始时间 名称
  3. echo.
  4. for /l %%a in (1 2 7) do set .%%a=%%a
  5. for /f "skip=1 delims=" %%i in (a.txt) do (
  6.    setlocal enabledelayedexpansion
  7.    for %%a in (%%i) do (
  8.       set /a n+=1&set "var="
  9.       if defined .!n! (
  10.          set str=%%a&set str1=!str:~0,2!&set str1=!str1::=!&set "str2=!str:*:=!"
  11.          set /a str2=100!str2!%%100
  12.          if !str1! equ 0 set /a str1=24
  13.          set /a str=str1*60+str2
  14.          if defined m (
  15.            if !str! lss !m! set /a str+=1440
  16.            set /a var=str-m
  17.          )
  18.          set "m=!str!"
  19.        )
  20.        set /p=%%a !var! <nul
  21.     )
  22.     echo.
  23.     endlocal
  24. )
  25. pause
                小楼一夜听春雨  2008-07-21  19:31

[ Last edited by 26933062 on 2008-7-21 at 07:42 PM ]
作者: bat-zw     时间: 2008-7-21 19:40
晕，小楼兄总是领先一步：
@echo off&setlocal enabledelayedexpansion
echo 开始时间        节目名称        节目时长        开始时间        节目名称        节目时长        开始时间        节目名称        节目时长        开始时间        节目名称>a.txt
for /f "skip=2 delims=" %%a in (1.txt) do (
    for %%i in (%%a) do (
        set "str=%%i"
        if "!str:*:=!" neq "%%i" (
           set /a n+=1,x=n-1
           set .!n!=%%i&call :lp
        )
        if "!str!" neq "节目四" (set /p=!str!        <nul>>a.txt) else (set /p=xxxx<nul>>a.txt)
     )
     echo.>>a.txt&set "n=0"&set "num=0"
)
start a.txt&goto :eof
:lp
for /f "tokens=1,2 delims=:" %%i in ("!.%x%!") do set "s1=%%i"&set "m1=%%j"
for /f "tokens=1,2 delims=:" %%i in ("!.%n%!") do set "s2=%%i"&set "m2=%%j"
set /a s=100%s2%%%100-100%s1%%%100,m=100%m2%%%100-100%m1%%%100
if %s% lss 0 set /a s+=24
if %m% lss 0 set /a s-=1,m+=60
set /a m=s*60+m
if %n% neq 1 set "str=%m%        %str%"
ps：因论坛处理不了制表符，请楼主复制代码后相应的空格换成制表符，"        "即为制表符。

[ Last edited by zw19750516 on 2008-7-21 at 08:22 PM ]
作者: 26933062     时间: 2008-7-21 19:43
刚才未对 0:00 点及 跨天数的处理，现以在4楼更新。
作者: flybird2020     时间: 2008-7-22 10:20
谢谢大大们，问题已解决，辛苦啦
作者: yishanju     时间: 2008-7-22 14:01
楼主也不说一下怎么解决的？
作者: flybird2020     时间: 2008-7-24 10:16


  Quote:
Originally posted by yishanju at 2008-7-22 02:01 PM:
楼主也不说一下怎么解决的？

开始我是想用EXCEL的函数去解决，后来发现手动添加函数太费神
还是用的
五楼大大 bat-zw
写的代码用的有效
不过在节目名字中出现半角状态的冒号“:”时会出现错误
正在想办法解决中。。。

感谢大家对我的帮助，昨天试图用bat-zw的代码时不知哪里出错导致我不能使用，又发了一个帖求助，实为资源浪费。。。