Bonjour,

J´ai encore un derniere question...

Connaissez-vous un bon code pour Visual Basic 6 qui detecte le URL.

Si par exemple j´ecrit dans ma boite de texte www.test2006.com alors il va le souligner, le mettre en bleu et faire un hyperlien vers www.test2006.com

J´en ai inventé 1 mais malheuresement il ne gere pas les extensions etrangeres a :

"frm*com*net*org*biz*bg*eu*hu*nl*lu*fr*biz*name*at

• ch*cn*es*gr*sk*pl*ru*li*lt*it*nu*gs*tk*tw*vg*cc*d

e*mobi*be*to*ac*ad*ae*af*ag*ai*al*am*an*ao*ar*aq*a
s*at*au*aw*az*ba*bb*bd*bf*bh*bi*bj*bm*bn*bo*br*bs*
bt*bv*bw*by*bz*ca*cc*cd*cf*cg*ch*ci*ck*cl*cm*cn*co

• cr*cs*cu*cv*cx*cy*cz*de*dj*dk*dm*do*dz*ec*edu*ee*

eg*eh*er*es*et*fi*fj*fk*fo*ga*gd*ge*gf*gg*gh*gi*gl

• gm*gn*gov*gp*gq*gr*gs*gt*gu*gw*gy*hk*hm*hn*hr*ht*

id*il*im*in*int*io*iq*ir*is*je*jm*jo*jp*ke*kg*kh*k
i*km*kn*kp*kr*kw*ky*kz*la*lb*lc*li*lk*lr*ls*pg*pf*
pe*pa*om*nz*nt*nr*np*no*ni*ng*nf*ne*nc*na*mz*my*mx

• mw*mv*mu*mt*ms*mr*mq*mp*mo*mn*mm*ml*mk*mil*mh*mg*

md*mc*ma*ly*lv*lu*lt*travel*pro*museum*coop*aero*p
h*pk*pm*pn*pr*ps*pt*pw*py*qa*re*ro*rw*sa*sb*sc*sd*
se*sg*sh*si*sj*sl*sm*sn*so*sr*sv*st*sy*sz*tc*td*zw

• zm*za*yu*yt*ye*ws*wf*vu*vn*vi*vg*ve*vc*va*uz*uy*u

s*um*uk*ug*ua*tz*tw*tt*tr*tp*to*tn*tm*tj*th*tg*tf"

Donc dans le cas d´un lien www.test2006.com/boutique.php le code ne marcher pas... car le "/boutique.php" et derriere le com.

Merci.

pas un problème : tu utilise le tiens, mais au lieu de lire jusqu´à un espace, tu lis jusqu´à un /.

Donc pour www.test2006.com/boutique.php tu lis jusqu´au .com et là tu découvre que c´est un lien. Et il ne te reste plus qu´à bleuter tout le reste jusqu´à un espace, qui fera donc aussi partit du lien.

dnob est-ce que tu as MSN ou Skype?

oui j´ai msn ou skype, mais non tu n´auras pas mon adresse.

Salut à toi. Moi ce que je te propose c´est de faire une fonction vérifiant si l´URL est bonne grace aux expressions régulière. Ca pourrait donner ceci :

public function URLValide(URL as string) as boolean
dim regex as regexp, occurence as MatchCollection
set regex = new regexp
regex.pattern =
"^w{3}\.[\w.-]+\.[a-z]{2,3}(\/[\w.-]+\.[a-z]{3})?$
"
regex.IgnoreCase = true
regex.global = false
set occurences = regex.execute(URL)
URLValide = IIf(occurences.count = 1,true,false)
end function

Voilà, maintenant il faut voir si le regex est bon

Dnob700, ... tres bien ...

DantePC, je vais tester ;)