如何用vbs或者批处理删除指定字符前的行

zinet · 发表于 2013-3-31 22:20:45

有a.tx内容如下：

aaaaa ok ""
bbbbb ok system
ccccc ok ok
ddddd ok okok

...................

我想用vbs或者批处理把他整理成 b.txt 内容如下：

""
system
ok
okok

.....................

即删除第一个ok前（包括第一个ok）所有字符只保留第一个ok后面的字符

CrLf · 发表于 2013-3-31 22:51:02

@echo off
for /f "delims=" %%a in (a.txt) do (
set "str=%%a"
setlocal enabledelayedexpansion
echo;!str:*ok =!
endlocal
)
pause

复制代码

Batcher · 发表于 2013-3-31 23:14:43

gawk "{n=index($0,"ok")+3;print substr($0,n)}" a.txt > b.txt

复制代码

zinet · 发表于 2013-4-1 07:53:13

回复 2# CrLf

嗯：感谢了！！！！！测试成功，但一旦a.txt文件大了，用批处理处理有的费劲，期待vbs能改善速度

zinet · 发表于 2013-4-1 07:57:20

回复 3# Batcher

貌似不怎么成功，处理后的b.txt内容变成：
aaa ok ""
bbb ok system
ccc ok ok
ddd ok okok

还有gawk是第三方工具要下载才行，不过处理速度蛮快的

Batcher · 发表于 2013-4-1 10:08:39

回复 5# zinet

我自己测试的时候没有发现问题。请把你的a.txt压缩一下传上来看看。

apang · 发表于 2013-4-1 10:34:30

Set fso = CreateObject("Scripting.FileSystemObject")
text = fso.OpenTextFile("a.txt",1).ReadAll
With New RegExp
.Pattern = "(.*?ok )(.*)"
.IgnoreCase = True
.Global = True
text = .Replace(text,"$2")
End With
fso.OpenTextFile("b.txt",2,True).Write text

复制代码

zinet · 发表于 2013-4-1 12:51:18

回复 3# Batcher

刚才我重新下载了一个gawk 测试没问题，早上测试错误可能是我下错了gawk，在这里我说声抱歉.......谢谢这位大哥

czjt1234 · 发表于 2013-4-1 14:57:53

讨厌正则

zinet · 发表于 2013-4-1 20:24:38

回复 7# apang

vbs果然比批处理快多了

BAT-VBS · 发表于 2013-4-1 20:31:31

回复 9# czjt1234

那你将永远学不会数据处理

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] 如何用vbs或者批处理删除指定字符前的行

浏览过的版块