[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
plp626

Rank: 8Rank: 8

帖子
640 
积分
2838 
技术
101  
捐助
0  
注册时间
2008-1-17 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-5-8 13:56 | 只看该作者

【出题】显示移动文字的批处理函数

本帖最后由 plp626 于 2011-5-9 20:02 编辑

下面代码保存为test.html
  1. <HTML>

  2.   <BODY>

  3. 	<marquee scrollamount=10 width=200  behavior=scroll>bbs.bathome.net</marquee> <P>

  4. 	<marquee scrollamount=5 width=200  behavior=alternate>bbs.bathome.net</marquee> <P>	

  5.                 <marquee scrollamount=15 width=200  behavior=slide>bbs.bathome.net</marquee>

  6.   </BODY>

  7. </HTML>
复制代码
现在用批处理分别实现上面scroll，alternate，slide三个效果：
  1. call:marquee "scrollamount=10 width=200  behavior=scroll" "bbs.bathome.net"
复制代码
  1. call:marquee "scrollamount=5 width=200  behavior=alternate" "bbs.bathome.net"
复制代码
  1. call:marquee "scrollamount=15 width=200  behavior=slide" "bbs.bathome.net"
复制代码
移动文字通用函数，要求代码短小者为佳。
  1. :marquee <"属性"> <"字符串">

  2. rem 等待你的实现。。。。

  3. goto:eof
复制代码
还有好多属性有待实现，比如：
  1. <HTML>

  2.   <BODY>

  3.       <marquee scrollamount=5 width=400  direction=left>bbs.bathome.net</marquee> <P>

  4.       <marquee scrollamount=10 width=400  direction=right>bbs.bathome.net</marquee> <P>

  5.       <marquee scrollamount=15 width=400  direction=down>bbs.bathome.net</marquee> <P>

  6.       <marquee scrollamount=20 width=400  direction=up>bbs.bathome.net</marquee> <P>

  7.   </BODY>

  8. </HTML>
复制代码
先看看大家的热情程度。
============================================
2011-5-9修订：
对于函数传递参数的格式不做硬性规定，

可以
  1. call:marquee "scrollamount=15 width=200  behavior=slide" "bbs.bathome.net"
复制代码
也可以
  1. ::主要是考虑到字符串作为值传递的很多缺陷，所以鼓励大家引用调用（将字符串保持在变量内，把变量名传递到函数体内）

  2. ::用逗号隔开属性值的方式，是考虑到cmd中set/a的特性，方便赋值。

  3. set str=bbs.bathome.net

  4. call:marquee "scrollamount=15, width=200, behavior=slide" str 
复制代码
初衷是：让调用者觉得方便，同时又让函数的实现代码尽量简短（这个函数无需考虑效率问题）
============================================
看到大家有在函数内部求字符串长度的“操作”，我的观点是在参数传递时，可以把字符串的长度作为参数传递过去，这样可以保持marquee函数功能的单一,最大限度做到函数的复用。
  1. set Mystr=bbs.bathome.net

  2. call:strlen Mystr len

  3. call:marquee "scrollamount=10, width=200, behavior=slide" Mystr len
复制代码
不用过于拘泥于上面的参数格式（上面的调用格式仅是我的做法），我主要看有没有更好的方式以及精简的代码

（大家还可以将三个效果用三个函数分别实现）
收藏 分享
技术娱乐 3802

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18831 
技术
978  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2011-5-8 22:18 | 只看该作者
本帖最后由 zm900612 于 2011-5-9 12:55 编辑

不是很擅长特效，也没怎么思考过其中的技巧，所以写得比较复杂
  1. @echo off

  2. set /a 耗时=10,宽=40

  3. set /p call=1、scroll  2、alternate  3、slide(Current) ^

  4. 

  5.    Your Choice:[.]

  6. if "%call%"=="1" call:marquee "scrollamount=%耗时% width=%宽%  behavior=scroll" "bbs.bathome.net"

  7. if "%call%"=="2" call:marquee "scrollamount=%耗时% width=%宽%  behavior=alternate" "bbs.bathome.net"

  8. call:marquee "scrollamount=%耗时% width=%宽%  behavior=slide" "bbs.bathome.net"

  9. 

  10. :marquee

  11. setlocal enabledelayedexpansion

  12. title %*

  13. for /f "skip=4 tokens=2" %%a in ('mode con') do if not defined cols set cols=%%a

  14. for /f "tokens=1-3" %%a in (%1) do set %%c&set /a %%a,%%b

  15. if %behavior%==slide set sl=::

  16. set "$=%~2#"

  17. set len=&for %%a in (128 64 32 16 8 4 2 1)do if !$:~%%a^,1!. NEQ . set/a len+=%%a&set $=!$:~%%a!

  18. set th=【此处替换为制表符tab】

  19. for /l %%a in (0 %cols% %width%) do echo;&set th=!th!

  20. set "sr=%~2"

  21. for /l %%a in (1 1 %width%) do set "sr= !sr!"

  22. set k=!sr:~0,%width%!&set xh=!sr:~-%width%!

  23. (if not %behavior%==alternate for /l %%a in (1 1 %len%) do (

  24. 	echo !th! !k:~0,-%%a!!xh:~-%len%,%%a! 

  25. 	for /l %%b in (-%scrollamount%00 5) do cd.

  26. )) 2>nul

  27. if %behavior% neq scroll set /a "width-=len"

  28. %sl% (set /a width-=1

  29. %sl% for /l %%a in (1 %behavior:slide=%1 1) do (

  30. 	for /l %%b in (1 1 %width%) do (

  31. 		echo !th! !xh:~%%b!!xh:~0,%%b!

  32. 		for /l %%b in (-%scrollamount%00 5) do cd.

  33. 	)

  34. %sl% 	if !behavior! neq scroll for /l %%b in (!width! -1) do (

  35. %sl% 		echo !th! !xh:~%%b!!xh:~0,%%b!

  36. %sl% 		for /l %%b in (-%scrollamount%00 5) do cd.)

  37. %sl%)) 2>nul

  38. endlocal

  39. pause>nul
复制代码
修改了下，代码更飘逸，思路更严谨
1

评分人数

链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
3楼
发表于 2011-5-8 22:40 | 只看该作者
歌词：“一切也只是曾经”
恩，不过跟效果有关的，比较多路数。帖子一出总有机会看到新颖的思路。
FuniCode 编程论坛

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18831 
技术
978  
捐助
100  
注册时间
2010-10-9 
4楼
发表于 2011-5-8 22:47 | 只看该作者
刚才笔误了，不是退格符，是制表符，也就是tab
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
5楼
发表于 2011-5-8 23:39 | 只看该作者
本帖最后由 523066680 于 2011-5-8 23:44 编辑

函数的
调用的时候发送一个数字保持一直在增加的那种……
如果改成函数自己每次平移一下，函数中加个变量作记录也可以。
第三行那个没动作，没细看，没做。
  1. @echo off

  2. setlocal enabledelayedexpansion

  3. set spec=bbs.bathome.net

  4. call :countlength

  5. 

  6. for /l %%a in (1,1,100) do (set "s100= !s100!")

  7. for /l %%a in (1,1,100) do (

  8. 	for /l %%A in (1,1,300) do (echo >nul)

  9. 	cls

  10. 	call :run %spec% %%a 20

  11. 	call :LR %spec% %%a 20

  12. )

  13. pause

  14. 

  15. 

  16. :: $str $move $range

  17. :run

  18. set /a move=%2 %% (%3+len)

  19. set result=!s100:~0,%3!%1%s100%

  20. set result=!result:~%move%,%3!

  21. echo,%result%

  22. goto :eof

  23. 

  24. :LR

  25. set /a spacerange=%3-len,move=spacerange - ( %2 %% (spacerange*2) +1)

  26. set move=%move:-=%

  27. set result=!s100:~0,%move%!%1

  28. echo %result%

  29. goto :eof

  30. 

  31. :countlength

  32. set str=%1

  33. for /l %%a in (1,1,1000) do (

  34. 	if "!spec:~%%a!"=="" (

  35. 		set /a len=%%a &&goto :eof

  36. 	)

  37. )
复制代码
1

评分人数

FuniCode 编程论坛

TOP

terse

Rank: 8Rank: 8

帖子
2333 
积分
9721 
技术
471  
捐助
0  
注册时间
2008-2-25 
6楼
发表于 2011-5-13 19:39 | 只看该作者
特效  523066680兄的强项

TOP

返回列表