Rechercher un favoris ie/firefox

Télécharger le projet
Commenter

Description

Vous avez plein de favoris internet et vous n'arrivez plus à mettre la main sur celui qui vous interresse? Alors ce petit bout de code est fait pour vous.
Il vous sufit d'écrire une partie du favoris internet et au cours de votre frappe les résultats s'affichent.
Une foi les résultats affichés, il ne vous reste plus qu'à double cliquer sur celui qui vous interresse et la page s'ouvre dans votre explorateur

Source / Exemple : 


alias favorissearch {
  $iif($dialog(favorissearch),,dialog -om favorissearch favorissearch)
}

dialog favorissearch {
  title "Rechercher un Favoris IE/Firefox"
  size -1 -1 348 203
  edit "", 1, 7 7 200 22, autohs
  list 2, 7 34 334 162, size
  list 3, 7 34 334 162, size
  combo 4, 212 8 129 100, drop size
}

on *:dialog:favorissearch:init:*: {
  did -h $dname 3
  didtok $dname 4 124 Internet explorer|Firefox
  did -c $dname 4 1
}

on *:dialog:favorissearch:*:*: {
  if ($devent == dclick) && ($did == 2) {
    if ($did($dname,4).sel == 1) url -an $readini($findfile(" $+ $favorissearch.getrepIE $+ ",$did(2).seltext $+ .url,1),DEFAULT,BASEURL)
    else url -an $did($dname,3,$did(2).sel)
  }
  elseif (($devent == edit) && ($did == 1)) || (($devent == sclick) && ($did == 4)) {
    did -r $dname 2,3 
    if $did(1) {
      if ($did($dname,4).sel == 1) var %a = $findfile(" $+ $favorissearch.getrepIE $+ ",* $+ $replace($did(1),$chr(32),*) $+ *.url,0,did -a $dname 2 $remove($nopath($1-),.url))
      else var %a $favorissearch.view(* $+ $replace($did(1),$chr(32),*) $+ *)
    }
  }
}

alias favorissearch.getrep {
  if $com(f) { .comclose f }
  .comopen f WScript.Shell | if $comerr { return }
  var %a $com(f,SpecialFolders,3,uint,5) | var %f $com(f).result $+ \Mozilla\Firefox\ | .comclose f
  return %f $+ $readini(" $+ %f $+ profiles.ini $+ ",Profile0,path) $+ \bookmarks.html
}

alias favorissearch.view {
  var %f $favorissearch.getrep
  var %x 10
  while %x <= $lines(%f) {
    var %a = $left($read(%f,w,$utfencode($1-),%x),930)
    if (<DT><A HREF= isin %a) && ( data: !isin %a) { did -a favorissearch 2 $replace($utfdecode($remove($gettok(%a,$numtok(%a,34),34),</A>,>)),&,&,',',â?¼,¤,&#233;,é,é,é) | did -a favorissearch 3 $gettok(%a,2,34) }
    if ($readn == 0) return
    else var %x $calc($readn + 1)
  }
}

alias favorissearch.getrepIE {
  if $com(f) { .comclose f }
  .comopen f WScript.Shell | if $comerr { return }
  var %a $com(f,SpecialFolders,3,uint,15) | var %f $com(f).result $+ \ | .comclose f | return %f 
}

Conclusion :


pour le lancer il faut tapper la commande

/favorissearch

utilisation:

choisissez entre internet explorer et firefox

puis entrez les mots correspondant à ce que vous cherchez

les résultats s'affichent en temps réel

il ne vous reste plus qu'à double-cliquer sur la ligne correspondant à votre choix pour ouvrir la page.

fonctionne sur 2000 et XP uniquement.
Télécharger le projet

Codes Sources

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 (Bestdoud)