中国DOS联盟

Dim o
Set o = new CMakeFile
Call o.start("test.vbs")
Set o = Nothing

' 代码执行器,可以整合包含以下个是的脚本
' #include "文件名"
Class CMakeFile
Private fso        ' 文件系统对象
Private dic        ' 字典对象
Private shell
Private stream
Property Get  FILE_NOT_FOUND()
        FILE_NOT_FOUND = vbObjectError + 513
End Property
Property Get  CLASS_NAME()
        CLASS_NAME = "CMakeFile"
End Property
Sub class_initialize()
        Set fso = CreateObject("scripting.filesystemobject")
        Set dic = CreateObject("scripting.dictionary")
        Set shell = CreateObject("wscript.shell")
End Sub
Sub class_terminate()
        Set fso = Nothing
        Set dic = Nothing
        Set shell = Nothing
End Sub
Public Sub Require(filename)
        On Error Resume Next
        ' 判断是否已经打开过此文件
        If dic.exists(filename) Then
                Exit Sub
        Else
                Call dic.add(filename,"")
        End If
        filename = fso.getabsolutepathname(filename)
        If fso.fileexists(filename) Then
                Dim file,line,buffer,arr
                Set file = fso.opentextfile(filename,1,true)
                line = 0
                While Not file.atendofstream
                        line = line + 1
                        buffer = file.readline
                        If instr(1,buffer,"#include",vbTextCompare) = 1 Then
                                arr = Split(buffer,"""")
                                Call Require(arr(1))
                                If Err.number<>0 Then
                                        Call Err.raise(Err.number,Err.source,"抛出异常在 " & filename & " 的第" & line & "行." & vbcrlf & Err.description)
                                End If
                        Else
                                Call stream.writeline(buffer)
                        End If
                Wend
                Call file.close()
                Set file = Nothing
        Else
                Call Err.raise(FILE_NOT_FOUND,CLASS_NAME,"没有找到文件 """ & filename & """")
        End If
End Sub

Sub Start(filename)
        Set stream = fso.opentextfile("output.vbs",2,True)
        Call require(filename)
        If Err.number<>0 Then
                Call MsgBox("错误: #" & Err.number & "源:" & Err.source & vbcrlf & "描述:" & vbcrlf & Err.description)
        Else
                Call MsgBox("output.vbs 成功生成!")
        End If
        Call stream.close()
        Set stream = Nothing
End Sub

End Class