中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-10-01 10:43 		共 47,813 主题排行 / 349,918 发帖 / 今日 0 篇 / 48,279 会员排行
DOS批处理 & 脚本技术（批处理室） » 如何这样执行批处理代码？从txt和从粘贴板
可打印版本 　3,551 / 35
第16楼　523066680 发表于 2009-09-09 03:48
银牌会员　发帖 1,133　积分 2,361
虽然我不会，我帮你顶起来。他们肯定知道。
第17楼　xiaofei120 发表于 2009-09-09 07:10
新手上路　发帖 14　积分 14
Originally posted by loquat at 2009-9-6 10:41:
del /f %0
这个怎么写到text.bat中去？？？





echo del /f %%0 >>test.bat 这样就可以了！
第18楼　523066680 发表于 2009-09-09 07:58
银牌会员　发帖 1,133　积分 2,361
这句话如果在批处理里面执行…… %0 可能就是 执行重定向的批处理的路径。
第19楼　loquat 发表于 2009-09-09 13:45
初级用户　发帖 80　积分 81
Originally posted by xiaofei120 at 2009-9-9 07:10:





echo del /f %%0 >>test.bat 这样就可以了！


写进去没用。。。
第20楼　loquat 发表于 2009-09-09 14:06
初级用户　发帖 80　积分 81
发现上面代码可行。
但是运行后无论怎么改都会在CMD中输出“找不到批处理文件。”
怎么去掉这个提示。
>nul 2>nul 加到哪个位置？？？
第21楼　loquat 发表于 2009-09-09 14:16
初级用户　发帖 80　积分 81
和伤脑筋的批处理还有一点点差距啊。
人家的没有这个错误提示。。。



[ Last edited by loquat on 2009-9-10 at 07:08 ]
第22楼　loquat 发表于 2009-09-10 23:30
初级用户　发帖 80　积分 81
没人进来看了，再顶起来。。。
第23楼　slore 发表于 2009-09-11 01:16
铂金会员　发帖 2,478　积分 5,212
你没看到你CMD的标题麽。

cd切换路径
第24楼　loquat 发表于 2009-09-11 02:23
初级用户　发帖 80　积分 81
Originally posted by slore at 2009-9-11 01:16:
你没看到你CMD的标题麽。

cd切换路径

提示依旧，一下两种改法都是一样的提示。



现在的情况是start text.bat时，运行到del %0这一句的时候，能执行成功删除text.bat文件。
然后会返回一个提示"找不到批处理文件！"
能不能退出text.bat时才执行删除命令？
第25楼　loquat 发表于 2009-09-11 02:24
初级用户　发帖 80　积分 81
另外第一页那个vbs的代码有人会改吗？？？
第26楼　loquat 发表于 2009-09-11 02:44
初级用户　发帖 80　积分 81
这么改也还是有问题，我瞎了啊。。。
第27楼　loquat 发表于 2009-09-11 02:50
初级用户　发帖 80　积分 81
这样，怎么还有问题呢。。。
第28楼　loquat 发表于 2009-09-12 00:10
初级用户　发帖 80　积分 81
还是没人进来，一点点差别搞不定，汗，没人再进来了么？
start本身比call好用些，因为call之后就直接exit了，不能再继续输入命令执行。
http://bbs.verybat.org/viewthread.php?tid=19057
这边也发过帖了。。。
第29楼　slore 发表于 2009-09-12 04:28
铂金会员　发帖 2,478　积分 5,212
就是2个点的问题。。。自己看下不就完了。
Option Explicit

Dim strClipb
Dim objIE
Dim WshShell,oExec

Set objIE = CreateObject("htmlfile")
strClipb = objIE.parentWindow.clipboardData.getData("text")
'WScript.Echo strClipb

CreateBat strClipb
If strClipb = "" Then
Set objIE = Nothing
WScript.Quit
End If '剪贴板如果为空，不执行命令

Set WshShell = CreateObject("WScript.Shell")
'Set oExec= WshShell.Exec("%comspec% /k _tempbat.bat") '这句CMD不能自动关闭
WshShell.Run("%comspec% /c call _tempbat.bat"),1, False '执行BAT, "pause"执行后退出

Set objIE = Nothing
Set WshShell = Nothing

Sub CreateBat(strCopy) '创建BAT文件
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("_tempbat.bat", True)
MyFile.WriteLine strCopy '&vbcrlf& "pause" '在所有代码后加回车及"pause"

MyFile.Close
Set fso = Nothing
Set MyFile = Nothing
End Sub
第30楼　loquat 发表于 2009-09-12 12:09
初级用户　发帖 80　积分 81
Originally posted by slore at 2009-9-12 04:28:
Option Explicit

Dim strClipb
Dim objIE
Dim WshShell,oExec

Set objIE =

感谢老大进来看帖。

vbs我是完全不会，正在业余学习中。呵呵~~~

其实，单纯的批处理主帖的两种想法都实现了。

主要是bat命令用call之后，运行完不能继续手动输入命令再执行了。这一点不是我不喜欢，我只是好奇，多一种想法和探讨。。。start是否能完美删除临时bat文件而不留那个错误提示？

vbs里面还是用的call，并且没有删除临时文件的项目。vbs我就不会了，没法自己尝试完善了。。。

所以继续顶帖，盼高手出手吧。
上一页　 1 2 3 　下一页
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023