批处理或vbs整理文本
想用批处理整理TXT的文本文档。例如:文档的内容是一段文字:2010年二月十号,我坐上了火车到了大连。我的家乡在吉林省,之所以来大连,学习不好嘛,高中上到了高二就学不下去...
想用批处理整理TXT的文本文档。
例如:文档的内容是一段文字:
2010年二月十号,我坐上了火车到了大连。我的家乡在吉林省,之所以来大连,学习不好嘛,高中上到了高二就学不下去了。
种种原因我一笔带过,我来大连学的是计算机专业学校。
怎么整理成一句一句的,一个标点符号另起一行。
整理成像下面这样的格式:
2010年二月十号,
我坐上了火车到了大连。
我的家乡在吉林省,
之所以来大连,
学习不好嘛,
高中上到了高二就学不下去了。
种种原因我一笔带过,
我来大连学的是计算机专业学校。 展开
例如:文档的内容是一段文字:
2010年二月十号,我坐上了火车到了大连。我的家乡在吉林省,之所以来大连,学习不好嘛,高中上到了高二就学不下去了。
种种原因我一笔带过,我来大连学的是计算机专业学校。
怎么整理成一句一句的,一个标点符号另起一行。
整理成像下面这样的格式:
2010年二月十号,
我坐上了火车到了大连。
我的家乡在吉林省,
之所以来大连,
学习不好嘛,
高中上到了高二就学不下去了。
种种原因我一笔带过,
我来大连学的是计算机专业学校。 展开
1个回答
展开全部
vbs:
on error resume next
set fso = createobject("scripting.filesystemobject")
set f = fso.opentextfile("文件.txt",1)
set ff = fso.opentextfile("新文件虚谨.txt",2,true)
abc = array(",孙誉信","。")
do while f.atendofstream <则轮> true
t = f.readline
for each i in abc
t = replace(t,i,i & vbnewline)
next
ff.writeline(t)
loop
on error resume next
set fso = createobject("scripting.filesystemobject")
set f = fso.opentextfile("文件.txt",1)
set ff = fso.opentextfile("新文件虚谨.txt",2,true)
abc = array(",孙誉信","。")
do while f.atendofstream <则轮> true
t = f.readline
for each i in abc
t = replace(t,i,i & vbnewline)
next
ff.writeline(t)
loop
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询