CodeS-SourceS
Rechercher un code, un tuto, une réponse

/dico <mot> , dictionnaire bilingue anglais/francais

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 752 fois - Téléchargée 18 fois

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

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.