vbs删除文本文件的行的函数


Delete Line Function

复制代码 代码如下:

Function DeleteLine(strFile, strKey, LineNumber, CheckCase)
'DeleteLine Function by TomRiddle 2008

'Remove line(s) containing text (strKey) from text file (strFile)
'or
'Remove line number from text file (strFile)
'or
'Remove line number if containing text (strKey) from text file (strFile)

'Use strFile = "c:\file.txt" (Full path to text file)
'Use strKey = "John Doe" (Lines containing this text string to be deleted)
'Use strKey = "" (To not use keyword search)
'Use LineNumber = "1" (Enter specific line number to delete)
'Use LineNumber = "0" (To ignore line numbers)
'Use CheckCase = "1" (For case sensitive search )
'Use CheckCase = "0" (To ignore upper/lower case characters)


Const ForReading=1:Const ForWriting=2
Dim objFSO,objFile,Count,strLine,strLineCase,strNewFile
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile(strFile,ForReading)
Do Until objFile.AtEndOfStream
strLine=objFile.Readline
If CheckCase=0 then strLineCase=ucase(strLine):strKey=ucase(strKey)
If LineNumber=objFile.Line-1 or LineNumber=0 then
If instr(strLine,strKey) or instr(strLineCase,strkey) or strKey="" then
strNewFile=strNewFile
Else
strNewFile=strNewFile&strLine&vbcrlf
End If
Else
strNewFile=strNewFile&strLine&vbcrlf
End If
Loop
objFile.Close
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile(strFile,ForWriting)
objFile.Write strNewFile
objFile.Close

End Function

使用方法:
DeleteLine "c:\1.txt", "", 1, 0



相关阅读:
ASP.NET页面中标题单点解决方案
仔细考虑维护脚本
CentOS安装rpm包时遇到Header V3 DSA signature: NOKEY时解决办法
Lesson02_05 头元素
win2003文件夹权限设置脚本代码
提高网站权重:提高网站PR和提高网站更新度
ASP生成XBM图可用作验证码
CSS3的新特性介绍
CSS+JS构建的图片查看器" target="_blank">CSS+JS构建的图片查看器
关于session在PHP5的配置文件中的详细设置参数说明
LINUX系统一个网卡绑定多个IP的方法
解决ASM无法启动问题
JavaScript null和undefined区别分析
SQL中DATALENGTH 用法
快速导航

Copyright © 2016 phpStudy |