China DOS Union

Please tell me how to filter out all unknown numbers and letters in a text file and save them to a new text. These numbers and letters are interspersed in the document. For example: Xi Xi Ha Ha 12 Dong Dong ajs, Thinking, Today 0D12

Is it to filter out letters and numbers, or to filter out Chinese characters? Please make the problem description more specific for everyone to read.

Maybe the description is not clear enough. It is to filter out all numbers and letters in the document and only leave Chinese characters.

vkill commands, it's a bit troublesome with batch processing.

sed "s/[0-9a-zA-Z]/ /g" life

Simple ones can still be handled (not considering special characters, and the processing of many spaces is not very reasonable)

Using batch processing to handle, simple demonstration code:
@echo off setlocal enabledelayedexpansion for /f "delims=" %%i in (test.txt) do ( call :Check "%%i" OK echo !OK! ) pause>nul :Check Process object Return result set "str=%~1" set str_= for /l %%i in (0 1 1000) do ( set tm_str=!str:~%%i,1! if "!tm_str!"=="" set %2=!str_! & goto :eof if "!tm_str!"==" " set str_=!str_!!tm_str! if !tm_str! GTR Z set str_=!str_!!tm_str! )
Explanation: The content in test.txt is the text content to be processed
Process object, small text, and does not contain special characters (because special characters are not considered here)

```
set fso=createobject("scripting.filesystemobject")
set txt=fso.opentextfile("11.txt")
gettxt=txt.readall
numtxt=len(gettxt)

for i=1 to numtxt
unite=mid(gettxt,i,1)
on error resume next
int(unite)
if err.number=0 then
gettxt=replace(gettxt,unite," ")
end if
if asc(unite)>=65 and asc(unite)<=122 then
if asc(unite)<91 or asc(unite)>96 then
gettxt=replace(gettxt,unite," ")
end if
end if

next
msgbox gettxt,,"Filter"
set newtxt=fso.createtextfile("22.txt")
newtxt.write gettxt
'VBS version!
'11.txt is the file to be filtered, please modify it yourself, 22.txt is the saved text, you can not change it.
```

Thanks to everyone for your help. The trouble is that there are many spaces in the text I need to process, and if numbers or letters are alone in a line, there will be problems after filtering.

Also, the prompt "ECHO is off" appears. What does this mean?
Please help everyone! Thank you!

```
@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in (test.txt) do (
set str=%%i
set "str=!str: =!"
for /l %%j in (0,1,9) do (
if not "!str!"=="" set str=!str:%%j=!
)
for %%k 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 (
if not "!str!"=="" set str=!str:%%k=!
)

if not "!str!"=="" (
>>New.txt echo !str!
) else (
echo.
)
)

notepad New.txt
```

[ Last edited by huzixuan on 2007-4-29 at 06:14 AM ]

The answer from the person above can solve the problem of numbers or letters being alone in a line, but there is still a problem if there are spaces between numbers or letters!

Also, can you answer the question about the "ECHO is off" issue? Thank you very much!

The reason for the appearance of "ECHO is off" is that the value after the echo command is empty.

First, replace all spaces in the variable, then replace numbers and letters in sequence, and finally read out the variable. The code on floor 10 has been modified.

I don't know which one is more efficient.
set fso = CreateObject("Scripting.FileSystemObject") set rfile = fso.OpenTextFile("test.txt",1) set wfile = fso.CreateTextFile("Wfile.txt") str = rfile.readall for k = 0 to 9 str = replace(str,k," ") ' Replace numbers 0 - 9 with empty next for i = 65 to 90 str = replace(str,chr(i)," ") ' Replace lowercase letters a-z with empty next FOR J = 97 TO 122 STR = REPLACE(STR,CHR(J)," ") ' Replace uppercase letters A-Z with empty NEXT wfile.write str wfile.close

Thanks to huzixuan, I just solved the problem based on your original code, which is the same as your idea!

Also, thank you to everyone else for your help. I just started to get in touch with batch processing these days, but I really learned a lot here. Thank you all!

And another question, what does "echo." stand for?