• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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=strNewFilestrLinevbcrlf
    End If
    Else
    strNewFile=strNewFilestrLinevbcrlf
    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文本文件操作实现代码
    上一篇:vbs fso跨盘移动文件夹的怪问题
    下一篇:显示运行对话框内保存的命令历史的vbs
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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