vbs文件搜索及过虑问题

来源：百度文库编辑：神马文学网时间：2024/06/03 03:13:39

vbs文件搜索及过虑问题

如我有一个文件1.txt内容如下：
xxxxxxxx1xxxxxxxx
a1
b1
c1
xxxxxxxx2xxxxxxxxxx
a2
b2
c3
xxxxxxxx3xxxxxxxx
a3
b3
c3

我想写一个vbs脚本读取1.txt,搜索x2关键字，并同时把从x2当作开始行的4行内容输出到2.txt。我不知道怎么做？大家有什么好的方法吗？
如果脚本运行正确，应当2.txt是显示：
xxxxxxxx2xxxxxxxxxx
a2
b2
c3

VBScript code

    sFile = "a.txt"Set oFSO = CreateObject("Scripting.FileSystemObject")Set oFile = oFSO.OpenTextFile(sFile)iCount = 0'Do Until oFile.AtEndOfLine'    str = oFile.ReadLine'    Select Case iCount'        Case 0'            If InStr(str,"2x") Then'                iCount = 1'                WScript.Echo str'            End If'        Case 1,2,3'            WScript.Echo str'            iCount = iCount + 1'        Case Else'    End Select'Loop    For i = 0 To 3str = oFile.ReadLineIf InStr(str,"2x") ThenWScript.Echo strElseIf i > 0 ThenWScript.Echo strElsei = i - 1End IfIf oFile.AtEndOfLine Then Exit ForNextoFile.CloseSet oFile = NothingSet oFSO = Nothing

vbs文件搜索及过虑问题可以将文件转换为vbs语句的vbs代码 “人肉搜索”的传播流程及存在的问题 WindowsXP 巧妙搜索文件 WindowsXP 巧妙搜索文件在文件中搜索字符串。 “人肉搜索”的传播流程及存在的问题--传媒--人民网解决电脑搜索问题 VBS参数自动安装盘常遇问题及相关下载 Winnt.sif 文件命令解释00 影视搜索及欣赏 Asf文件制作问题 Mfm1992文件问题 Mfm1992文件问题 Asf文件制作问题 Everything - 速度最快的文件搜索工具 Everything:速度最快的文件搜索工具 Everything - 速度最快的文件搜索工具文件存储系统集成数据管理与搜索 Rapidshare文件搜索以及下载方法双击打开文件夹变搜索文件 exe转vbs的vbs代码搜索功能及用户登录 “一号文件”与三农问题