虽然我不会，我帮你顶起来。他们肯定知道。
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何这样执行批处理代码？从txt和从粘贴板
第 16 楼
发表于 2009-09-09 03:48 · 中国 广东 广州 电信
第 17 楼
发表于 2009-09-09 07:10 · 中国 广东 电信
Originally posted by loquat at 2009-9-6 10:41:
del /f %0
这个怎么写到text.bat中去？？？
echo del /f %%0 >>test.bat 这样就可以了！
第 18 楼
发表于 2009-09-09 07:58 · 中国 广东 广州 电信
第 19 楼
发表于 2009-09-09 13:45 · 中国 湖南 长沙 电信
Originally posted by xiaofei120 at 2009-9-9 07:10:
echo del /f %%0 >>test.bat 这样就可以了！
写进去没用。。。
@echo off
:其中将剪贴板的文本保存为text.bat的作者为清风——地址：http://bbs.verybat.org/viewthread.php?tid=11762
mshta vbscript:createobject("scripting.filesystemobject").opentextfile("text.bat",2,true).writeline(CreateObject("htmlfile").parentwindow.clipboarddata.getdata("text"))(window.close)
echo del /f %%0 >>text.bat
::start /w notepad text.bat
start text.bat
第 20 楼
发表于 2009-09-09 14:06 · 中国 湖南 长沙 电信
发现上面代码可行。
但是运行后无论怎么改都会在CMD中输出“找不到批处理文件。”
怎么去掉这个提示。
>nul 2>nul 加到哪个位置？？？
但是运行后无论怎么改都会在CMD中输出“找不到批处理文件。”
怎么去掉这个提示。
>nul 2>nul 加到哪个位置？？？
第 21 楼
发表于 2009-09-09 14:16 · 中国 湖南 长沙 电信
和伤脑筋的批处理还有一点点差距啊。
人家的没有这个错误提示。。。
[ Last edited by loquat on 2009-9-10 at 07:08 ]
人家的没有这个错误提示。。。
[ Last edited by loquat on 2009-9-10 at 07:08 ]
第 22 楼
发表于 2009-09-10 23:30 · 中国 湖南 长沙 电信
没人进来看了，再顶起来。。。
第 23 楼
发表于 2009-09-11 01:16 · 中国 陕西 西安 电信
你没看到你CMD的标题麽。
cd切换路径
cd切换路径
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
第 24 楼
发表于 2009-09-11 02:23 · 中国 湖南 长沙 电信
Originally posted by slore at 2009-9-11 01:16:
你没看到你CMD的标题麽。
cd切换路径
提示依旧，一下两种改法都是一样的提示。
@echo off
:其中将剪贴板的文本保存为text.bat的作者为清风——地址：http://bbs.verybat.org/viewthread.php?tid=11762
mshta vbscript:createobject("scripting.filesystemobject").opentextfile("text.bat",2,true).writeline(CreateObject("htmlfile").parentwindow.clipboarddata.getdata("text"))(window.close)
echo cd /d "%homepath%\桌面\" >>text.bat
echo del /f %%0 >>text.bat
::start /w notepad text.bat
start text.bat
@echo off
:其中将剪贴板的文本保存为text.bat的作者为清风——地址：http://bbs.verybat.org/viewthread.php?tid=11762
mshta vbscript:createobject("scripting.filesystemobject").opentextfile("text.bat",2,true).writeline(CreateObject("htmlfile").parentwindow.clipboarddata.getdata("text"))(window.close)
echo del %%0 >>text.bat
echo cd /d "%homepath%\桌面\" >>text.bat
::start /w notepad text.bat
start text.bat
现在的情况是start text.bat时，运行到del %0这一句的时候，能执行成功删除text.bat文件。
然后会返回一个提示"找不到批处理文件！"
能不能退出text.bat时才执行删除命令？
第 25 楼
发表于 2009-09-11 02:24 · 中国 湖南 长沙 电信
另外第一页那个vbs的代码有人会改吗？？？
第 26 楼
发表于 2009-09-11 02:44 · 中国 湖南 长沙 电信
这么改也还是有问题，我瞎了啊。。。
@echo off
:其中将剪贴板的文本保存为text.bat的作者为清风——地址：http://bbs.verybat.org/viewthread.php?tid=11762
mshta vbscript:createobject("scripting.filesystemobject").opentextfile("text.bat",2,true).writeline(CreateObject("htmlfile").parentwindow.clipboarddata.getdata("text"))(window.close)
echo cd /d %~dp0 >>text.bat
echo del %%0 >>text.bat
::start /w notepad text.bat
start text.bat
第 27 楼
发表于 2009-09-11 02:50 · 中国 湖南 长沙 电信
这样，怎么还有问题呢。。。
@echo off
mshta vbscript:createobject("scripting.filesystemobject").opentextfile("text.bat",2,true).writeline(CreateObject("htmlfile").parentwindow.clipboarddata.getdata("text"))(window.close)
::echo cd /d %~dp0 >>text.bat
::echo del %%0 >>text.bat
::start /w notepad text.bat
start text.bat
cd /d %~dp0
del text.bat >nul 2>nul
第 28 楼
发表于 2009-09-12 00:10 · 中国 湖南 长沙 电信
还是没人进来，一点点差别搞不定，汗，没人再进来了么？
start本身比call好用些，因为call之后就直接exit了，不能再继续输入命令执行。
http://bbs.verybat.org/viewthread.php?tid=19057
这边也发过帖了。。。
start本身比call好用些，因为call之后就直接exit了，不能再继续输入命令执行。
http://bbs.verybat.org/viewthread.php?tid=19057
这边也发过帖了。。。
第 29 楼
就是2个点的问题。。。自己看下不就完了。
发表于 2009-09-12 04:28 · 中国 陕西 西安 电信
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
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
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
第 30 楼
发表于 2009-09-12 12:09 · 中国 湖南 长沙 电信
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我就不会了，没法自己尝试完善了。。。
所以继续顶帖，盼高手出手吧。
论坛跳转: