在C盘的123.txt里搜索行“姓名:林佩里”,然后删除本行和本行的下面6行怎么写???
超高难度,,高手帮忙呀》!!
在C盘的123.txt里搜索行“姓名:林佩里”,然后删除本行和本行的下面6行怎么写???
超高难度,,高手帮忙呀》!!
笨方法。
首先打开文件,用readline读取一行,然后判断这行里面是不是有符合的关键字,如果有的话删除这一行和下面6行。
你试试下面这个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