适时加亮播放歌词 在附件中请下载；以下代码没有加亮功能！
创建自监控代码竟没人回贴，还有几处都很经典都没人有回应。太伤感了！谁发的99乘法表都好多人看贴和回帖。其实那个我早就做过并没发贴，感觉没多意思！关于tab排版的我早几年都清楚，多行回退有知道不？竟有人还为那点小知识贺彩，真是悲哀!真有点怀疑浏览者的水平！
还有刚刚完成就有人还提议要自动下歌词，不知自动下载怎么搞 谁发个代码学习学习！肯定要下网络歌词的！不是ftp那种吧！
::版权所有 趣味东::
@echo off&color 2e&mode con cols=60 lines=30
setlocal enableDelayedExpansion&title 歌词播放 QQ:309254515-趣味东制作 !time!
set/a"1/%1"2>nul||start /min mshta vbscript:createobject("wscript.shell").^
run("""%~nx0"" 1",0)(window.close)&&exit
set/a"1/(%1-1)"2>nul||(start /max /wait "" %0 2&cmd/c "del/a/f q.wd"
taskkill /f /im "mshta.exe" /im "cmd.exe" &exit)
for /l %%i in (1 1 50) do set ht=!ht!&set kg=!kg!
set cl=013456789abcdef
:hom
echo.请将有歌词(.lrc)的任意音乐托曳至此窗口^!
set/p mp=歌曲:
set bg=!mp:"=!
set mp="!bg!"
set lrc=!mp:~,-4!lrc"
echo.
if not exist !lrc! set/p lrc=歌词(*.lrc):
:收集时间段
for /f "delims=" %%i in ('type %lrc%') do (2>nul set str=%%i
if "!str:~,1!" equ "
=!&echo. %%~xj - !str:~4!)
goto:eof)
if "!str:~1,1!" leq "9" set tn=!tn!!str:~1,8! &2>nul set str=!str:*]=!&goto t)
set tn=!tn::=.!
for %%j in (!tn!) do set "%%j=!str!"
set tns=!tns!!tn!
set tn=
goto:eof
------------------------------------------------------
:c
set/a t1="(1%time:~-8,2%*60+1%time:~-5,2%)*100+1%time:~-2%"
set/a tc=t1-t0
if !tc! lss 0 set/a tc+=360000
set/p=!ht!!time! !tc! %1<nul
if !tc! lss %1 goto c
set/p=!ht!!kg!!ht!<nul
goto:eof
------------------------------------------------------
[ Last edited by qwd on 2010-2-11 at 19:36 ]
本帖最近评分记录
（共 4 条）
点击查看详情
附件
适时加亮播放歌词.rar (1.43 KiB, 下载次数: 26)
