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

Rank: 1

帖子
15 
积分
15 
技术
0  
捐助
0  
注册时间
2010-12-1 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2010-12-7 18:09 | 只看该作者

[文件操作] 批处理echo怎样输出临时文件？

RT
想在批处理里面生成一个临时的VBS文件，文件的内容也想通过批处理的echo（或其他）命令，写到那个临时的文件里面，有什么办法解决呢？
最好不要是下面这样的哦
echo strComputer = ".">1.vbs
echo Set objWMIService = GetObject("winmgmts:" _ >>1.vbs
。。。

有没有一次性输出的方法啊？
例如
echo strComputer = "."
         Set objWMIService = GetObject("winmgmts:" _
         。。。
         >1.vbs

急等，请指教。
收藏 分享

mooninclouds

Rank: 1

帖子
15 
积分
15 
技术
0  
捐助
0  
注册时间
2010-12-1 
2楼
发表于 2010-12-7 18:33 | 只看该作者
请帮帮忙忙吧

TOP

hanyeguxing

Rank: 8Rank: 8

帖子
1739 
积分
4955 
技术
255  
捐助
0  
注册时间
2009-6-11 
3楼
发表于 2010-12-7 18:34 | 只看该作者
为什么要用 echo 呢？
  1. @echo off

  2. more +4<"%0">1.vbs

  3. exit

  4. ::下面为要输出内容的原文

  5. 1

  6. 2

  7. 3
复制代码
注意more +后的数字，要根据实际情况修改
寒夜孤星：在没有说明的情况下，本人所有代码均运行在 XP SP3 下 （有问题请发贴，QQ临时会话已关闭）

TOP

sybnwork

Rank: 1

帖子
3 
积分
25 
技术
0  
捐助
0  
注册时间
2010-9-29 
4楼
发表于 2010-12-7 18:52 | 只看该作者
有好几种办法的。
方案1：括号
（echo strComputer = "."
echo Set objWMIService = GetObject("winmgmts:" _
echo 。。。）>1.vbs
方案2：转义(需要特殊的文本编辑器才成，如edit)
echo strComputer = "." ^
Set objWMIService = GetObject("winmgmts:" _  ^
。。。>1.vbs
方案3：预处理
set a=strComputer = "."￥Set objWMIService = GetObject("winmgmts:" _￥。。。
echo %a:￥=&echo % >1.vbs
方案4：16进制（推荐，无视任何CMD特殊字符）
使用COM2DEBUG将预先写好的VBS文件转换为一段代码（内含VBS的16进制值）
在CMD内执行这段代码自动生成原VBS文件
（优点：源文件是exe也能还原出来的）（缺点：生成代码翻倍，源文件必须小于2KB，若大于2KB改用EXE2debug）

COM2DEBUG为是SYXQ.COM定制的打包工具，我自己写的需要的话找我QQ：354324773
-----------------------------------------------------------------------------------------
以下是COM2DEBUG，将生成的CMD文件代码复制到你的代码的合适位置即可
  1.  

  2. @echo off&SETLOCAL ENABLEDELAYEDEXPANSION&color 3e&(CHCP 437 &GRAFTABL 936)>NUL

  3. (echo.q)|DEBUG>NUL

  4. title SYBN DW16  任意文件 转换至 CMD代码(DW方式输出DENUG) V0.31

  5. echo ╔━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━╗

  6. echo ┃  SYBN DW16  任意文件 转换至 CMD代码(DW方式输出DENUG) V0.3  ┃

  7. echo ╟──────────────────────────────╢

  8. echo ┃支持任意小于2.5KB(小于2500字节)的文件,原文件名要符合8.3规则 ┃

  9. echo ┃转换后,会生成一个cmd脚本. 该脚本执行后,自动会生成原来的文件 ┃

  10. echo ┃本脚本使用DW格式输出,相比DB格式节约大量代码,且只生成4行脚本 ┃

  11. echo ┃本脚本及生成脚本不支持DOS下运行,如有特殊需要请给我的QQ留言  ┃

  12. echo ┃[SYBN] QQ:354324773 2010-3-31       最初用于转换生成SYBC.COM┃

  13. echo ╚━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━╝

  14. :1

  15. ::获取文件

  16. set p=SYBC.COM

  17. set /p p=请输入要转换的文件名(如:SYBC.COM)?

  18. ::验证文件

  19. if not exist %p% echo 文件不存在.&&goto :1

  20. set p2=%P:"=%

  21. if "%p2:~-4,4%" == ".exe" set YS=1

  22. set p2=%p:~0,-1%_

  23. ren %p% %p2%

  24. set /p a=转换中...<NUL

  25. ::删除临时文件

  26. if exist debugtmp.txt del debugtmp.txt

  27. if exist debugtmp2.txt del debugtmp2.txt

  28. ::内存清零--------载入文件----------获取16进制数据----------获取文件大小---退出----传递给DEBUG-返回数据到debugtmp.txt文件

  29. (echo.f 100 ffff 00 &echo.n %p2%&echo.l&echo.d100 D00&echo.rcx&echo.&echo.q)|debug >debugtmp.txt

  30. ren %P2% %p%

  31. ::提取debugtmp.txt中的有效数据到debugtmp2.txt

  32. for /f "delims=- tokens=1,*" %%a in (debugtmp.txt) do if not "%%b" == "" echo %%a %%b >>debugtmp2.txt

  33. ::提取debugtmp.txt中的文件长度数据到变量RCX(4位16进制)

  34. for /f "tokens=1,*" %%a in (debugtmp.txt) do if "%%a" == "CX" set RCX=%%b

  35. ::提取debugtmp2.txt中的数据转换为DW格式,保存到变量c,用`号分隔行

  36. for /f "tokens=2-17" %%a in (debugtmp2.txt) do (

  37. if "%%b%%a %%d%%c %%f%%e %%h%%g %%j%%i %%l%%k %%n%%m %%p%%o" == "0000 0000 0000 0000 0000 0000 0000 0000" goto :1.1

  38. set c=!c!`%%b%%a %%d%%c %%f%%e %%h%%g %%j%%i %%l%%k %%n%%m %%p%%o

  39. )

  40. :1.1

  41. set c=%c%``

  42. ::压缩数据,去除16进制开头的0

  43. set c=%c: 0= %

  44. set c=%c: 0= %

  45. set c=%c: 0= %

  46. set c=%c:`0=`%

  47. set c=%c:`0=`%

  48. set c=%c:`0=`%

  49. :2

  50. goto :3

  51. ::压缩数据,去除无意义的数据结尾

  52. set c=%c: 0``=``%

  53. set c=%c: 0``=``%

  54. set c=%c: 0``=``%

  55. set c=%c: 0``=``%

  56. set c=%c: 0``=``%

  57. set c=%c: 0``=``%

  58. set c=%c: 0``=``%

  59. :3

  60. ::生成目标脚本

  61. echo @echo off^&SETLOCAL ENABLEDELAYEDEXPANSION^&(CHCP 437^&GRAFTABL 936)^>NUL>%p%.cmd

  62. echo SET SYBCOM=A100`%c%>>%p%.cmd

  63. echo SET V=`RCX`%RCX%`N %p%`W`Q>>%p%.cmd

  64. echo (ECHO.f100 ffff 00`^&echo.%%SYBCOM:`=^&ECHO.DW %%^&ECHO.%%V:`=^&ECHO.%%)^|DEBUG^>NUL>>%p%.cmd

  65. if "%YS%" == "1" echo REN %P2% %p%>>%p%.cmd>>%p%.cmd

  66. ::显示完成信息

  67. echo 转完成.  [文件大小:%RCX%H]  [文件名:%P%.cmd]

  68. pause>NUL
复制代码

[ 本帖最后由 sybnwork 于 2010-12-7 18:54 编辑 ]

TOP

mooninclouds

Rank: 1

帖子
15 
积分
15 
技术
0  
捐助
0  
注册时间
2010-12-1 
5楼
发表于 2010-12-7 20:36 | 只看该作者
原帖由 hanyeguxing 于 2010-12-7 18:34 发表
为什么要用 echo 呢？@echo off
more +41.vbs
exit
::下面为要输出内容的原文
1
2
3注意more +后的数字，要根据实际情况修改



试过了你的这个方法，在单独的脚本里面确实可以用，但是我是想把这个输出文件作为一个单独的函数，当使用call是，%0就被替换成当前函数的名字了。
这个问题有没有什么办法解决啊？

TOP

mooninclouds

Rank: 1

帖子
15 
积分
15 
技术
0  
捐助
0  
注册时间
2010-12-1 
6楼
发表于 2010-12-7 20:40 | 只看该作者
@echo off
call :echo_vbs
goto :EOF

：echo_vbs
more +4<"%0">1.vbs
exit
::下面为要输出内容的原文
1
2
3
上面的这个情况，"%0"就会被替换为echo_vbs了

TOP

mooninclouds

Rank: 1

帖子
15 
积分
15 
技术
0  
捐助
0  
注册时间
2010-12-1 
7楼
发表于 2010-12-7 20:42 | 只看该作者
我要写的vbs代码如下，就是想在一个批处理中把这段代码输出到一个临时的VBS文件里面，然后，再在这个批处理文件里面调用这个VBS。
当然输出到VBS的处理最好是在一个单独的函数里面比较好。
  1.  

  2. 'Script File Name: DiskMonitor.vbs

  3. strComputer = "."

  4. Set objWMIService = GetObject("winmgmts:" _

  5.    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

  6. set objRefresher = CreateObject("WbemScripting.SWbemRefresher")

  7. Set colDisks = objRefresher.AddEnum(objWMIService, "Win32_PerfFormattedData_PerfDisk_LogicalDisk").objectSet

  8. If Wscript.Arguments.Count = 0 Then

  9. objRefresher.Refresh

  10. For Each objDisk in colDisks

  11.    Wscript.Echo objDisk.Name & " " & objDisk.DiskReadBytesPerSec & " " & objDisk.DiskWriteBytesPerSec

  12. Next

  13. End If

  14. If Wscript.Arguments.Count = 1 Then

  15. Interval = CInt(Wscript.Arguments(0)) * 1000

  16. Do While True

  17.    objRefresher.Refresh

  18.    Wscript.Echo

  19.    Wscript.Echo "Time: " & " " & Time()

  20.    Wscript.Echo FormatStr("Device:", 15, 0) & FormatStr("tps", 7, 1) & FormatStr("    kB_read/s", 13, 1) & FormatStr("kB_wrtn/s", 13, 1) & FormatStr("Free Space", 13, 1)

  21.    For Each objDisk in colDisks

  22.     Wscript.Echo FormatStr(objDisk.Name, 15, 0) & FormatStr(objDisk.DiskTransfersPerSec, 7, 1) & FormatStr(objDisk.DiskReadBytesPerSec, 13, 1) & FormatStr(objDisk.DiskWriteBytesPerSec, 13, 1) & FormatStr(objDisk.PercentFreeSpace & "%", 13, 1)

  23.    Next

  24.    Wscript.Sleep Interval

  25. Loop

  26. End If

  27. If Wscript.Arguments.Count = 2 Then

  28. i = 0

  29. Interval = CInt(Wscript.Arguments(0)) * 1000

  30. Count = CInt(Wscript.Arguments(1))

  31. Do While i < Count

  32.    objRefresher.Refresh

  33.    Wscript.Echo

  34.    Wscript.Echo "Time: " & " " & Time()

  35.    Wscript.Echo FormatStr("Device:", 15, 0) & FormatStr("tps", 7, 1) & FormatStr("    kB_read/s", 13, 1) & FormatStr("kB_wrtn/s", 13, 1) & FormatStr("Free Space", 13, 1)

  36.    For Each objDisk in colDisks

  37.     Wscript.Echo FormatStr(objDisk.Name, 15, 0) & FormatStr(objDisk.DiskTransfersPerSec, 7, 1) & FormatStr(objDisk.DiskReadBytesPerSec, 13, 1) & FormatStr(objDisk.DiskWriteBytesPerSec, 13, 1) & FormatStr(objDisk.PercentFreeSpace & "%", 13, 1)

  38.    Next

  39.    Wscript.Sleep Interval

  40.    i = i + 1

  41. Loop

  42. End If

  43. Function FormatStr(str, tLen, direction)

  44. sLen = Len(str)

  45. fStr = ""

  46. num = tLen - sLen

  47. j = 0

  48. Do While j < num

  49.    fStr = fStr & " "

  50.    j = j + 1

  51. Loop

  52. If direction = 1 Then

  53.    fStr = fStr & str

  54. Else

  55.    fStr = str & fStr

  56. End If

  57. FormatStr = fStr

  58. End Function
复制代码

[ 本帖最后由 mooninclouds 于 2010-12-7 20:44 编辑 ]

TOP

hanyeguxing

Rank: 8Rank: 8

帖子
1739 
积分
4955 
技术
255  
捐助
0  
注册时间
2009-6-11 
8楼
发表于 2010-12-7 20:55 | 只看该作者 
  1. @echo off

  2. more +5<"%0">hanye.vbs

  3. cscript //nologo hanye.vbs

  4. del hanye.vbs

  5. exit

  6. 'Script File Name: DiskMonitor.vbs

  7. strComputer = "."

  8. Set objWMIService = GetObject("winmgmts:" _

  9.    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

  10. set objRefresher = CreateObject("WbemScripting.SWbemRefresher")

  11. Set colDisks = objRefresher.AddEnum(objWMIService, "Win32_PerfFormattedData_PerfDisk_LogicalDisk").objectSet

  12. If Wscript.Arguments.Count = 0 Then

  13. objRefresher.Refresh

  14. For Each objDisk in colDisks

  15.    Wscript.Echo objDisk.Name & " " & objDisk.DiskReadBytesPerSec & " " & objDisk.DiskWriteBytesPerSec

  16. Next

  17. End If

  18. If Wscript.Arguments.Count = 1 Then

  19. Interval = CInt(Wscript.Arguments(0)) * 1000

  20. Do While True

  21.    objRefresher.Refresh

  22.    Wscript.Echo

  23.    Wscript.Echo "Time: " & " " & Time()

  24.    Wscript.Echo FormatStr("Device:", 15, 0) & FormatStr("tps", 7, 1) & FormatStr("    kB_read/s", 13, 1) & FormatStr("kB_wrtn/s", 13, 1) & FormatStr("Free Space", 13, 1)

  25.    For Each objDisk in colDisks

  26.     Wscript.Echo FormatStr(objDisk.Name, 15, 0) & FormatStr(objDisk.DiskTransfersPerSec, 7, 1) & FormatStr(objDisk.DiskReadBytesPerSec, 13, 1) & FormatStr(objDisk.DiskWriteBytesPerSec, 13, 1) & FormatStr(objDisk.PercentFreeSpace & "%", 13, 1)

  27.    Next

  28.    Wscript.Sleep Interval

  29. Loop

  30. End If

  31. If Wscript.Arguments.Count = 2 Then

  32. i = 0

  33. Interval = CInt(Wscript.Arguments(0)) * 1000

  34. Count = CInt(Wscript.Arguments(1))

  35. Do While i < Count

  36.    objRefresher.Refresh

  37.    Wscript.Echo

  38.    Wscript.Echo "Time: " & " " & Time()

  39.    Wscript.Echo FormatStr("Device:", 15, 0) & FormatStr("tps", 7, 1) & FormatStr("    kB_read/s", 13, 1) & FormatStr("kB_wrtn/s", 13, 1) & FormatStr("Free Space", 13, 1)

  40.    For Each objDisk in colDisks

  41.     Wscript.Echo FormatStr(objDisk.Name, 15, 0) & FormatStr(objDisk.DiskTransfersPerSec, 7, 1) & FormatStr(objDisk.DiskReadBytesPerSec, 13, 1) & FormatStr(objDisk.DiskWriteBytesPerSec, 13, 1) & FormatStr(objDisk.PercentFreeSpace & "%", 13, 1)

  42.    Next

  43.    Wscript.Sleep Interval

  44.    i = i + 1

  45. Loop

  46. End If

  47. Function FormatStr(str, tLen, direction)

  48. sLen = Len(str)

  49. fStr = ""

  50. num = tLen - sLen

  51. j = 0

  52. Do While j < num

  53.    fStr = fStr & " "

  54.    j = j + 1

  55. Loop

  56. If direction = 1 Then

  57.    fStr = fStr & str

  58. Else

  59.    fStr = str & fStr

  60. End If

  61. FormatStr = fStr

  62. End Function
复制代码
寒夜孤星：在没有说明的情况下，本人所有代码均运行在 XP SP3 下 （有问题请发贴，QQ临时会话已关闭）

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14811 
积分
45989 
技术
848  
捐助
745  
注册时间
2008-6-9 
9楼
发表于 2010-12-7 21:56 | 只看该作者

回复 7楼 的帖子

请把完整需求更新到顶楼
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表