永发信息网

删除外部文本指定内容,求代码??高难度

答案:2  悬赏:0  手机版
解决时间 2021-05-03 12:03
  • 提问者网友:黑米和小志
  • 2021-05-03 00:55

在C盘的123.txt里搜索行“姓名:林佩里”,然后删除本行和本行的下面6行怎么写???

超高难度,,高手帮忙呀》!!

最佳答案
  • 五星知识达人网友:十鸦
  • 2021-05-03 02:31

笨方法。


首先打开文件,用readline读取一行,然后判断这行里面是不是有符合的关键字,如果有的话删除这一行和下面6行。

全部回答
  • 1楼网友:拾荒鲤
  • 2021-05-03 04:00

你试试下面这个VBS的:

Set re = New RegExp

re.Pattern = "姓名:林佩里\r\n(.*\r\n){6}"

re.Global = -1

Set f = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\123.txt")

c = f.ReadAll()

c = re.Replace(c, "")

f.Close()

CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\123.txt", 2).Write c

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