首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > vbScript >

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

2012-03-16 
vbs如何读取指定目录下的所有文本我有一个目录是以日期命名的;如2010-1-25目录下有8个文件,每个文件第一行

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.CloseNextSub MySub(str,strFile)    Select Case str        Case "x1"            WScript.Echo strFile & "口令:" & vbCrLf & "天王盖地虎!"        Case "x2"            WScript.Echo strFile & "口令:" & vbCrLf & "宝塔镇河妖!"    End SelectEnd Sub
[解决办法]
探讨
请问如果这个X1不在第一行,需要把所有的文件有X1的都显示出来,怎么做呢?

热点排行