[已解决]批处理怎样提取带汉字的行？

jzsgyml

hnzzxf
将来时的将来时
Yahoho点点
番茄酱林林
不久的忧郁
helei30
chl6595303
zenghuanheng
青萝卜
138112
神经病马甲2010
考的毛也焦了的猴
chrischiong
陈沉43晨尘
热衷的ghh旁观者
蝴蝶点点
ivy娃娃321

如上含有名称的文本，需要删除helei30，hnzzxf，138112这类纯字母汉字的，留下 Yahoho点点，神经病马甲2010，青萝卜，有汉字的。

lvsehuaxue

1. 
   
2. findstr "[^a-z0-9]" a.txt
   
3. pause
   

复制代码

mxxcgzxxx

2# lvsehuaxue


符号也会被排除在外，还是计算字节好用，双字节为汉字
试下这个程序。但中文符号也会被认为中文，一行200字，如果想多点字就改FOR/L中的数字，但不要超过3000

1. 
   
2. @echo off
   
3. setlocal enabledelayedexpansion
   
4. for /f  "delims=" %%1 in (a.txt) do (
   
5.            set b=1
   
6.            call :test "%%1"
   
7.            if !b!==2 echo %%1
   
8.            )
   
9. pause>nul
   
10. goto :eof
    
11. 
    
12. :test
    
13. set "var=%~1"
    
14. for /l %%i in (0 1 200) do (
    
15.    set "var_=!var:~%%i,1!"
    
16.    if "!var_!"=="" goto :eof
    
17.    if !var_! gtr Z set b=2& goto:eof
    
18.    )
    
19. goto :eof
    

复制代码

CrLf

1. findstr /rc:"[^ -Z]" a.txt>b.txt

复制代码

jzsgyml

3# mxxcgzxxx


三楼思路很对，但是运行没反应，没有输出文档

CUer

1. sed -n "/[\x21-\x7E][\x80-\xFF]\|[\x80-\xFF][\x21-\x7E]/p" a.txt >b.txt

复制代码

Hello123World

1. findstr   "[^A-Z][^a-z][^0-9]" 1.txt >2.txt

复制代码

Hello123World

4f是什么意思，没有正确输出。

mxxcgzxxx

5# jzsgyml

不好意思是我多写了个空格，第16句要改

1. if !var_! gtr Z set b=2 & goto:eof
   
2. 改成
   
3. if !var_! gtr Z set b=2& goto:eof
   

复制代码

CrLf

8# Hello123World


findstr 的字符顺序里，空格最小，Z是单字符里最大的，其余都是宽字符，所以用 [^ -Z] 这个集合就能找到含有宽字符的行

broly

10# zm900612


注意了，楼主要求的是含有汉字的行，假如我的行为" 。。。。"，这也是宽字节是，但不含有汉字。
我觉得用SED的正则比较合适，或者VBS的正则。如CUer的那个代码。

broly

用VBS写了一个

1. Const ForReading = 1
   
2. Dim re,fso,f,strLine,strOut
   
3. 
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. Set f = fso.OpenTextFile("1.txt", ForReading ,False)   '文本保存在1.TXT
   
6. Set re = New RegExp
   
7. 
   
8. re.Pattern = ".*[\u4e00-\u9fa5]+.*"
   
9. 
   
10. While Not f.AtEndOfLine
    
11.   strLine = f.ReadLine
    
12.   If re.Test(strLine) Then
    
13.     strOut = strOut & strLine & vbCrLf
    
14.   End If
    
15. Wend
    
16. 
    
17. Set f = fso.CreateTextFile("2.txt", True)
    
18. f.Write strOut
    
19. 
    
20. Msgbox "保存为2.txt"
    
21. 
    
22. Set fso = Nothing
    
23. Set f = Nothing
    
24. Set re = Nothing
    
25. 
    

复制代码

jzsgyml

以上均可用，谢谢大家，不同的方法，达到同样的目的！