设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 批处理去除文本中所有的汉字
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 36204|回复: 14

[文本处理] 批处理去除文本中所有的汉字

[复制链接]
batman
发表于 2012-3-27 08:03:32 | 显示全部楼层 |阅读模式
　　因昨天群里有位朋友问到这个问题，在帮他解决后感觉大家平常应该会经常遇到这样的问题，所以将我的两段代码给出，大家也可以跟帖给出自己的方法：
１、批处理方法，个人认为还是逐字符保险一些，只是遇到大文本效率会有问题（另外大家想一想为什么代码中的变量延迟要如此处理）：

  2. @echo off
  3. cd.>b.txt
  4. for /f "delims=" %%a in (a.txt) do (
  5.   set "str=%%a"
  6.   setlocal enabledelayedexpansion
  7.   call :lp
  8.   endlocal
  9. )
  10. echo ok
  11. pause>nul&goto :eof
  12. :lp
  13. if /i "!str:~,1!" leq "z" set "var=!var!!str:~,1!"
  14. set "str=!str:~1!"
  15. if defined str goto lp
  16. >>b.txt echo.!var!&set "var="
复制代码
２、vbs方法，顺便说一下查了一下unicode编码表居然\u4e00就是“一”

  2. Dim FSO, vbStr
  3. Set FSO = CreateObject("Scripting.FileSystemObject")
  4. vbStr = FSO.OpenTextFile("a.txt").ReadAll()
  5. FSO.OpenTextFile("b.txt", 2, True).Write RegEx(vbStr)
  6. MsgBox "ok"
  7. Set FSO = Nothing

  9. Function RegEx(Str)
  10.   Set RegEx = New RegExp
  11.   RegEx.IgnoreCase = True
  12.   RegEx.Global = True
  13.   RegEx.Pattern = "[\u4e00-\u9fa5]*([^\u4e00-\u9fa5]*)[\u4e00-\u9fa5]*"
  14.   RegEx = RegEx.Replace(str, "$1")
  15. End Function
复制代码
回复

举报

batman
 楼主| 发表于 2012-3-27 08:31:23 | 显示全部楼层
同时，大家可以想一想如何去除文本中所有的英文字母（这个比较容易些）。。。
回复

举报

cjiabing
发表于 2012-3-27 10:08:58 | 显示全部楼层
简单点用findstr，不过其他特殊符号要考虑
回复

举报

batman
 楼主| 发表于 2012-3-27 10:12:10 | 显示全部楼层
回复 3# cjiabing
如果是汉字和代码混杂的行findstr如何能做到？
回复

举报

plp626
发表于 2012-3-27 13:23:38 | 显示全部楼层
先给给汉字一个确切的定义。。。http://baike.baidu.com/view/25421.htm
思路hex.cmd+ascmap.cmd
回复

举报

caruko
发表于 2012-3-27 14:56:34 | 显示全部楼层
基本上只能逐字判断了...
回复

举报

find
发表于 2012-3-27 15:25:12 | 显示全部楼层
版主V5
回复

举报

冷玉公子
发表于 2012-3-27 21:06:47 | 显示全部楼层
本帖最后由 冷玉公子 于 2012-3-27 23:06 编辑
  1. @Echo Off&SetLocal EnableDelayedExpansion

  3. For /F %%A In (Log.txt) Do (
  4.         Set "Value=0"
  5.         Echo 原字符：        %%A
  6.         Call :_On %%A
  7.         Echo 编译后：        !Var!
  8.         Set "Var="
  9. )
  10. Pause>Nul
  11. Exit

  13. :_On
  14. Set "Con=%1"
  15. Set "Var_%Value%=!Con:~%Value%,1!
  16. If /i "!Var_%Value%!" Leq "Z" Set "Var=!Var!!Var_%Value%!"
  17. If Not Defined Var_%Value% Goto :Eof
  18. Set /A "Value+=1"
  19. Goto _On
复制代码
有个问题就是逐字读取，碰到特殊字符就不行了。
例如：!@#$%^&*()
回复

举报

CrLf
发表于 2012-3-28 00:01:31 | 显示全部楼层
  1. cmd /u/q/c (for /f "delims=" %%a in (a.txt)do echo ;%%a)|more|findstr /vbc:"[^ -Z]" ";"
复制代码
玩一下，findstr 的思路，手机码字未验证
回复

举报

batman
 楼主| 发表于 2012-3-28 07:34:07 | 显示全部楼层
回复 9# 冷玉公子
兄弟测试了我一楼的代码不？
还有我在括号中写上要你们思考为什么变量延迟处理要如此处理的问题，你真正思考了？
回复

