CodeColorer

On JP’s recommendation I’m trying CodeColorer for syntax highlighting.

Public Sub LoadFromFile()
   
    Dim xmlDoc As MSXML2.DOMDocument
    Dim xmlNodes As MSXML2.IXMLDOMNodeList
    Dim xmlNode As MSXML2.IXMLDOMNode
    Dim i As Long
    Dim clsRandom As CRandom
   
    Set xmlDoc = New MSXML2.DOMDocument
    xmlDoc.Load Environ(“USERPROFILE”) & “My DocumentsMy DropboxwcdkSampleData.xml”
    Set xmlNodes = xmlDoc.documentElement.selectNodes(“//SampleDatum”)
   
    For i = 0 To xmlNodes.Length – 1
        Set xmlNode = xmlNodes.Item(i)
        Set clsRandom = New CRandom
       
        clsRandom.RandType = xmlNode.selectSingleNode(“RandType”).nodeTypedValue
        clsRandom.Name = xmlNode.selectSingleNode(“Name”).nodeTypedValue
        clsRandom.Min = xmlNode.selectSingleNode(“Min”).nodeTypedValue
        clsRandom.Max = xmlNode.selectSingleNode(“Max”).nodeTypedValue
        clsRandom.Decimals = xmlNode.selectSingleNode(“Decimals”).nodeTypedValue
        clsRandom.Sequential = xmlNode.selectSingleNode(“Sequential”).nodeTypedValue
        clsRandom.Skip = xmlNode.selectSingleNode(“Skip”).nodeTypedValue
        Me.Add clsRandom
       
    Next i
End Sub

When I installed it, it said that there was a conflict with my existing highlighter. I was hoping that I wouldn’t have to disable the old one because it will make my existing code look ugly. I suppose I could do an update query on all the old posts. Sounds dangerous.

18 thoughts on “CodeColorer

  1. Dick Kusleika

    Well, the code looks good. How about in the comments?

    Sub test()
       
        If 1 > 2 Then
            ‘do something
       ElseIf 1 < 2 Then
            Exit Sub
        Else
            MsgBox “this” & “that”
        End If
       
    End Sub
  2. Michael

    Good morning, Dick –

    Testing “not equals”

    Function baseconv(InputN, BaseN)
    ‘http://support.microsoft.com/kb/135635
      Dim quotient, remainder As Single
       Dim Answer As String
       quotient = InputN   ‘ Set quotient to number to convert.
      remainder = InputN  ‘ Set remainder to number to convert.
      Answer = “”
     
       Do While quotient <> 0   ‘ Loop while quotient is not zero.
         remainder = quotient Mod BaseN
          quotient = Int(quotient / BaseN)
          Answer = remainder & Answer
       Loop
       baseconv = Val(Answer)   ‘ Convert answer variable to a number.

    End Function

    …mrt

  3. JP

    Ugh, WordPress mangled my comment. But you get the idea: Replace the original opening code tag with the new one (in comments and posts), and replace the closing code tag with the new closing tag.

  4. Jon Peltier

    When I started my blog I tried a few code formatters, but I couldn’t find one that didn’t totally suck. I’ve reverted to using <pre> tags around code, and unless I specifically highlight a keyword or line of code by hand, it’s all monochromatic.

    This CodeColorer thing looks pretty good.

  5. Michael

    Dick –

    What is your VBE font? and what’s above?

    I’ve run with Courier New so long, it may be time for a change ;-)

    …mrt

  6. Dick Kusleika

    I really like that I can use code tags with this. Correct me if I’m wrong, but if I get rid of this plug in, all my code will revert to normal code tag formatting, which is better than plain text.

Leave a Reply

Your email address will not be published. Required fields are marked *

To create code blocks or other preformatted text, indent by four spaces:

    This will be displayed in a monospaced font. The first four 
    spaces will be stripped off, but all other whitespace
    will be preserved.
    
    Markdown is turned off in code blocks:
     [This is not a link](http://example.com)

To create not a block, but an inline code span, use backticks:

Here is some inline `code`.

For more help see http://daringfireball.net/projects/markdown/syntax