批处理代码一个字符替换两行代码

wangxiulin · 发表于 2012-7-19 10:38:02

本帖最后由 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:38

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:03

回复 2# 乱码

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

		自动登录	找回密码
密码			注册

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

[文件操作] 批处理代码一个字符替换两行代码