/dico <mot> , dictionnaire bilingue anglais/francais

Commenter

Contenu du snippet

ce code est enfaite un mini dictionaires bilingue partagant les définitions de mot entre el francais et l'anglais, l'utilisation est trés simple : /dico <mot>
tout sa par sockets (ma spécialité)

Source / Exemple : 


;Dictionaire Bilingue Anglais/Francais
;Utilisation: /Dico <mot>
;par arround - arround@eXagon.org - le 20/05/2003

alias dico { sockclose dico | sockopen dico www.french-linguistics.co.uk 80 | set %dico.mot $1 }
on *:sockopen:dico:{
  sockwrite -nt $sockname GET /cgi-bin/frdict.pl?entry= $+ %dico.mot HTTP/1.1
  sockwrite -nt $sockname Host: french-linguistics.co.uk $+ $str($crlf,2)
  sockwrite -nt $sockname 
}
on *:sockread:dico:{
  sockread %dico
  if ($len(%dico) < 850) {
    tokenize 32 $regstrip(%dico)
    if ($chr(40) isin $1) {
      write dico.txt $1-
    }
  }
}
on *:sockclose:dico:{ check.dico }
alias check.dico {
  var %a 1
  while %a <= $lines(dico.txt) {
    echo -a $+($+($chr(35),%a),$chr(58)) $remove($read(dico.txt,%a),$left($read(dico.txt,%a),3),$chr(126))
    inc %a
  }
  $iif($lines(dico.txt) > 1,write -c dico.txt)
}
alias regstrip { var %i,%a = $1-,%b = $regsub(%a,/<[^>]+>/g,,%i) | return $remove(%i,$chr(59),$chr(38)) }

Conclusion :


remerciement a BombStrike pour le $regstrip(...)

A voir également

S'inscrire maintenant

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.

Du même auteur (arround)