CODE SOURCE VB >> HTML
cs_revivall
Messages postés
24
Date d'inscription
mercredi 5 septembre 2001
Statut
Membre
Dernière intervention
7 août 2003
-
9 avril 2003 à 13:32
VicoLaChips2 Messages postés 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 - 2 juil. 2006 à 18:29
VicoLaChips2 Messages postés 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 - 2 juil. 2006 à 18:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6628-code-source-vb-gt-gt-html
https://codes-sources.commentcamarche.net/source/6628-code-source-vb-gt-gt-html
2 juil. 2006 à 18:29
C'est bien que quelqu'un ce penche encore sur ce code qui date de mes débuts en VB :)
Je suis d'accord c'est mal programmé !!
Pour tes questions de fins :
Les deux projets te permettent de tester la dll sans la compiler ... Tu peux mettre dans les références (ou compléments je sais plus comment on appel ça)celle de ton projet "dll"
Une fois créer la dll est accessible de la même façon
Cordialement, Victor.
2 juil. 2006 à 10:33
Y'a une partie que je comprend pas du tout :
If InStr(tblLignes(intLigne), "&") > 0 Then 'Entité html ?
Stbl2 = Split(tblLignes(intLigne), " ")
tblLignes(intLigne) = ""
For i = 0 To UBound(Stbl2)
If Len(Stbl2(i)) > 1 Then
If InStr(Stbl2(i), "&") > 0 Then
Stbl2(i) = Replace(Stbl2(i), "&", "&")
End If
End If
tblLignes(intLigne) = tblLignes(intLigne) & Stbl2(i) & " "
Next
tblLignes(intLigne) = RTrim(tblLignes(intLigne))
End If
If InStr(tblLignes(intLigne), "<") > 0 Then 'balise html ?
If Mid(tblLignes(intLigne), _
InStr(tblLignes(intLigne), "<") + 1, 1) <> ">" Then
tblLignes(intLigne) = _
Replace(tblLignes(intLigne), "<", "<")
tblLignes(intLigne) = _
Replace(tblLignes(intLigne), ">", ">")
End If
End If
Pourquoi ne pas ecrire plus simplement :
tblLignes(intLigne) = Replace(Replace(Replace(tblLignes(intLigne), _
"&", "&"), _
"<", "<"), _
">", ">")
La serie des If imbriques est assez difficile a lire :
Vu la hauteur des sous-parties, ne serait il pas plus lisible d'ecrire :
If Test Then
Je montre tout de suite ce qu'il se passe dans ce cas la
Else
If Test2 Then
Je montre tout de suite ce qu'il se passe dans ce cas la
Else
La suite peu bien occuper 2000 lignes, c'est plus facile a lire
End If
End If
Et dans ce cas, pourquoi ne pas utiliser des ElseIf qui evitent d'ajouter cinquante espaces d'indentation ?
Le tout fonctionne bien, mais il y a un bug :
Si une chaine de texte contient une apostrophe, ca deconne :
Exemple :
Msgbox "Attention ca va 'deconner' !", "Bug"
Dans la sortie html, la ligne sera verte (couleur commentaire) a partir de 'deconner...
Et un autre bug que je retrouve souvent dans ce genre de code :
Il faut savoir qu'il est possible de mettre un commentaire sur plusieurs ligne tout comme on met une operation sur plusieurs lignes avec espace + underscore (" _") a la fin de la ligne.
Exemple :
'Ceci est un commentaire _
sur deux lignes.
Dans la sortie html, la deuxieme ligne ne sera pas verte (couleur commentaire).
Questions subsidiaires car mon ignorance est grande en VB :
- a quoi cela sert il de faire deux projets et un groupe de projets ?
- Comment creer une Dll ?
- Comment l'utiliser une fois cree ?
6 sept. 2005 à 01:46
c'est de l'excellent boulot.
je viens de le reprendre, moins d'une demi-heure de correction dessus. impeccable
9/10 (toujours perfectible)
bonne continuation
PCPT
9 avril 2003 à 13:32
mais le meilleur moyen de les éditer c encore à la main au bloc notes ! ;-)