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

vbs怎么读取指定目录下的所有文本

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

 

vbs如何读取指定目录下的所有文本
我有一个目录是以日期命名的;如2010-1-25
目录下有8个文件,每个文件第一行都是不同的关键字,假设是:
文件1,第一行内容:x1
文件2,第一行内容:x2
我的想法是,写一个循环,读取这个日期名目录下的所有文件(文本),如果是X1的就调用相关的命令。
因为我的脚本是根据每一个文件用不同的处理,不想用多数组来解决,想用多次循环来解决,各位朋友有什么好的方法不?

--参考方法--
VBScript code
    sFolder = "2010-1-25"
Set OFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sFolder)
For Each x In oFolder.Files
    Set oFile = oFSO.OpenTextFile(x.Path)
    MySub ofile.ReadLine,x.Path
    oFile.Close
Next


Sub MySub(str,strFile)
    Select Case str
        Case "x1"
            WScript.Echo strFile & "口令:" & vbCrLf & "天王盖地虎!"
        Case "x2"
            WScript.Echo strFile & "口令:" & vbCrLf & "宝塔镇河妖!"
    End Select

End Sub

--参考方法--
探讨
请问如果这个X1不在第一行,需要把所有的文件有X1的都显示出来,怎么做呢?
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

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