uot;, "Sub"
        objDict.Add "true", "True"
        objDict.Add "ubound", "UBound"
        objDict.Add "while", "While"
        objDict.Add "wend", "Wend"
        objDict.Add "with", "With"
        objDict.Add "xor", "Xor"
    End Sub

    Private Function Min(x, y)
        Dim tempMin
        If x < y Then tempMin = x Else tempMin = y
        Min = tempMin
    End Function
    
    Private Function Max(x, y)
        Dim tempMax
        If x > y Then tempMax = x Else tempMax = y
        Max = tempMax
    End Function
    
    Public Sub AddKeyword(inKeyword, inToken)
        KeyMin = Min(Len(inKeyword), KeyMin)
        KeyMax = Max(Len(inKeyword), KeyMax)
        
        objDict.Add LCase(inKeyword), inToken
    End Sub
    
    Public Sub ParseFile(blnOutputHTML)
        Dim m_strReadLine, tempString, blnInScriptBlock, blnGoodExtension, i
        Dim blnEmptyLine
        
        m_LineCount = 0
        
        If Len(PathToFile) = 0 Then
            Err.Raise 5, "cBuffer: PathToFile Length Zero"
            Exit Sub
        End If
        
        Select Case LCase(Right(PathToFile, 3))
            Case "asp", "inc"
                blnGoodExtension = True
        

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

在google里搜索更多VBS、ASP代码语法加亮显示的类

	Web www.51ec.org

上一篇信息学院： 远程获取内容，并将内容存在本地电脑上，包括任何文件！利用xmlhttp和adodb.stream,酷！绝对原创！

下一篇信息学院： 超长字符的智能分页-支持HTML。