Option Explicit

SplitIntoFiles Wscript.Arguments.Item(0)

Function SplitIntoFiles(strFileToProcess)

    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim myFile
    Dim myStream
    Dim myWriteStream
    Dim myLine
    Dim strFilename
    Dim blnInProcedure
    
    If fso.FileExists(strFileToProcess) Then
    
        Set myFile = fso.GetFile(strFileToProcess)
        Set myStream = fso.OpenTextFile(strFileToProcess)
        
        While Not myStream.AtEndOfStream
            myLine = myStream.ReadLine
            If InStr(1, myLine, "-- %%START%% ") = 1 Then
                blnInProcedure = True
                strFilename = Mid(myLine, InStr(13, myLine, ".") + 1) & ".sql"
                Set myWriteStream = fso.CreateTextFile(myFile.ParentFolder & "\" & strFilename)
                While blnInProcedure = True
                    myLine = myStream.ReadLine
                    If Not InStr(1, myLine, "-- %%END%% ") = 1 Then
                        myWriteStream.WriteLine myLine
                    Else
                        blnInProcedure = False
                    End If
                Wend
                myWriteStream.Close
                Set myWriteStream = Nothing
            End If
        Wend
        
    End If
    
End Function