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

[特效代码] 批处理返回的内容(窗口内)更易看一些?(附带原代码)

  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,返回上一步:

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

TOP

学校一直断网,未能及时回复请见谅...
目的:更改批处理窗口中文字的字间距,包括字母、数字
谢谢!!

TOP

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

你直接说出你的 目的,要求 即可.
“阿姐走了。。。可是。。。我。。。我愿意。”

TOP

回复 2# hfg1977


    我还没到这地步...
只是某些地方做了些改动

TOP

这代码是你自己写的吗?
“阿姐走了。。。可是。。。我。。。我愿意。”

TOP

返回列表