欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vbs文件搜索及过虑有关问题

更新时间: 2014-01-05 01:53:13 责任编辑: Author_N1

 

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 3
        str = oFile.ReadLine
        If InStr(str,"2x") Then
            WScript.Echo str
        ElseIf i > 0 Then
            WScript.Echo str
        Else
            i = i - 1
        End If
        If oFile.AtEndOfLine Then Exit For
    Next
    oFile.Close
    Set oFile = Nothing
    Set oFSO = Nothing

--参考方法--
第四行插入:
Set oFileWrite = oFSO.OpenTextFile("b.txt",2,True)
然后下面的 WScript.Echo 替换成 OFileWrite.WriteLine
最后加上: 
oFileWrite.Close
Set OfileWrite = Nothing
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:53:13
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2563/
本文WWW.DOC100.NET DOC100.NET版权所有。