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

Rank: 1

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

[文本处理] 求一个记事本数字替换的批处理

大家好！有问题请教！求一个批处理！
在记事本中阿拉伯数字 超过9999的一律替换为9999！
收藏 分享

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14862 
积分
46058 
技术
854  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 2013-11-18 18:47 | 只看该作者
请给一段文本内容以便测试代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

clq168

Rank: 1

帖子
12 
积分
25 
技术
0  
捐助
0  
注册时间
2013-11-18 
3楼
发表于 2013-11-19 08:05 | 只看该作者

求一个记事本数字替换的批处理

本帖最后由 clq168 于 2013-11-19 15:31 编辑

跪求一个批处理！
在记事本中阿拉伯数字 超过9999的一律替换为9999！
请看附件

TOP

clq168

Rank: 1

帖子
12 
积分
25 
技术
0  
捐助
0  
注册时间
2013-11-18 
4楼
发表于 2013-11-19 08:09 | 只看该作者
上面是测试代码！比如I187.595 J10228.147
I 和j   后面的数字 不论正负超过9999机床就会不读让后停机报警，请高手帮忙把正负超过9999的I和J后面的数字全部替换为9999
感激不尽!
谢谢！

TOP

clq168

Rank: 1

帖子
12 
积分
25 
技术
0  
捐助
0  
注册时间
2013-11-18 
5楼
发表于 2013-11-19 08:11 | 只看该作者
超过9999的I和J后面的数字全部替换为9999
感激不尽!
谢谢！

TOP

DAIC

Rank: 8Rank: 8

帖子
2874 
积分
7021 
技术
336  
捐助
0  
注册时间
2011-6-2 
6楼
发表于 2013-11-19 08:25 | 只看该作者
回复 4# clq168


    数字里面的点是表示小数点吗？187.595没有超过9999吧？

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
7楼
发表于 2013-11-19 11:31 | 只看该作者
本帖最后由 apang 于 2013-11-19 16:18 编辑 
  1. Set fso = CreateObject("Scripting.FileSystemObject")

  2. text = fso.OpenTextFile("a.nc",1).ReadAll

  3. 

  4. Set re = New RegExp

  5. re.Pattern = "([IJ](?:|\-))([1-9]\d{4,}(?:|\.\d*)|9999\.\d+)(\s)"

  6. re.IgnoreCase = True

  7. re.Global = True

  8. text = re.Replace(text,"$19999$3")

  9. fso.OpenTextFile("b.txt",2,True).Write text

  10. 

  11. MsgBox "OK"
复制代码
1

评分人数

TOP

clq168

Rank: 1

帖子
12 
积分
25 
技术
0  
捐助
0  
注册时间
2013-11-18 
8楼
发表于 2013-11-19 14:54 | 只看该作者
谢谢楼上的高手！可是我用不起来！
冒昧的请求一下！如果您有空请看一下我的附件里名为a的文件（其实就是一段加工中心的程序代码），里面有超过9999的数字！
因为人工找经常会漏掉！反复操作比较浪费时间！

在记事本中阿拉伯数字 超过9999的一律替换为9999
及时是9999.01也要替换为9999整数

TOP

clq168

Rank: 1

帖子
12 
积分
25 
技术
0  
捐助
0  
注册时间
2013-11-18 
9楼
发表于 2013-11-19 15:25 | 只看该作者
补充一下！比如I187.595 J10228.147
I 和J 后面的数字 超过9999的数字全部替换为9999的整数！

感激不尽!
谢谢！

TOP

clq168

Rank: 1

帖子
12 
积分
25 
技术
0  
捐助
0  
注册时间
2013-11-18 
10楼
发表于 2013-11-19 15:28 | 只看该作者
补上图片

TOP

DAIC

Rank: 8Rank: 8

帖子
2874 
积分
7021 
技术
336  
捐助
0  
注册时间
2011-6-2 
11楼
发表于 2013-11-19 16:03 | 只看该作者
回复 8# clq168


    7楼的代码你是怎样执行的？

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
12楼
发表于 2013-11-19 16:21 | 只看该作者
回复 10# clq168


    哦，没考虑9999.01的情况，以修改
代码保存为test.vbs，试试

TOP

clq168

Rank: 1

帖子
12 
积分
25 
技术
0  
捐助
0  
注册时间
2013-11-18 
13楼
发表于 2013-11-19 21:06 | 只看该作者
非常感谢！非常好用！果然高手在民间！ :victory:

TOP

返回列表