手机
当前位置:查字典教程网 >脚本专栏 >vbs >vbs删除文本文件的行的函数
vbs删除文本文件的行的函数
摘要:DeleteLineFunction复制代码代码如下:FunctionDeleteLine(strFile,strKey,LineNumbe...

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

【vbs删除文本文件的行的函数】相关文章:

用vbs读取文本文件的最后一行

用vbs对文本文件的内容进行排序

vbs删除注册表项的代码

用vbscript实现从文本文件中删除所有重复行的代码

vbs下通过日期查找文件夹的代码

用vbs删除某些类型文件和磁盘空间报告的脚本

用vbscript把 Word 文档保存为文本文件的代码

用vbs实现对文本文件中的项计数

vbs实现压缩文件夹的脚本

vbs实现的汉字转拼音的函数

精品推荐
分类导航