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

Rank: 3Rank: 3

帖子
62 
积分
246 
技术
0  
捐助
0  
注册时间
2008-4-11 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2022-8-13 16:15 | 只看该作者

[文本处理] 有规律的要写到BAT代码块2000

写了个代码，代码块1和代码块2…………等有部分只是改个数字，不会写代码改，我要写到代码块2000，怎么办，手动复制粘贴太慢了太累人了
  1. if not  "%~1"=="p" start /min zmd.exe /c %0 p&exit

  2. @echo off

  3. 

  4. 

  5. 

  6. : lab1

  7. :: 删除testout中零字节ts最好e:\n零字节也删除一下一定要删除零字节因为零字节ts会导致合并视频失败从而导致testtesttest.ts不变大而不断重启下载进程我为这个浪费了好几天才找到原因

  8. :: for /r E:\N\testout %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  9. call  copy  E:\testout\00001.ts E:\testout\test /y

  10. fciv.exa  E:\testout\test\00001.ts -md5>11.txt

  11. :: 等待120秒的原因是如果文件变大则再复制00001.ts其22txt的md5是不一样的fciv不能访问被1exe下载的文件所以要复制

  12. timeout /nobreak /t 120

  13. :: 调用hebing.bat合并视频

  14. call "E:\testout\test\hebing.bat"

  15. call  copy  E:\testout\00001.ts E:\testout\test /y

  16. 

  17. 

  18. fciv.exa  E:\testout\test\00001.ts -md5>22.txt

  19. fc.exa /b 11.txt 22.txt > nul

  20. if errorlevel 1 (

  21.     :: 视频变大则跳转至此代码块开头隔120秒再监视是否变大

  22.     goto lab1

  23. ) else ( 

  24.     :: 视频不变大则启动新下载任务

  25.     taskkill /f /im 1.exe

  26.     taskkill /f /im cmd.exe

  27.     for /r E:\testout\test %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  28.     start cmd /k "1.exe -y -i  [url]http://64.1643.17.9:389/.m3u8[/url] 00002.ts"

  29.    :: 跳转至代码块2 1+1等于2 所以goto 11

  30.     goto lab11

  31. )

  32. :: 我是代码分割线 启动下一个下载任务 代码块1

  33. 

  34. : lab11

  35. :: 删除testout中零字节ts最好e:\n零字节也删除一下一定要删除零字节因为零字节ts会导致合并视频失败从而导致testtesttest.ts不变大而不断重启下载进程我为这个浪费了好几天才找到原因

  36. :: for /r E:\N\testout %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  37. call  copy  E:\testout\00002.ts E:\testout\test /y

  38. fciv.exa  E:\testout\test\00002.ts -md5>11.txt

  39. timeout /nobreak /t 120

  40. :: 调用hebing.bat合并视频

  41. call "E:\testout\test\hebing.bat"

  42. 

  43. call  copy  E:\testout\00002.ts E:\testout\test /y

  44. fciv.exa  E:\testout\test\00002.ts -md5>22.txt

  45. fc.exa /b 11.txt 22.txt > nul

  46. if errorlevel 1 (

  47.     :: 视频变大则跳转至此代码块开头隔120秒再监视是否变大

  48.     goto lab11

  49. ) else ( 

  50.     :: 视频不变大则启动新下载任务

  51.     taskkill /f /im 1.exe

  52.     taskkill /f /im cmd.exe

  53.     for /r E:\testout\test %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  54.     start cmd /k "1.exe -y -i  [url]http://64.1643.17.9:389/.m3u8[/url] 00003.ts"

  55.    :: 跳转至代码块3 1+1+1等于3 所以goto 111

  56.     goto lab111

  57. )

  58. :: 我是代码分割线 启动下一个下载任务 代码块2

  59. 

  60. 

  61. : lab111

  62. :: 删除testout中零字节ts最好e:\n零字节也删除一下一定要删除零字节因为零字节ts会导致合并视频失败从而导致testtesttest.ts不变大而不断重启下载进程我为这个浪费了好几天才找到原因

  63. :: for /r E:\N\testout %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  64. 

  65. call  copy  E:\testout\00003.ts E:\testout\test /y

  66. 

  67. fciv.exa  E:\testout\test\00003.ts -md5>11.txt

  68. timeout /nobreak /t 120

  69. :: 调用hebing.bat合并视频

  70. call "E:\testout\test\hebing.bat"

  71. 

  72. call  copy  E:\testout\00003.ts E:\testout\test /y

  73. fciv.exa  E:\testout\test\00003.ts -md5>22.txt

  74. fc.exa /b 11.txt 22.txt > nul

  75. if errorlevel 1 (

  76.     :: 视频变大则跳转至此代码块开头隔120秒再监视是否变大

  77.     goto lab111

  78. ) else ( 

  79.     :: 视频不变大则启动新下载任务

  80.     taskkill /f /im 1.exe

  81.     taskkill /f /im cmd.exe

  82.     for /r E:\testout\test %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  83.     start cmd /k "1.exe -y -i  [url]http://64.1643.17.9:389/.m3u8[/url] 00004.ts"

  84.     goto lab1111

  85. )

  86. :: 我是代码分割线 启动下一个下载任务 代码块3

  87. 

  88. 

  89. 

  90. : lab1111

  91. :: 删除testout中零字节ts最好e:\n零字节也删除一下一定要删除零字节因为零字节ts会导致合并视频失败从而导致testtesttest.ts不变大而不断重启下载进程我为这个浪费了好几天才找到原因

  92. :: for /r E:\N\testout %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  93. 

  94. call  copy  E:\testout\00004.ts E:\testout\test /y

  95. fciv.exa  E:\testout\00004.ts -md5>11.txt

  96. timeout /nobreak /t 120

  97. :: 调用hebing.bat合并视频

  98. call "E:\testout\test\hebing.bat"

  99. 

  100. call  copy  E:\testout\00004.ts E:\testout\test /y

  101. fciv.exa  E:\testout\00004.ts -md5>22.txt

  102. fc.exa /b 11.txt 22.txt > nul

  103. if errorlevel 1 (

  104.     :: 视频变大则跳转至此代码块开头隔120秒再监视是否变大

  105.     goto lab1111

  106. ) else ( 

  107.     :: 视频不变大则启动新下载任务

  108.     taskkill /f /im 1.exe

  109.     taskkill /f /im cmd.exe

  110.     for /r E:\testout\test %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  111.     start cmd /k "1.exe -y -i  [url]http://64.1643.17.9:389/.m3u8[/url] 00005.ts"

  112.     goto lab11111

  113. )

  114. :: 我是代码分割线 启动下一个下载任务 代码块4

  115. 

  116. : lab11111

  117. :: 删除testout中零字节ts最好e:\n零字节也删除一下一定要删除零字节因为零字节ts会导致合并视频失败从而导致testtesttest.ts不变大而不断重启下载进程我为这个浪费了好几天才找到原因

  118. :: for /r E:\N\testout %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  119. 

  120. call  copy  E:\testout\00005.ts E:\testout\test /y

  121. fciv.exa  E:\testout\00005.ts -md5>11.txt

  122. timeout /nobreak /t 120

  123. :: 调用hebing.bat合并视频

  124. call "E:\testout\test\hebing.bat"

  125. 

  126. 

  127. call  copy  E:\testout\00005.ts E:\testout\test /y

  128. fciv.exa  E:\testout\00005.ts -md5>22.txt

  129. fc.exa /b 11.txt 22.txt > nul

  130. if errorlevel 1 (

  131.     :: 视频变大则跳转至此代码块开头隔120秒再监视是否变大

  132.     goto lab11111

  133. ) else ( 

  134.     :: 视频不变大则启动新下载任务

  135.     taskkill /f /im 1.exe

  136.     taskkill /f /im cmd.exe

  137.     for /r E:\testout\test %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  138.     start cmd /k "1.exe -y -i  [url]http://64.1643.17.9:389/.m3u8[/url] 00006.ts"

  139.     goto lab111111

  140. )

  141. :: 我是代码分割线 启动下一个下载任务 代码块5 

  142. 

  143. 

  144. 

  145. : lab111111

  146. :: 删除testout中零字节ts最好e:\n零字节也删除一下一定要删除零字节因为零字节ts会导致合并视频失败从而导致testtesttest.ts不变大而不断重启下载进程我为这个浪费了好几天才找到原因

  147. :: for /r E:\N\testout %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  148. 

  149. call  copy  E:\testout\00006.ts E:\testout\test /y

  150. fciv.exa  E:\testout\00006.ts -md5>11.txt

  151. timeout /nobreak /t 120

  152. :: 调用hebing.bat合并视频

  153. call "E:\testout\test\hebing.bat"

  154. 

  155. call  copy  E:\testout\00006.ts E:\testout\test /y

  156. fciv.exa  E:\testout\00006.ts -md5>22.txt

  157. fc.exa /b 11.txt 22.txt > nul

  158. if errorlevel 1 (

  159.     :: 视频变大则跳转至此代码块开头隔120秒再监视是否变大

  160.     goto lab111111

  161. ) else ( 

  162.     :: 视频不变大则启动新下载任务

  163.     taskkill /f /im 1.exe

  164.     taskkill /f /im cmd.exe

  165.     for /r E:\testout\test %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  166.     start cmd /k "1.exe -y -i  [url]http://64.1643.17.9:389/.m3u8[/url] 00007.ts"

  167.     goto lab1111111

  168. )

  169. :: 我是代码分割线 启动下一个下载任务 代码块6

  170. 

  171. 

  172. 

  173. : lab1111111

  174. :: 删除testout中零字节ts最好e:\n零字节也删除一下一定要删除零字节因为零字节ts会导致合并视频失败从而导致testtesttest.ts不变大而不断重启下载进程我为这个浪费了好几天才找到原因

  175. :: for /r E:\N\testout %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  176. call  copy  E:\testout\00007.ts E:\testout\test /y

  177. 

  178. fciv.exa  E:\testout\00007.ts -md5>11.txt

  179. timeout /nobreak /t 120

  180. :: 调用hebing.bat合并视频

  181. call "E:\testout\test\hebing.bat"

  182. 

  183. call  copy  E:\testout\00007.ts E:\testout\test /y

  184. fciv.exa  E:\testout\00007.ts -md5>22.txt

  185. fc.exa /b 11.txt 22.txt > nul

  186. if errorlevel 1 (

  187.     :: 视频变大则跳转至此代码块开头隔120秒再监视是否变大

  188.     goto lab1111111

  189. ) else ( 

  190.     :: 视频不变大则启动新下载任务

  191.     taskkill /f /im 1.exe

  192.     taskkill /f /im cmd.exe

  193.     for /r E:\testout\test %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  194.     start cmd /k "1.exe -y -i  [url]http://64.1643.17.9:389/.m3u8[/url] 00008.ts"

  195.     goto lab11111111

  196. )

  197. :: 我是代码分割线 启动下一个下载任务 代码块7 

  198. 

  199. 

  200. : lab11111111

  201. :: 删除testout中零字节ts最好e:\n零字节也删除一下一定要删除零字节因为零字节ts会导致合并视频失败从而导致testtesttest.ts不变大而不断重启下载进程我为这个浪费了好几天才找到原因

  202. :: for /r E:\N\testout %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  203. call  copy  E:\testout\00008.ts E:\testout\test /y

  204. 

  205. fciv.exa  E:\testout\00008.ts -md5>11.txt

  206. timeout /nobreak /t 120

  207. :: 调用hebing.bat合并视频

  208. call "E:\testout\test\hebing.bat"

  209. 

  210. call  copy  E:\testout\00008.ts E:\testout\test /y

  211. fciv.exa  E:\testout\00008.ts -md5>22.txt

  212. fc.exa /b 11.txt 22.txt > nul

  213. if errorlevel 1 (

  214.     :: 视频变大则跳转至此代码块开头隔120秒再监视是否变大

  215.     goto lab1111111

  216. ) else ( 

  217.     :: 视频不变大则启动新下载任务

  218.     taskkill /f /im 1.exe

  219.     taskkill /f /im cmd.exe

  220.     for /r E:\testout\test %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  221.     start cmd /k "1.exe -y -i  [url]http://64.1643.17.9:389/.m3u8[/url] 00009.ts"

  222.     goto lab111111111

  223. )

  224. :: 我是代码分割线 启动下一个下载任务 代码块8 

  225. 

  226. 

  227. : lab111111111

  228. 

  229. pause
