GÉNÉRATION EN HTML DE SOURCES VB, AVEC COLORATION SYNTAXIQUE ET HYPERLIENS

Commentaire de jean_marc_n2 le 11/07/2006 09:03:48

Hello,

Merci pour ton commentaire. Il n'y a pas vraiment "balle dans le pied" dans la mesure ou le nombre de comparaisons de string est tout petit :-) Il suffit de voir les perfs pour s'en convaincre :-)
A l'occasion, je ferais un petit bench pour voir ce que l'on gagne avec des tableaux de bytes.
Merci encore!
Amicalement,

Commentaire de ciberrique le 11/07/2006 13:30:36

Je trouve ca tres bon... Vraiment bien, je garde.
Bravo.

Commentaire de Renfield le 11/07/2006 15:27:11 administrateur CS

j'ai repris mes tests....

il serait bien que la sortie HTML soit indentée automatiquement,

il y a une incohérence :
tu utilise les mots en majuscule, dans ton HASH, mais clean_symbol faisait un LCase...
des mots n'étaient pas trouvés, certaines fois.

tes liens ne fonctionnaient pas, tu mettais
<a name="#maFonction">    et a cause du #, l'ancre ne fonctionnait pas.
de même, tu écrivait le nom de l'ancre (en majuscules, donc) dans le texte des liens, ce qui fait pas très très joli ^^

j'ai corrigé ce point également:
    Print #g, header;
    If (i <> 0) And ((LCase(t(i - 1)) = "function") Or (LCase(t(i - 1)) = "sub")) Then
        Print #g, "<a name=""" & wordToHilight & """ >";
        szColor = COLOR_SYMB_A
    Else
        ' we need to insert an hyperlink
        module = Mid$(module, 1, InStr(module, ".")) & "html"
        Print #g, "<a href=""" & module & "#" & wordToHilight & """>";
        szColor = COLOR_SYMB_H
    End If
    Print #g, "<font color=""" & szColor & """>" & Left$(sBuffer, Len(wordToHilight)) & "</font>";

Les appels d'API ne sont pas redirigés vers leur déclaration

Space,ElseIf,LSet,Until ne sont pas dans ta liste de mots


j'ai également utilisé IsInHashTable_special dans IsKW
et supprimé le module = "" dans IsInHashTable_special

avec quelques optimisations a gauche a droite, je suis passé, pour un projet donné (en mode VB) de 360ms à 170ms, en moyenne

exemple d'optimisation significative :

                If (Left$(sBuffer, 1) = "'") Or (comment) Or _
                   (continuation_line_found And previous_was_comment) Then
                  
                    ' replace < and > by their html equivalent
                    If InStrB(sBuffer, "&lt;") > 0 Then
                        sBuffer = Replace(sBuffer, "&lt;", "&amp;lt;")
                    End If
                    If InStrB(sBuffer, "&gt;") > 0 Then
                        sBuffer = Replace(sBuffer, "&gt;", "&amp;gt;")
                    End If
                    If InStrB(sBuffer, "<") > 0 Then
                        sBuffer = Replace(sBuffer, "<", "&lt;")
                    End If
                    If InStrB(sBuffer, ">") > 0 Then
                        sBuffer = Replace(sBuffer, ">", "&gt;")
                    End If

et pareil dans le   Else    ' else: normal text

si le code 'corrigé' te tente, contacte moi par MP

Commentaire de jean_marc_n2 le 11/07/2006 19:01:12

Hello,

merci à tous de vos commentaires.

=> Renfield, merci en particulier pour ta revue de code! Q: Les appels d'API chez moi sont bien redirigés, voir un exemple ici: C:\files\vb\vbfrance\syntaxcolor2\frmMain.html (cliquer sur ShellExecute dans COmmand2, par exemple). Sans doute un cas particulier que je ne vois pas?

Je posterais après mes vacances une version corrigée!

Commentaire de Renfield le 12/07/2006 00:19:30 administrateur CS

Effectivement, j'utilises FireFox ^^