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

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

[复制链接]
发表于 2013-11-18 18:27:38 | 显示全部楼层 |阅读模式
大家好!有问题请教!求一个批处理!
在记事本中阿拉伯数字 超过9999的一律替换为9999!
发表于 2013-11-18 18:47:24 | 显示全部楼层
请给一段文本内容以便测试代码
 楼主| 发表于 2013-11-19 08:05:46 | 显示全部楼层

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

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

跪求一个批处理!
在记事本中阿拉伯数字 超过9999的一律替换为9999!
请看附件
 楼主| 发表于 2013-11-19 08:09:27 | 显示全部楼层
上面是测试代码!比如I187.595 J10228.147
I 和j   后面的数字 不论正负超过9999机床就会不读让后停机报警,请高手帮忙把正负超过9999的I和J后面的数字全部替换为9999
感激不尽!
谢谢!
 楼主| 发表于 2013-11-19 08:11:12 | 显示全部楼层
超过9999的I和J后面的数字全部替换为9999
感激不尽!
谢谢!
发表于 2013-11-19 08:25:25 | 显示全部楼层
回复 4# clq168


    数字里面的点是表示小数点吗?187.595没有超过9999吧?
发表于 2013-11-19 11:31:25 | 显示全部楼层
本帖最后由 apang 于 2013-11-19 16:18 编辑
  1. Set fso = CreateObject("Scripting.FileSystemObject")
  2. text = fso.OpenTextFile("a.nc",1).ReadAll

  3. Set re = New RegExp
  4. re.Pattern = "([IJ](?:|\-))([1-9]\d{4,}(?:|\.\d*)|9999\.\d+)(\s)"
  5. re.IgnoreCase = True
  6. re.Global = True
  7. text = re.Replace(text,"$19999$3")
  8. fso.OpenTextFile("b.txt",2,True).Write text

  9. MsgBox "OK"
复制代码

评分

参与人数 1技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

 楼主| 发表于 2013-11-19 14:54:28 | 显示全部楼层
谢谢楼上的高手!可是我用不起来!
冒昧的请求一下!如果您有空请看一下我的附件里名为a的文件(其实就是一段加工中心的程序代码),里面有超过9999的数字!
因为人工找经常会漏掉!反复操作比较浪费时间!

在记事本中阿拉伯数字 超过9999的一律替换为9999
及时是9999.01也要替换为9999整数
 楼主| 发表于 2013-11-19 15:25:45 | 显示全部楼层
补充一下!比如I187.595 J10228.147
I 和J 后面的数字 超过9999的数字全部替换为9999的整数!

感激不尽!
谢谢!
 楼主| 发表于 2013-11-19 15:28:34 | 显示全部楼层
补上图片
发表于 2013-11-19 16:03:30 | 显示全部楼层
回复 8# clq168


    7楼的代码你是怎样执行的?
发表于 2013-11-19 16:21:12 | 显示全部楼层
回复 10# clq168


    哦,没考虑9999.01的情况,以修改
代码保存为test.vbs,试试
 楼主| 发表于 2013-11-19 21:06:44 | 显示全部楼层
非常感谢!非常好用!果然高手在民间! :victory:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-20 19:54 , Processed in 0.033613 second(s), 18 queries .

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表