[游戏娱乐] 批处理彩色歌词插件

caruko

该脚本调用了去年写的一个小工具，可以在下面的链接找到
http://bbs.bathome.net/viewthread.php?tid=12498&highlight=


脚本如下，xx.lrc 为歌词文件，可以自己修改。
gdi.exe 目前只能显示在部分窗口中，有空的话我会改一改，可以让它直接显示在桌面上。

@echo off&setlocal ENABLEDELAYEDEXPANSION
set "t=%time%"
set "t=!t:.=!"
for /f "tokens=1,2 delims=[]" %%a in (xx.lrc) do (
	if "%%b"=="" (
		for /f "tokens=1,2 delims=:" %%A in ("%%a") do (
			set ##%%a=%%b
			rem call :%%a %%b  标题等功能可自设
		)
	) else (
		set "t1=%%a"&set "t1=!t1::= 1!"&set "t1=!t1:.=!"
		call :times 1!t1! "%%b"
	)
)
goto :eof
:times [time] [lrc-str]
for /f "tokens=1-3 delims=:" %%a in ("!t!") do (
	set "h=1%%a"&set "m=1%%b"&set "s=1%%c"
	set /a s=%2+s,m=%1+m
	if !s! geq 26000 set /a m+=1,s-=6000
	if !m! geq 260 set /a h+=1,m-=60
	if !h! geq 124 set /a h-=24,h+=100
)
for /l %%k in (1 1 10000) do (
set "nt=!time::=!"
set nt=1!nt:.=!
set lt=!h!!m:~1!!s:~1!
if !nt! geq !lt! (
	gdi "/t:cmd /c" "%~3*200*200*宋体*18*FF03F0FF"
	exit /b 0
)
cd>nul
)
goto :eof
复制代码

测试歌词

[ti:心香]
[ar:安又琪]
[al:《幸福卡片》主题曲]
[by:Love]
[00:00.60]安又琪 - 心香
[00:05.85]
[00:12.72]LRC编辑：Love 
[00:26.79]
[00:31.60]蓝的天 风吹缱绻
[00:35.66]猜白云 能够 飞多远
[00:41.97]
[00:47.40]到海边 森林尽头
[00:51.41]也许再 遇见
[00:58.79]
[01:02.88]给我这世间 一切偶然
[01:10.73]再因为爱 恒久的想念
[01:22.22]
[01:34.35]一朵花 心香一瓣
[01:38.73]它的梦 能够 飞多远
[01:45.03]
[01:50.34]也许 到天边 光的尽头
[01:56.35]会发生 改变
[02:02.28]
[02:05.74]孩子的笑 太阳的温暖
[02:16.78]恒久的 春天
[02:25.84]
[02:35.72]Love 
[02:55.78]
[03:09.53]给我这世间 一切偶然
[03:16.60]再因为爱 恒久的想念
[03:25.30]整个旅程 歌声飘远
[03:35.16]自由的春天
[03:44.35]
复制代码

pinke8

这个要试下，很好啊，原来批处理真的很强大的

ggehuliang

要是能加上音乐播放功能就更好了，论坛上已经有人做出来了