Jeans & Development コンピューターのことなどを綴ったメモ (旧：目から鱗 w/SQLite)

Option Explicit

Sub Main()
    Dim cmdLine As String
    cmdLine = LCase(Command)
    If Len(cmdLine) = 0 Then End
    If Right(cmdLine, 1) = """" Then cmdLine = Left(cmdLine, Len(cmdLine) - 1)
    
    Dim isVBScript As Boolean, isEncoded As Boolean
    isEncoded = (Right(cmdLine, 1) = "e")
    isVBScript = (Left(Right(cmdLine, 3), 2) = "vb")
    
    Dim Lang As String
    If isVBScript Then
        Lang = "vbscript"
    Else
        Lang = "jscript"
    End If
    If isEncoded Then Lang = Lang & ".encode"
    
    Dim Code As String, buff As String
    Code = ""
    Open Command For Input As #1
    Do Until EOF(1)
        Line Input #1, buff
        Code = Code + buff + vbCrLf
    Loop
    
    Dim sc
    Set sc = CreateObject("ScriptControl")
    sc.language = Lang
    sc.executestatement Code
End Sub