批处理歌词整理挑战

smss

1. [00:00.010]铁血丹心 射雕英雄传主题曲 - 罗文/甄妮
   
2. [00:00.020]词：邓伟雄
   
3. [00:00.030]曲：顾嘉辉
   
4. [00:28.988]女：依稀往梦似曾见
   
5. [00:34.168]心内波澜现
   
6. [00:39.808]男：抛开世事断仇怨
   
7. [00:45.142]合：相伴 到天 边
   
8. [00:49.350]男：逐草四方沙漠苍茫
   
9. [00:55.452]那惧雪霜扑面
   
10. [01:00.275]射雕引弓塞外奔驰
    
11. [01:06.210]笑傲此生无厌倦
    
12. [01:12.358]女：应知爱意似流水
    
13. [01:18.050]斩不断理还乱
    
14. [01:23.231]合：身经百劫也在心间恩义两难断
    
15. [01:43.865]男：逐草四方沙漠苍茫
    
16. [01:49.962]那惧雪霜扑面
    
17. [01:54.739]射雕引弓塞外奔驰
    
18. [02:00.779]笑傲此生无厌倦
    
19. [02:06.930]女：应知爱意似流水
    
20. [02:12.510]斩不断理还乱
    
21. [02:17.836]合：身经百劫也在心间
    
22. [02:23.271]恩义两难断
    
23. [02:28.661]身经百劫也在心间
    
24. [02:34.151]恩义两难断

复制代码

整理后

1. [00:00.010]铁血丹心 射雕英雄传主题曲 - 罗文/甄妮
   
2. [00:00.020]词：邓伟雄
   
3. [00:00.030]曲：顾嘉辉
   
4. [00:28.988]女：依稀往梦似曾见
   
5. [00:34.168]心内波澜现
   
6. [00:39.808]男：抛开世事断仇怨
   
7. [00:45.142]合：相伴 到天 边
   
8. [00:49.350][01:43.865]男：逐草四方沙漠苍茫
   
9. [00:55.452][01:49.962]那惧雪霜扑面
   
10. [01:00.275][01:54.739]射雕引弓塞外奔驰
    
11. [01:06.210][02:00.779]笑傲此生无厌倦
    
12. [01:12.358][02:06.930]女：应知爱意似流水
    
13. [01:18.050][02:12.510]斩不断理还乱
    
14. [01:23.231][02:17.836][02:28.661]合：身经百劫也在心间恩义两难断

复制代码

qixiaobin0715

提供一个思路，但未完全达到楼主要求（“身经百劫也在心间” “恩义两难断”两句未合并）：

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /f "tokens=1* delims=]" %%i in (test.lrc) do set _%%j=!_%%j!%%i]
   
4. for /f "tokens=1* delims=_=" %%a in ('set _') do set #%%b=%%a
   
5. for /f "tokens=1* delims=#=" %%x in ('set #') do echo,%%x%%y
   
6. pause

复制代码

hlzj88

1. @echo off&&setlocal enabledelayedexpansion
   
2. rem 保护原文copy /y b.txt a.txt>nul
   
3. set /p gc=-----输入歌词文本名----》
   
4. 
   
5. 
   
6. 
   
7. :ks
   
8.   for /f "delims=" %%i in ('type %gc%') do (
   
9.       set ww=
   
10.       set sj=
    
11.       set bb=
    
12.       set aa=
    
13.       set "aa=%%i"
    
14.        set bb=!aa:~11!
    
15.        set aa=!aa:~0,11!
    
16.        set aa=!aa:^:=!
    
17.        set aa=!aa:^.=!
    
18.        findstr /ic:"!bb!" %gc%>>!aa!.ini
    
19.        findstr /ivc:"!bb!" %gc%>>test.ini
    
20.     for /f "delims=*" %%j in ('type !aa!.ini') do (
    
21.        set "sj=%%j"
    
22.        set ww=!ww!!sj:~0,11!
    
23.        )
    
24.     echo !ww!!bb!>>55555.txt
    
25.        move test.ini %gc%>nul
    
26.        goto ks
    
27.       )
    
28. move /y 55555.txt %gc%>nul
    
29. del /q *.ini>nul
    
30. pause

复制代码

只能做到样子特别像，没有达到楼主的一模一样。所以怀疑楼主出题有误。

xczxczxcz

回复 3# hlzj88

换个语言就 easy 了！

cutebe

1. //歌词合并精简.js//拖入歌词文件
   
2. lrcfile = WScript.Arguments(0);
   
3. 
   
4. Rstream = new ActiveXObject("ADODB.Stream");
   
5. Rstream.Type=2;        //类型1是二进制，2是文本
   
6. Rstream.Charset = "GBK";
   
7. Rstream.Open;
   
8. 
   
9. Rstream.LoadFromFile(lrcfile);        //读歌词文件
   
10. var i=n=tflag=sflag=lflag=0;
    
11. var btime=[],lyric=[],tmpTime=rchr='';
    
12. while(!Rstream.EOS){
    
13.         Rchar=Rstream.ReadText(1);
    
14.         rchr+=Rchar;
    
15. 
    
16.         if(tflag && Rchar==']'){        //时间末，词始
    
17.                 tmpTime+=rchr;rchr='';tflag=0,sflag=1;
    
18.         }else if(sflag && Rchar=='\n'){        //词末
    
19.                 tmpLrc=rchr;sflag=lflag=0;
    
20.                 for(i=1;i<=n;i++){        //检查重复词
    
21.                         if(lyric[i]==tmpLrc){lflag=1;break;}
    
22.                 }
    
23.                 if(lflag){btime[i]+=tmpTime;}        //合并时间
    
24.                 else{n++;lyric[n]=tmpLrc;btime[n]=tmpTime;}
    
25.                 rchr=tmpTime='';
    
26.         }else if(Rchar=='[')tflag=1;        //时间始
    
27. }
    
28. Rstream.Close;
    
29. 
    
30. joinLrc='歌词文件：'+lrcfile+'\n\n';
    
31. for(i=1;i<=n;i++){
    
32.         joinLrc+=btime[i]+lyric[i];
    
33. }
    
34. WSH.Echo(joinLrc);        //显示精简后歌词
    

复制代码

hlzj88

回复 1# smss
楼主，再仔细看了你的题和结果，理解的合并规则是和你的结果的确不同。如果要达到你那样的结果，后面的代码需要可以为之。
试同贴道友的代码，也不能等于你的结果。
如果方便，麻烦你贴出你的代码，琢磨以下。

本人已老，学习bat已很不利索。其他语言困难重重。