Board logo

标题: [特效代码] 批处理返回的内容（窗口内）更易看一些？（附带原代码） [打印本页]
作者: comicguests    时间: 2011-8-23 21:08     标题: 批处理返回的内容（窗口内）更易看一些？（附带原代码）

  1. :aki

  2. SetLocal EnableDelayedExpansion

  3.    For /R %%a In (*.mp4 *.rmvb *.mkv) Do (

  4.    Set "Str=%%~nxa"

  5.     SetLocal&Cls

  6.     Echo 视频文件：%%~nxa&Echo, 

  7.     For /f "Delims=" %%b In ('Dir /ad /b F:\视频') Do (

  8.       Set /A Num+=1,Number+=1&Set ".!Num!=F:\视频\%%b"

  9.       Set "Str=000!Num!"&Set "Var=%%b                    " 

  10.       Set /P=[!Str:~-3!]!Var:~,20!<nul

  11.       If "!Number!" EQU "2" Echo,&Set /A Number=0

  12.     )

  13.     Echo,&Set "Str="&Set /P Str=请选择文件夹,0,退出:

  14.       If /i "!Str!" EQU "0" (goto 6)

  15.     For %%b in (!Str!) do Echo !.%%b!>tem

  16.     EndLocal

  17.     Set /p Str=<tem&Del tem

  18.    Echo,&Set "Var="&Set /P Var=1,直接建立文件夹 2，打开子文件夹 3,返回上一步：

  19.       If /i "!Var!" EQU "3" (goto aki)    

  20.       If /i "!Var!" EQU "2" (

  21.       SetLocal&Cls

  22.       Echo 视频文件：%%~nxa&Echo,

  23.       For /F "Delims=" %%b In ('Dir /s /ad /b "!Str!"') Do (

  24.         Set /A Num+=1,Number+=1&Set ".!Num!=%%b"

  25.         Set "Str1=000!Num!"&Set "Var=%%b                    " 

  26.         Set /P=[!Str1:~-3!]!Var:~,20!<nul

  27.         If "!Number!" EQU "2" Echo,&Set /A Number=0

  28.       )

  29.  Echo,&Set "Str="&Set /P Str=请选择文件夹,+3,返回上一步:

  30.       If /i "!Str!" EQU "+3" (goto aki)

  31.       For %%b in (!Str!) do Echo !.%%b!>tem

  32.       EndLocal

  33.       Set /p Str=<tem&Del tem

  34.     )  

  35.       SetLocal&Cls

  36.       Echo 视频文件：%%~nxa&Echo,

  37.       For /F "Delims=" %%b In ('Dir /s /ad /b "!Str!"') Do (

  38.         Set /A Num+=1,Number+=1&Set ".!Num!=%%b"

  39.         Set "Str1=000!Num!"&Set "Var=%%b                    " 

  40.         Set /P=[!Str1:~-3!]!Var:~,20!<nul

  41.         If "!Number!" EQU "2" Echo,&Set /A Number=0

  42.       )

  43.  Echo,&Set "Str="&Set /P Str=请选择文件夹,+3,返回上一步:

  44.       If /i "!Str!" EQU "+3" (goto aki)

  45.       For %%b in (!Str!) do Echo !.%%b!>tem

  46.       EndLocal

  47.       Set /p Str=<tem&Del tem

  48.     Move "%%a" "!Str!\!%%b!\"
复制代码
正常运行后会出现下面的情况，字很拥挤，不容易查看，可不可以让它容易查看一些？
比如增大字的行间距，或让他一行只显示一个，或直接把F:\视频\萌える\去掉？

视频文件：afairyaddsebrh.rmvb

[001]F:\视频\萌える\Anohana   [002]F:\视频\萌える\Fractale
[003]F:\视频\萌える\Hana-Saku [004]F:\视频\萌える\KissXsis
[005]F:\视频\萌える\lucky star[006]F:\视频\萌える\MM一族
[007]F:\视频\萌える\うさぎドロップ   [008]F:\视频\萌える\まよチキ！
[009]F:\视频\萌える\ゆるゆり      [010]F:\视频\萌える\アイドルマスター
[011]F:\视频\萌える\ダンタリアンの書架 [012]F:\视频\萌える\バカとテストと召喚獣
[013]F:\视频\萌える\俺の妹がこんなに可愛[014]F:\视频\萌える\凉宫春日的忧郁
[015]F:\视频\萌える\只有神知道的世界  [016]F:\视频\萌える\学生会长是女仆
[017]F:\视频\萌える\日常        [018]F:\视频\萌える\森田さんは無口
[019]F:\视频\萌える\潜行吧！奈亚子   [020]F:\视频\萌える\猫神やおよろず
[021]F:\视频\萌える\科学超电磁炮    [022]F:\视频\萌える\萝球社
[023]F:\视频\萌える\轻音少女      [024]F:\视频\萌える\龙与虎
[025]F:\视频\萌える\lucky star[026]F:\视频\萌える\只有神知道的世界\只
[027]F:\视频\萌える\轻音少女\轻音少女第
请选择文件夹,+3,返回上一步:
作者: hfg1977    时间: 2011-8-23 21:30

这代码是你自己写的吗?
作者: comicguests    时间: 2011-8-23 22:30

回复 2# hfg1977


    我还没到这地步...
只是某些地方做了些改动
作者: hfg1977    时间: 2011-8-23 23:59

这样的话,代码就没必要看了. (说实话,代码很烂,没有可读性)

你直接说出你的 目的,要求 即可.
作者: comicguests    时间: 2011-9-12 10:43

学校一直断网，未能及时回复请见谅...
目的：更改批处理窗口中文字的字间距，包括字母、数字
谢谢！！
作者: Seder    时间: 2011-9-12 10:59

把批处理里面要输出的“ [001]F:\视频\萌える\Anohana   [002]F:\视频\萌える\Fractale  ” 的地方，中间的空格改为[tab]键（“~”按键下面那个键）



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