Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Aide pour mon TCL Google
#1
Allo je voudrais que quand je tape !google blabla.. je voudrais qu'il me dise aumoin 5 lien a place de juste 1.
alors toute marche bien mes bon..


tcl
#######Google######
package require http
 
bind pub - !google pub:google
bind pub - !g pub:google
#bind pub m !debug pub:debug
 
set agent "Mozilla"
 
# Tryb Debug. "1", Domyslnie: "0".
# !debug on/off 
 
set debug "0"
 
proc pub:debug { nick uhost handle channel arg } {
 global debug
	if {[llength $arg]==0} {
		if { $debug == "0" } {
		putserv "PRIVMSG $channel :\002\[NOTICE\]\002 debug\002"
		} else {
		putserv "PRIVMSG $channel :\002\[NOTICE\]\002 debug\002"
		}
	} else {
		if { $arg == "on" } {
			set debug "0"
			putserv "PRIVMSG $channel :\002\[NOTICE\]\002 debug\002"
		} elseif { $arg == "off" } {
			set debug "0"
			putserv "PRIVMSG $channel :\002\[NOTICE\]\002 debug\002"
		}
	}
}
 
proc pub:google { nick uhost handle channel arg } {
 global agent
 global debug
	if {[llength $arg]==0} {
		putserv "PRIVMSG $channel :La syntaxe: !Google <recherche> Ou !G ..."
	} else {
		set query "http://www.google.ca/custom?hl=pl&q=$arg&ie=ISO-8859-2"
		set query [string map {" " "+"} $query]
		putserv "PRIVMSG $channel :\002\[GOOGLE\]\002 Recherche -> $arg"
                set token [http::config -useragent $agent]
		set token [http::geturl $query]
		set token [http::geturl $query]; regexp -nocase {(.*)} [http::data $token] -> title; http::cleanup $token;
		set token [http::geturl $query]; regexp -nocase {<a href="([^"]+)" class=l[^>]*>} [http::data $token] -> newurl; http::cleanup $token;
		set title [string map {"<em>" "\002*"} $title]
		set title [string map {"</em>" "*\002"} $title]
		set title [string map {"–" "-"} $title]
		set title [string map {"—" "--"} $title]
		set title [string map {"" "-"} $title]
#### ZAKOME, W UTF-8!
		set title [encoding convertfrom utf-8 $title] 
#####
		 regexp {class=l[^>]*>([^>]*)</a>} $title -> title2
			if {$debug==1} {
				putserv "PRIVMSG $channel :\002\[DEBUG\]\002 \$query = $query"
				if { [info exists title2] } {
					putserv "PRIVMSG $channel :\002\[DEBUG\]\002 \$title2 = $title2"
				} else { 
					putserv "PRIVMSG $channel :\002\[DEBUG\]\002 \$title2 = \002debug!\002"
				}
				if { [info exists newurl] } {
				putserv "PRIVMSG $channel :\002\[DEBUG\]\002 \$newurl = $newurl" 
				} else {
				putserv "PRIVMSG $channel :\002\[DEBUG\]\002 \$newurl = \002debug!\002" 
				}
			} else {
				if { [info exists title2] && [info exists newurl] } {
				putserv "PRIVMSG $channel :\002\[GOOGLE\]\002 $title2 -> $newurl"
				} else {
				putserv "PRIVMSG $channel :\002\[GOOGLE\]\002 Next ;<"
				}
			}
	}
}
 
putlog "Google 1.0 by Erreur loaded"

#2
Utilise les balises [tcl ] et [tcl /]
#3
je comprend pas quesque tu veux dire ?
moi je parle quand je tape sa je veux plus de lien qui me donne EX:


18:30 ? @Erreur ¦ !google mIRC
18:30 Keep ¦ [GOOGLE] Recherche -> mIRC
18:30 Keep ¦ [GOOGLE] *mIRC*: Download *mIRC* -> http://www.mirc.com/get.html
#4
ZWeR Wrote:je comprend pas quesque tu veux dire ?
heretoc parlait d'entourer ton code (dans ton post) par les balises tcl, ce que j'ai fait pour toi.
ZWeR Wrote:moi je parle quand je tape sa je veux plus de lien qui me donne EX:
18:30 ? @Erreur ¦ !google mIRC
18:30 Keep ¦ [GOOGLE] Recherche -> mIRC
18:30 Keep ¦ [GOOGLE] *mIRC*: Download *mIRC* -> http://www.mirc.com/get.html
On avait bien compris.
Il te manque un -all dans tes regexp afin d'avoir tous les liens et pas seulement le premier
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Possibly Related Threads…
Thread Author Replies Views Last Post
  [Demande] besoin d'aide pour finaliser berni13 6 1,618 18/11/2020, 00:18
Last Post: berni13
Big Grin demande d'aide pour codage KeeViiNou 4 4,629 04/07/2016, 07:55
Last Post: CrazyCat
  aide pour un script svp s2drk 3 5,044 11/08/2014, 23:23
Last Post: CrazyCat
  [Demande] Besoin d'aide pour youtubeURL.tcl hades_48 4 5,142 01/07/2014, 15:41
Last Post: hades_48
  [Demande] aide pour une modification pour whois loulou7593 21 13,379 29/10/2013, 13:35
Last Post: loulou7593
  aide pour le script Nostromo1st 13 8,213 16/09/2013, 16:24
Last Post: Nostromo1st
  [aide] comment rajouter des hosts et des salons en plus pour sajoin Naruto 11 7,750 17/07/2013, 22:51
Last Post: aliasangelius
  aide pour trivia zyrte 5 5,525 19/11/2012, 13:13
Last Post: CrazyCat
  Aide pour faire un script TCL Ahriman 6 6,327 01/07/2012, 00:13
Last Post: Ahriman
  Besoin d'aide pour TCL radionomy JulienRoad 9 8,944 30/05/2012, 21:59
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)