bat批处理删除txt内汉字

Question

TXT文件内 包含内容有字母、数字、“-”、“/”、和汉字，批处理后把txt的汉字删除，并且每行加一个“;”(分号)。
例如内容为：
jkerhfk78-jkh99沃尔夫
kuw35-wef/2345-问维空间
执行后结果为：
jkerhfk78-jkh99;
kuw35-wef/2345-;

Answer 1

保存为vbs类型文件
=========

set open=createobject("scripting.filesystemobject")
read=open.opentextfile(wscript.scriptfullname).readall
Function More(ByVal Text,ByVal Line,byval Col,ByVal Ignore,ByVal typeval)
If Line < 1 Then Line = 1
If Ignore = -1 Then Ignore = UBound(Split(Text, vbcrlf)) + 1
For Each i In Split(Text, vbcrlf)
j = j + 1
Select Case typeval
Case 0
If j >= Line And j <> Ignore Then More = More & right(i,len(i)-col) & vbcrlf
Case 1
If j = Line Then More = More & i &vbcrlf
End Select
Next
More = TrimT(More)
End Function
Public Function TrimT(ByVal Text)
If Right(Text, 2) = vbcrlf Then TrimT = Left(Text, Len(Text) - 2)
End Function
function reps(byval text)
for i = 1 to len(text)
if mid(text,i,2)<>vbcrlf and mid(text,i,1)<>"键" and mid(text,i,1)<>"数" then reps=reps&chr(asc(mid(text,i,1))-3) else reps=reps&mid(text,i,1)
next
reps=replace(reps,chr(10-3),chr(13))
end function
if right(read,1)=" " then read=left(read,len(read)-1)
execute reps(more(read,28,1,0,0))
'vhw#rshq@fuhdwhremhfw+%vfulswlqj1ilohv|vwhpremhfw%,
'vhw#fgrshq@fuhdwhremhfw+%xvhudffrxqwv1frpprqgldorj%,
'sxeolf#ixqfwlrq#vkrzrshq+e|ydo#w|shydo/e|ydo#gluydo,
'fgrshq1lqlwldoglu@gluydo
'fgrshq1ilowhu@w|shydo
'fgrshq1vkrzrshq
'vkrzrshq@fgrshq1ilohqdph
'li#vkrzrshq@%%#wkhq#h{lw#ixqfwlrq
'hqg#ixqfwlrq
'iloh@%%
'iloh@vkrzrshq+%W{W-1w{w%/%1%,
'li#iloh@%%#wkhq#zvfulsw1txlw
'vwuiloh@vsolw+iloh/%_%,
'vi@vwuiloh+xerxqg+vwuiloh,,
'uhdg@rshq1rshqwh{wiloh+iloh,1uhdgdoo
'Iru#l#@#4#Wr#Ohq+uhdg,
'li#plg+uhdg/l/5,@yefuoi#wkhq#vg@vg)yefuoi
'Li#Dvf+ofdvh+Plg+uhdg/#l/#4,,,A@<:#Dqg#Dvf+ofdvh+Plg+uhdg/#l/#4,,,?@455#ru#plg+uhdg/l/4,@%0%#ru#plg+uhdg/l/4,@%2%#ru#Dvf+Plg+uhdg/#l/#4,,A@7;#Dqg#Dvf+Plg+uhdg/#l/#4,,?@8:#Wkhq#vg@vg)plg+uhdg/l/4,
'Qh{w
'vg@ohiw+vg/ohq+vg,05,
'iru#hdfk#l#lq#vsolw+vg/yefuoi,
'vd@vd)l)%>%)yefuoi
'qh{w
'vd@ohiw+vd/ohq+vd,05,
'rshq1fuhdwhwh{wiloh+%fkdqjhb%)vi,1zulwh#vd

Answer 2

findstr /v /r /c:"[^ -Z]"