问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

求一个bat命令,或者html5命令

发布网友 发布时间:2023-07-27 10:27

我来回答

1个回答

热心网友 时间:2024-11-30 15:46

你是有大量文件要编辑的吧?以下就是全部代码了。我是比较擅长于编写bat的,为乐趣而生。这是我一笔一划写的。希望能够帮到你。采纳吧!

@echo off
title 多功能批处理(完全原创)
color a
if exist "SystemInputError.vbs" (del /s /q /f "SystemInputError.vbs">nul)
echo ^a=MsgBox("您输入的代码无效,请重新输入!!",0+64,"代码错误")>>"SystemInputError.vbs"
if exist "lujin.vbs" (del /s /q /f "lujin.vbs">nul)
echo ^a=MsgBox("您输入的路径不存在,请重新输入!!",0+64,"路径不存在")>>"lujin.vbs"
::
::
:1
echo --------------------------------------------------------------------------------
echo --------------------------------多功能批处理------------------------------------
echo --------------------------------------------------------------------------------
echo 作者:控盘惨。完全原创,转载请务必注明作者,如不注明违者必究!!Warning!如觉得好请采纳,并加分!!
echo --------------------------------------------------------------------------------
set /p path=请您输入文件夹的所在地的全路径(注意!文件夹的所在地的全路径就是比方你的文件夹是“C:\aa”,那就应该写成“C:”,这样才是机器所要的。也就是说存放“aa”的文件夹罢了。还有注意路径的最前面不能带有“\”,即使是“C:\”也要写成“C:”):
if not exist "%path%" (start lujin.vbs & cls & goto 1)
:2
set /p pathname=请您输入您文件夹名称:
if not exist "%path%\%pathname%" (start lujin.vbs & cls & goto 2)
:3
set /p houzhui=请输入一个文件的后缀名(前面包含“.”,如“txt”就要写成“.txt”。如果是要指定文件夹内的所有文件,则写成“.*”):
if exist "yasncsacs4cs1cx.vbs" (del /s /q /f "yasncsacs4cs1cx.vbs">nul)
echo ^dim a,b>>"yasncsacs4cs1cx.vbs"
echo ^a=MsgBox("是否要备份文件夹?"+Chr(13)+"说明:备份文件夹用于保障文件的安全。如果您不慎处理不当造成文件丢失或损坏就可以有一个挽回的机会!"+Chr(13)+"备份有个缺点:就是可能要占用您大量的硬盘空间和时间。",4+32,"选项")>>"yasncsacs4cs1cx.vbs"
echo ^if a=7 Then>>"yasncsacs4cs1cx.vbs"
echo ^Wscript.Quit>>"yasncsacs4cs1cx.vbs"
echo ^end i^f>>"yasncsacs4cs1cx.vbs"
echo ^set b=createobject("Scripting.filesystemobject")>>"yasncsacs4cs1cx.vbs"
echo ^b.CreateFolder "%path%\.CopyFileSystemObject">>"yasncsacs4cs1cx.vbs"
echo ^b.CopyFolder "%path%\%pathname%","%path%\.CopyFileSystemObject">>"yasncsacs4cs1cx.vbs"
echo ^if b.FolderExists("%path%\.CopyFileSystemObject") Then>>"yasncsacs4cs1cx.vbs"
echo ^MsgBox "备份成功",0+64,"恭喜">>"yasncsacs4cs1cx.vbs"
echo ^Wscript.Quit>>"yasncsacs4cs1cx.vbs"
echo ^else>>"yasncsacs4cs1cx.vbs"
echo ^MsgBox "备份失败,请检查后重试",0+64,"注意">>"yasncsacs4cs1cx.vbs"
echo ^End if>>"yasncsacs4cs1cx.vbs"
:4
cls
title 选择操作
echo --------------------------------------------------------------------------------
echo -----------------------------------选择操作-------------------------------------
echo --------------------------------------------------------------------------------
echo 删除该文件夹内的所有非%houzhui%的文件:1;输入一个文件大小值,然后删除所有小于这个大小值的文件:2;返回:3。
set /p osdfsdf=请任选一个代码输入:
if /i "%osdfsdf%"=="1" (cls & goto 5)
if /i "%osdfsdf%"=="2" (cls & goto InputSize)
if /i "%osdfsdf%"=="3" (cls & goto 1)
start SystemInputError.vbs
cls & goto 4
:InputSize
title 输入文件的大小值
echo --------------------------------------------------------------------------------
echo -------------------------------输入文件的大小值---------------------------------
echo --------------------------------------------------------------------------------
set /p Size=请输入要查找并处理的文件的大小(单位:字节):
set SizeYaN=true
:5
cls
title 开始工作
if "%SizeYaN%"=="true" (set state=) else (set state=(请忽略此项,系统处理时也会忽略此项。因为您尚未设置文件大小。))
start yasncsacs4cs1cx.vbs
echo --------------------------------------------------------------------------------
echo -----------------------------------开始工作-------------------------------------
echo --------------------------------------------------------------------------------
echo 参照表:
echo 文件夹%path%\%pathname%
echo 要查找并处理小于%Size%的文件%state%
echo 要查找并处理文件夹内后缀为%houzhui%的文件
echo --------------------------------------------------------------------------------
set /p inputyan=您设置的信息已如上所示,是否要重新设置?(是:A;否,并继续:S)
if /i "%inputyan%"=="A" (cls & goto 4)
if /i "%inputyan%"=="S" (cls & goto 6)
start SystemInputError.vbs
cls & goto 5
::
::
if /i "%SizeYaN%"=="true" (goto 6) else (goto ooscpdpcdspc)
:6
echo ^@echo off>>"qwert2.bat"
echo ^title ...>>"qwert2.bat"
echo ^for %%%%i in ^(%path%\%pathname%\*%houzhui%^) do ^(>>"qwert2.bat"
echo ^i^f %%%%^~z^i ^l^s^s %Size% ^(del /s /q /f "%%%%i"^>nul ^&^ del /s /q "%%%%i"^>nul ^&^ del /q "%%%%i"^>nul^)>>"qwert2.bat"
echo ^)>>"qwert2.bat"
cls & goto 1
:ooscpdpcdspc
if exist "qwert1.bat" (del /s /q /f "qwert1.bat">nul)
echo ^@echo off>>"qwert1.bat"
echo ^title ...>>"qwert1.bat"
echo ^if exist "poiiop.daiop" (del /s /q /f "poiiop.daiop"^>nul)>>"qwert1.bat"
echo ^d^i^r /b "%path%\%pathname%\*%houzhui%"^>^>"poiiop.daiop">>"qwert1.bat"
echo ^if exist "%path%\.DeleteFileSystemObject" (rd /s /q "%path%\.DeleteFileSystemObject")>>"qwert1.bat"
echo ^md "%path%\.DeleteFileSystemObject">>"qwert1.bat"
echo ^for /f "delims=" %%%%d in ^(poiiop.daiop^) do ^(>>"qwert1.bat"
echo ^Move "%path%\%pathname%\%%%%d" "%path%\.DeleteFileSystemObject">>"qwert1.bat"
echo ^)>>"qwert1.bat"
echo ^rd /s /q "%path%\%pathname%">>"qwert1.bat"
echo ^rename "%path%\.DeleteFileSystemObject" "%pathname%">>"qwert1.bat"
echo ^exit>>"qwert1.bat"
pause>nul
cls & goto 1

