求一个批处理,删除TXT文件内的中文汉字和所有类型的标点符号以及空格,换行要求保留。

是客户的联系方式,想要删除文档中的汉字和标点符号,只保留电话号码,求批处理代码。... 是客户的联系方式,想要删除文档中的汉字和标点符号,只保留电话号码,求批处理代码。 展开
 我来答
蔡瑀
2012-03-09 · TA获得超过231个赞
知道小有建树答主
回答量:424
采纳率:0%
帮助的人:331万
展开全部
只保留电话号码?

file="1.txt" '文件路径
set open=createobject("scripting.filesystemobject")
function replacestr(byval text)
j = Text
For Each i In Split(Text, vbCrLf)
For k = 1 To Len(i)
If IsNumeric(Mid(i, k, 1)) = False Then
If Mid(i, k, 1) <> NL And Mid(i, k, 1) <> Space(1) Then j = Replace(j, Mid(i, k, 1), "")
End If
Next
Next
replacestr=j
end function
read=open.opentextfile(file).readall
str=split(trim(replacestr(read)),vbcrlf)
for each i in str
if i<>"" then newstr=newstr&i&vbcrlf
next
newstr=left(newstr,len(newstr)-2)
open.createtextfile("change_"&file).write newstr
'保存为vbs类型文件
sudoku52
2012-03-09 · TA获得超过7万个赞
知道大有可为答主
回答量:1.2万
采纳率:82%
帮助的人:4886万
展开全部
@echo off
(for /f "skip=1 tokens=2 delims=:" %%i in (a.txt) do echo %%i)>b.txt
notepad b.txt
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式