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

[文本处理] 批处理处理如何只把文本中的数字保留

[复制链接]
发表于 2012-9-15 23:50:40 | 显示全部楼层 |阅读模式
文本中有多种符号 例如a.txt内容如下
-----------------------------------------------
2012年,123类,中文542387,[dian]。
-----------------------------------------------

如何用批处理 处理文本a.txt 只保留数字,其余的字符去去掉

处理后a.txt内容如下
----------------------
2012123542387
-----------------------

请问能不能实现以上想法

谢谢
发表于 2012-9-16 10:13:55 | 显示全部楼层
练习。。。
  1. @echo off
  2. more +4 "%~0">$.vbs
  3. cscript /Nologo $.vbs
  4. del $.vbs&goto :eof
  5. Set FSO = CreateObject("Scripting.FileSysTemObject")
  6. Set File = FSO.OpenTextFile("a.txt",1)
  7. Do Until File.AtEndOfStream
  8.    strLine = File.ReadLine
  9.    Set Re = new RegExp
  10.    Re.Pattern = "\D"
  11.    Re.Global = True
  12.    strOut = strOut & Re.Replace(strLine,"") & vbCrLf
  13. Loop
  14. FSO.CreateTextFile("b.txt",true).Write strOut
复制代码

评分

参与人数 1技术 +1 收起 理由
光能 + 1 很好 谢谢

查看全部评分

发表于 2012-9-16 14:12:01 | 显示全部楼层
学一下 powerbat 的办法~
  1. @set @n=0//&cscript /nologo /e:jscript %0<"要操作的文件">"操作后的文件"&pause&Exit
  2. var str = WScript.StdIn.ReadAll();WScript.Echo(str.replace(/\D/g,""));
复制代码

评分

参与人数 1技术 +1 收起 理由
光能 + 1 很好 谢谢

查看全部评分

 楼主| 发表于 2012-9-18 23:36:33 | 显示全部楼层
回复 3# CrLf

以上二代码都很好地完成 只保留数字  非常感谢以上二位大师
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-19 15:29 , Processed in 0.087026 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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