vbs删除文本文件的行的函数
导读：收集整理的这篇文章主要介绍了vbs删除文本文件的行的函数，觉得挺不错的，现在分享给大家，也给大家做个参考。 Delete Line Function复制代码 代码如下:Function...
收集整理的这篇文章主要介绍了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 您可能感兴趣的文章:
- 使用VBS访问外部文本文件一些方法和脚本实例代码
- 用vbs实现读取文本文件的方法
- 用vbscript实现从文本文件中删除所有重复行的代码
- 用vbs对文本文件的内容进行排序
- 用vbs实现对文本文件中的项计数
- 用vbs读取文本文件的最后一行
- VBScript 文件操作代码小结
- VBS文本文件操作实现代码
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： vbs删除文本文件的行的函数
本文地址： https://pptw.com/jishu/609726.html