标题: [文件操作] 批处理代码一个字符替换两行代码 [打印本页]
作者: wangxiulin 时间: 2012-7-19 10:38 标题: 批处理代码一个字符替换两行代码
本帖最后由 wangxiulin 于 2012-7-19 10:47 编辑
- @echo off
- (For /f "delims=" %%i in (a.txt) do (Set str=%%i
- SetLocal EnableDelayedExpansion
- Set str=!Str:MoveTo=SetCursorPos!
- Set str=!Str:RightDown 1=mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, !
- echo !str!
- EndLocal
- ))>1.txt
- start 1.txt
- 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 |