QUICKLAUNCH : AFFICHEZ LA BARRE DE LANCEMENT RAPIDE DANS VOTRE PROGRAMME (CONTIE
lumesh
Messages postés564Date d'inscriptionjeudi 21 février 2002StatutMembreDernière intervention 7 novembre 2008
-
18 août 2004 à 09:38
cs_nico1610
Messages postés395Date d'inscriptionjeudi 26 août 2004StatutMembreDernière intervention19 juin 2009
-
21 nov. 2006 à 19:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_nico1610
Messages postés395Date d'inscriptionjeudi 26 août 2004StatutMembreDernière intervention19 juin 20091 21 nov. 2006 à 19:12
voila un 10 / 10 pour pencher la balance !
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 20091 21 nov. 2006 à 18:38
Salut nico,
effectivement le goto, c'est très moche. Y'a presque toujours une solution pour s'en passer. J'ai fais ce code y'a un moment, et je suis en train de l'améliorer (enfin je le refais dans une logique beaucoup plus générale). Donc je ne modifierai pas ce code, cependant merci d'avoir fait la remarque, je suis entierement d'accord. (enfin ça fonctionne pour autant remarque ^^).
PS : tiens y'a un zigoto qu'a noté 1, bravo :s
cs_nico1610
Messages postés395Date d'inscriptionjeudi 26 août 2004StatutMembreDernière intervention19 juin 20091 19 nov. 2006 à 02:38
Heu je revien sur ton code que je suis en train de décortiqué et je trouve ce passage tres moche :
For T = Len(File) To 1 Step -1
A = Mid(File, T, 1)
If A = "." Then
GoTo Fin
End If
stok = stok + A
Next
Exit Function
Fin:
En effet pour sortir d'une boucle For, evite les "Goto fin", tu verra qu'en programmation les Goto, c'est pas beau.
A la rigeur un "Exit For", c'est plus jolie ensuite fais plus ca :
T = Len(File) '\
A = "" '|Initialisation de la boucle
stok = "" '/
Do
stok = stok + A
A = Mid(File, T, 1)
T = T - 1 'incrémentation
Loop Until A "." Or T 0 'condition de sortie
Enfin tu fait comme tu veut, mais je trouve le Goto TRES TRES MOCHES surtout pour sortir d'une boucle for!
Sinon le code est super, je te recontacte si j'ai encore des remarque a faire sur ton code !
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 20091 27 janv. 2005 à 22:46
21 nov. 2006 à 19:12
21 nov. 2006 à 18:38
effectivement le goto, c'est très moche. Y'a presque toujours une solution pour s'en passer. J'ai fais ce code y'a un moment, et je suis en train de l'améliorer (enfin je le refais dans une logique beaucoup plus générale). Donc je ne modifierai pas ce code, cependant merci d'avoir fait la remarque, je suis entierement d'accord. (enfin ça fonctionne pour autant remarque ^^).
PS : tiens y'a un zigoto qu'a noté 1, bravo :s
19 nov. 2006 à 02:38
For T = Len(File) To 1 Step -1
A = Mid(File, T, 1)
If A = "." Then
GoTo Fin
End If
stok = stok + A
Next
Exit Function
Fin:
En effet pour sortir d'une boucle For, evite les "Goto fin", tu verra qu'en programmation les Goto, c'est pas beau.
A la rigeur un "Exit For", c'est plus jolie ensuite fais plus ca :
T = Len(File) '\
A = "" '|Initialisation de la boucle
stok = "" '/
Do
stok = stok + A
A = Mid(File, T, 1)
T = T - 1 'incrémentation
Loop Until A "." Or T 0 'condition de sortie
Enfin tu fait comme tu veut, mais je trouve le Goto TRES TRES MOCHES surtout pour sortir d'une boucle for!
Sinon le code est super, je te recontacte si j'ai encore des remarque a faire sur ton code !
27 janv. 2005 à 22:46
http://www.vbfrance.com/code.aspx?id=25786
parce que je vois que cette page est encore plus vue par mois que la nouvelle version
ciao
22 août 2004 à 15:13
22 août 2004 à 15:04
18 août 2004 à 20:29
@+
18 août 2004 à 15:59
18 août 2004 à 15:55
note: 9/10
18 août 2004 à 15:27
Y'a pas mal de resources pour les debutants.
Bon boulot
@+
18 août 2004 à 13:04
@ +
18 août 2004 à 09:38
http://www.vbfrance.com/code.aspx?ID=5867
par contre version win9x / 2k au nvo du style :)