复制代码
收藏 分享

flashercs

Rank: 6Rank: 6

帖子
1251 
积分
2217 
技术
279  
捐助
0  
注册时间
2017-3-20 
2楼
发表于 2022-8-14 05:00 | 只看该作者 
  1. if not  "%~1"=="p" start /min zmd.exe /c %0 p&exit

  2. @echo off

  3. 

  4. for /l %%A in (100001,1,102000) do (

  5.   call :foo1 %%A

  6. )

  7. exit /b

  8. 

  9. :foo1

  10. :: 删除testout中零字节ts最好e:\n零字节也删除一下一定要删除零字节因为零字节ts会导致合并视频失败从而导致testtesttest.ts不变大而不断重启下载进程我为这个浪费了好几天才找到原因

  11. :: for /r E:\N\testout %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  12. set basename=%1

  13. set /a basename2=%1+1

  14. set basename=%basename:~1%

  15. set basename2=%basename2:~1%

  16. :loop

  17. call  copy  E:\testout\%basename%.ts E:\testout\test /y

  18. fciv.exa  E:\testout\test\%basename%.ts -md5>11.txt

  19. :: 等待120秒的原因是如果文件变大则再复制00001.ts其22txt的md5是不一样的fciv不能访问被1exe下载的文件所以要复制

  20. timeout /nobreak /t 120

  21. :: 调用hebing.bat合并视频

  22. call "E:\testout\test\hebing.bat"

  23. call  copy  E:\testout\%basename%.ts E:\testout\test /y

  24. 

  25. 

  26. fciv.exa  E:\testout\test\%basename%.ts -md5>22.txt

  27. fc.exa /b 11.txt 22.txt > nul

  28. if errorlevel 1 (

  29.     :: 视频变大则跳转至此代码块开头隔120秒再监视是否变大

  30.     goto loop

  31. ) else (

  32. 

  33.     :: 视频不变大则启动新下载任务

  34.     taskkill /f /im 1.exe

  35.     taskkill /f /im cmd.exe

  36.     for /r E:\testout\test %%i in (*.ts) do @(if %%~zi EQU 0 del "%%i" /f)

  37.     start cmd /k "1.exe -y -i  http://64.1643.17.9:389/.m3u8 %basename2%.ts"

  38.    :: 跳转至代码块2 1+1等于2 所以goto 11

  39.     

  40. )

  41. exit /b
复制代码
微信:flashercs
QQ:49908356

TOP

返回列表