dcovington
/
tracking_kits

<%
Option Explicit

Sub Main
    ShowFileList
    
    If Len(Request.Form("filename")) > 0 then
        ShowDocs
    End If
End Sub


Sub ShowFileList
%>
    <h1>Select File</h1>
        
        <form action="docs.asp" method="POST">
            <select name="filename">
                <%
                    dim fso : set fso = Server.CreateObject("Scripting.FileSystemObject")
                    dim files : set files = fso.GetFolder(Server.MapPath(".")).Files
                    dim file
                    For Each file in files
                        If fso.GetExtensionName(file.Path) = "asp" and file.Name <> "docs.asp" and InStr(file.Name, "_old") = 0 then
                            response.write "<option value='" & file.Name & "'>" & file.Name & "</option>"
                        End If
                    Next
                %>
            </select>
            <input type="submit" value="Get Docs">
        </form>
        <hr>
<%
End Sub


Sub ShowDocs
    dim fso : set fso = Server.CreateObject("Scripting.FileSystemObject")
    dim path : path = fso.GetFolder(Server.MapPath(".")).Path
    dim file : set file = fso.OpenTextFile(path & "\" & Request.Form("filename"))
    
    dim re : set re = new RegExp
    With re
        .Pattern = "Public Property|Public Sub|Public Function"
        .Global = true
        .IgnoreCase = true
    End With
    
    dim line, matches, result
    
    Do Until file.AtEndOfStream
        line = file.ReadLine()
        set matches = re.Execute(line)
        If matches.Count > 0 then
            result = line
            result = Replace(result, "Public Property", "<span class='subdued'>Property</span>")
            result = Replace(result, "Public Sub",            "<span class='subdued'>Sub</span>")
            result = Replace(result, "Public Function", "<span class='subdued'>Function</span>")
            response.write "<p>" & result & "</p>"
        End If
    Loop
    
End Sub


%>

<!doctype html>
<html>
    <head>
        <style>
            body { font-family: calibri; }
            
            p { font-weight: bold; }
            .subdued { font-weight: normal; color: #999; }
        </style>
    </head>
    <body>
        
        <% Call Main %>
    
    </body>
</html>