html parser from Active X dll

[kanejone]

Hi guys,

I have an ActiveX dll that I've written to make a web alternative to crystal reports.

The reports are working fine from the web but instead of having the html embedded in the ActiveX dll I was hoping to write some sort of clever html parsing routine.
Here's an example of one of my subs at the moment. Does anyone have any ideas on how I would make a html parser for this???? Thanks
JK



Public Sub emtsTotalLine(ByVal filenumber As Integer, ByVal customerName As String, ByVal currentNSC As String, ByVal currentAccount As String, ByVal runningTotal As Double, ByVal currentCurrency As String, ByVal paymentCount As Long, Optional paymentStatus As String)

Dim stringTotal As String

stringTotal = Format(runningTotal, "###,###,##0.00")


Print #filenumber, "<TR>"
Print #filenumber, "<TD BGCOLOR='SILVER'><FONT FACE='ARIAL' SIZE=2 COLOR='BLACK'><STRONG>"
Print #filenumber, customerName
Print #filenumber, "</STRONG></FONT></TD>"

Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW'><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
Print #filenumber, currentNSC
Print #filenumber, "</FONT></TD>"

Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW'><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
Print #filenumber, currentAccount
Print #filenumber, "</FONT></TD>"

Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW' ALIGN=RIGHT><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
Print #filenumber, stringTotal
Print #filenumber, "</FONT></TD>"

Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW'><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
Print #filenumber, currentCurrency
Print #filenumber, "</FONT></TD>"

If Not IsEmpty(paymentStatus) And Trim(paymentStatus) <> "" Then
Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW'><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
Print #filenumber, paymentStatus
Print #filenumber, "</FONT></TD>"
End If

Print #filenumber, "<TD BGCOLOR='LIGHTYELLOW'><FONT FACE=ARIAL SIZE=2 COLOR='BLACK'>"
Print #filenumber, paymentCount
Print #filenumber, "</FONT></TD>"




End Sub