举报

冷玉公子
发表于 2012-3-28 11:20:50 | 显示全部楼层
回复 11# batman


    说实在的写上面的那段代码的时候只看问题，没有看版主的代码和提问啊。
    粗心的俺再次犯错了，今天上午仔细回味了下。看看挽救不？

如果不考虑特殊字符，可以这样用。
这次绝对是看了楼主的代码，总结了自己的错误啊。
  1. @Echo Off
  2. For /F %%A In (Log.txt) Do (
  3.         Echo 原字符：        %%A
  4.         Call :_On %%A
  5. )
  6. Pause>Nul&Exit
  7. :_On
  8. Set "Con=%1"
  9. :_On_Two
  10. If /i "%Con:~,1%" Leq "Z" Set "Var=%Var%%Con:~,1%"
  11. Set "Con=%Con:~1%"
  12. If Not Defined Con Echo 编译后：        %Var%&Set "Var="&Goto :Eof
  13. Goto _On_Two
复制代码
这个是处理特殊字符，跟楼主的方法一样，只是想表明俺看了，俺理解了。
  1. @Echo Off
  2. For /F %%A In (Log.txt) Do (
  3.         Echo 原字符：        %%A
  4.                 Set "Con=%%A"
  5.                 SetLocal EnableDelayedExpansion
  6.         Call :_On
  7.                 Endlocal
  8. )
  9. Pause>Nul&Exit
  10. :_On
  11. If /i "!Con:~,1!" Leq "Z" Set "Var=!Var!!Con:~,1!"
  12. Set "Con=!Con:~1!"
  13. If Not Defined Con Echo 编译后：        !Var!&Set "Var="&Goto :Eof
  14. Goto _On
复制代码
其实没有深彻的去理解这个原因问题，只是我了解如果在开启《变量延迟》的情况给一个变量赋值的话，某些特殊字符会被屏蔽掉例如：!^
楼主的方法应该是在没有开始《变量延迟》的情况给变量赋值，然后打开《变量延迟》是为了在For里可以使用或者说是读取到这个变量。
下面有个小例子
  1. @Echo Off
  2. Set "Var=N你H好~!@#$%^&*()a"
  3. Echo %Var%
  4. SetLocal EnableDelayedExpansion
  5. Set "Var=N你H好~!@#$%^&*()a"
  6. Echo !Var!
  7. Pause>Nul
复制代码
希望能挽救昨天所犯下的错误啊。

评分

参与人数 1PB +5 收起 理由
batman + 5 有进步就好

查看全部评分

回复

举报

apang
发表于 2012-3-28 13:24:11 | 显示全部楼层
本帖最后由 apang 于 2012-3-28 15:31 编辑

去除文档中的英文字母
  1. @echo off
  2. for /f "delims=" %%a in (a.txt) do (
  3.    set "str=%%a"
  4.    setlocal enabledelayedexpansion
  5.    for %%b in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
  6.       if defined str set "str=!str:%%b=!"
  7.    )
  8.    echo,!str!
  9.    endlocal
  10. )
  11. pause
复制代码

评分

参与人数 1PB +5 收起 理由
batman + 5 变量延迟处理得正确

查看全部评分

回复

举报

xss
发表于 2012-3-30 17:41:17 | 显示全部楼层
强烈要求楼主解释一下，为什么变量延迟要这样用，这样用的目的是什么，有什么特殊作用？我菜鸟，实在弄不明白。拜托楼主或其它高手给详细讲解一下，不胜感激！
回复

举报

cjiabing
发表于 2012-4-3 12:47:47 | 显示全部楼层
本帖最后由 cjiabing 于 2012-4-3 12:50 编辑

回复 14# xss


    比较下：

  2. @echo off
  3. for /f "tokens=*" %%a in ("it show : i love you !") do (
  4.     set "str=%%a"
  5.     setlocal enabledelayedexpansion
  6.     echo;!str!
  7.     endlocal
  8. )
  9. pause
  10. ::可以对叹号等符号支持。
复制代码


  2. @echo off&setlocal enabledelayedexpansion
  3. for /f "tokens=*" %%a in ("it show : "i love you !"") do (
  4.     set "str=%%a"
  5.     echo;!str!
  6. )
  7. pause
  8. ::叹号!会自动消失
复制代码
回复

举报

find
发表于 2012-4-3 13:05:22 | 显示全部楼层
回复 14# xss


http://www.bathome.net/thread-2899-1-1.html
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-19 01:03 , Processed in 0.023761 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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