Board logo

标题: [文件操作] 批处理代码一个字符替换两行代码 [打印本页]
作者: wangxiulin    时间: 2012-7-19 10:38     标题: 批处理代码一个字符替换两行代码

本帖最后由 wangxiulin 于 2012-7-19 10:47 编辑 
  1. @echo off

  2. (For /f "delims=" %%i in (a.txt) do (Set str=%%i

  3. SetLocal EnableDelayedExpansion

  4. Set str=!Str:MoveTo=SetCursorPos!

  5. Set str=!Str:RightDown 1=mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, !

  6. echo !str!

  7. EndLocal

  8. ))>1.txt

  9. start 1.txt

  10. pause>nul
复制代码
这个是讲MoveTo 替换 SetCursorPos
RightDown 1 替换  mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0,

怎么让 RightDown 1 替换
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0,  0
mouse_event11111 MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0

让他替换成这两句。怎么替换？
作者: 乱码    时间: 2012-7-19 10:51

Set fso = CreateObject("Scripting.FileSystemObject")
word = fso.OpenTextFile("a.txt").ReadAll
word = Replace(word,"MoveTo","SetCursorPos")
word = Replace(word,"RightDown 1","mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0" & vbCrLf & "mouse_event11111 MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0")
fso.OpenTextFile("ok.txt",2,1).Write word
MsgBox "OK"


我只会VBS的，你试试、、
作者: wangxiulin    时间: 2012-7-19 10:56

回复 2# 乱码


    不管bat 还是 vbs 能用就行..测试可以..谢谢乱码了..



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2