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

Rank: 3Rank: 3

帖子
112 
积分
298 
技术
8  
捐助
0  
注册时间
2010-11-26 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

让他替换成这两句。怎么替换？
收藏 分享

乱码

Rank: 2

帖子
60 
积分
116 
技术
15  
捐助
0  
注册时间
2012-5-16 
2楼
发表于 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的，你试试、、
求老大赐我《精通正则表达式》

TOP

wangxiulin

Rank: 3Rank: 3

帖子
112 
积分
298 
技术
8  
捐助
0  
注册时间
2010-11-26 
3楼
发表于 2012-7-19 10:56 | 只看该作者
回复 2# 乱码


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

TOP

返回列表