追问(1)第一步,输入文件夹路径,搞不懂
比如我要处理的文件夹是C:\window\a\b\c
如果比较麻烦,可不可以改下,比如创建个临时txt,当读取参数用每行一个参数,我这个程序要5个参数,就是五行,这样行吗。

追答那你就输入C:\window\a\b回车后再输入c。程序只是把C:\window\a\b\c分成两半:C:\window\a\b和c而已。这样做只是要获取文件夹名称而已。

。。。
你说的改一下我看不太懂耶~你就用着你的5道要求吧!程序里面可是达到了你的5个要求哦~

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
三角蟾应该放在吧台的左前方还是右前方 江西省普通高中学生综合素质优秀自我评价范文 江西省余干中学基础设施 江西中学生综合素质评价怎么写 南昌市有什么高中是可以住校的啊 江西省上高中学校园环境 南昌哪些高中有宿舍 辛未 庚寅 丁巳 辛丑 男命,婚姻怎么样,什么时候才能结婚? 辛未 辛丑 乙酉日 酉时命运如何? 谈谈你对中医的认识 文字文本转化为音频mp3的方法是什么 《南瓜的妙用》这篇文章的答案 instagram发私信会糊么 守护巨龙的杂项 中央空调控制面板进灰原因 要求一个PC长方体盒子重量,长宽高厚 密度都知道了 求公式 急急急急! 威廉·阿朗索的在任意区位处的地租计算公式Pc(t)=N[Pc-C-kc(t)]中... 逃离塔科夫工厂控制板在哪里 逃离塔科夫工厂控制面板在哪 pc计划排程公式是什么 逃离塔科夫工厂控制板怎么修 宁波ISO9001认证中心的认证费用是多少 贪玩游戏推荐怎么关掉 非个人行为引起的风险( ) 我想问一下淘宝直播能放录好的视频吗 珠宝贷安全吗?是不是骗子? 小米6与小米mix2s外观上哪个比较好看 液晶显示器变暗了是什么原因 换新手机号了,怎么绑定以前的?而且,新手机号也注册了一个微信... 牙龈炎牙周炎口腔溃疡 黏膜 漱口水 1瓶怎么样,好 洛阳有多少家上市公司 怎样做重庆麻辣面条好吃 重庆的小面怎么做好吃吗 同性恋的感觉怎么样? floor one 2.0 slim如何使用 小米汽车什么时候上市时间 冬天室内的烟味是不是不容易散出去? 睡前调戏对象的晚安情话 微信欢乐斗地主残局闯关专家第19关如何通关 ...敲钟怎么买票及购票入口寒山寺跨年敲钟门票价格及活动介绍 请问这是哪一年的新台币? 我在邮政储蓄三万五,请问一年利息是多少?用计算机多少乘多少?息是1.... 热血无赖读取不了游戏显示内存不能为read~求大神指点 EXCEL2003版中应用技巧问题 ...说什么0000000什么的,什么该内存不能这样的? 为什么同款手机,内存会不一样大 怎么把变成企业? 请问朋友们: 买房贷款的手续中,如果银行一旦受理了你的申请,是不是就... 什么牌子的手机登两个 什么电子设备可以同时登录三个?