Après avoir examiner le code de youl46 de détection de lien, je trouvais que de 1 il étais trop lourd, de 2 que les liens retourné n'étais aps tjs bon, donc bref, jai décider de rescripter ce code en quelquchose de mieux!
Source / Exemple :
alias searchurl {
set %searchurl $matchtok($1-,http://,1,32)
if (%searchurl == $null) goto next
while ($pos(%searchurl,$chr(44),1) != $null) {
if (http:// isin $left(%searchurl,$pos(%searchurl,$chr(44),1))) {
set %searchurl $remove(%searchurl,$right(%searchurl,$calc($len(%searchurl) - $pos(%searchurl,$chr(44),1) + 1)))
}
else {
set %searchurl $remove(%searchurl,$left(%searchurl,$pos(%searchurl,$chr(44),1))))
}
}
goto end
:next
set %searchurl $matchtok($1-,www,1,32)
if (%searchurl == $null) return $null | halt
while ($pos(%searchurl,$chr(44),1) != $null) {
if (www isin $left(%searchurl,$pos(%searchurl,$chr(44),1))) {
set %searchurl $remove(%searchurl,$right(%searchurl,$calc($len(%searchurl) - $pos(%searchurl,$chr(44),1) + 1)))
}
else {
set %searchurl $remove(%searchurl,$left(%searchurl,$pos(%searchurl,$chr(44),1))))
}
}
set %searchurl http:// $+ %searchurl
:end
return %searchurl
}
Conclusion :
Alors de la facon que ca fonctionne: $searchurl(texte) retourneras le URL contenu dans le texte ou $null si il n'y a rien...
Pour intégrer ceci quand des personnes parle on peut faire quelquechose comme:
on 1:text:*:*:{
if ($searchurl($1-) != $null) {
echo -a $nick a écrit le URL: $searchurl($1-)
}
}
Alors je vous laisse ceci à votre imagination.. Et c'est tjs à mettre dans les remotes!!
Alors bon scriptage à tous!!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.