足球游戏_中国足彩网¥体育资讯$

vbs删除文本文件的行的函数
来源:易贤网 阅读:2395 次 日期:2016-07-20 14:49:32
温馨提示:易贤网小编为您整理了“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删除文本文件的行的函数
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65317125(9:00—18:00) 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标