Board logo

标题: [文本处理] 批处理LRC歌词脚本编辑器,按按空格键轻松做歌词 [打印本页]

作者: foxJL    时间: 2013-9-7 13:29     标题: 批处理LRC歌词脚本编辑器,按按空格键轻松做歌词

  1. @echo off & setlocal enabledelayedexpansion
  2. color 37 & mode con cols=62 lines=40
  3. ::2013.9.10 解决文件名中存在空格运行出错的问题.
  4. ::2013.9.11 使LRC歌词保存在TXT文件同一目录.
  5. title LRC歌词脚本编辑器  by foxjl   bathome.net做最实用的批处理论坛
  6. set errorcode=0%1
  7. echo,
  8. echo,       使用说明:
  9. echo,
  10. echo,       首先请准备与歌曲完全匹配的歌词,用TXT文本格式
  11. echo,       保存,制作时把歌词拖到此脚本图标上或此脚本的对
  12. echo,       话框里.
  13. echo,       使用音乐播放器播放相同的歌曲,用空格键使制作中
  14. echo,       的歌词与播放中的音乐保持同步.
  15. echo,       制作成功的LRC歌词与TXT文件在同一目录
  16. echo,
  17. echo ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
  18. if %errorcode% equ 0 (set /p lrc=拖入歌词文本:) else (set lrc=%1)
  19. for %%i in (%lrc%) do (set txtpath=%%~dpni)
  20. echo,&echo,按空格键开始制作[%txtpath%.LRC]&pause>nul
  21. echo,>!txtpath!.lrc
  22. call :s %time:~0,2% %time:~3,2% %time:~6,2% %time:~9,2% startMS
  23. cls&echo,&echo,━━━━━━━━━━请与播放中的音乐保持同步━━━━━━━━━&echo,
  24. for /f "usebackq delims=" %%i in (%lrc%) do (
  25. call :s !time:~0,2! !time:~3,2! !time:~6,2! !time:~9,2! endMS
  26. set /a MS=!endMS!-!startMS!,M=ms/6000,S=ms%%6000/100,MS%%=100
  27. echo [!M!:!S!.!MS!]%%i
  28. echo [!M!:!S!.!MS!]%%i>>!txtpath!.lrc
  29. pause>nul
  30. echo,
  31. )
  32. echo,&echo,━━歌词制作完成,请检查[%txtpath%.LRC]文件.按任意键退出.
  33. pause>nul
  34. exit
  35. :s
  36. set /a %5=(1%1%%100*360000)+(1%2%%100*6000)+(1%3%%100*100)+1%4%%100
  37. goto :eof
复制代码
歌词制作中:

用foobar2000验证,完美同步.
作者: hepeisheng    时间: 2015-3-11 13:08

厉害




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2