Ranger vos url !

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 259 fois - Téléchargée 31 fois

Contenu du snippet

C'est un dialog qui retien les url que vous le dite, il peu egalement les supprimer. Un peu comme des " Favories "

Source / Exemple :


dialog Url {
  title "Gestionnaire d'url"
  size -1 -1 211 211
  option dbu
  list 1, 3 7 200 125, size vsbar
  button "Effacer", 2, 28 163 37 12, flat
  edit "", 3, 16 142 125 10, autohs
  button "Ajouter", 4, 150 141 37 12, flat
  button "Echo", 5, 76 163 37 12, flat
  button "Dire", 6, 123 163 37 12, flat
  button "Fermer", 7, 23 180 150 12, ok, flat
  box "" ,8, 1 1 205 195
  box "",9,3 135 200 20
  text "Url:",10,5 144 10 8
}
on *:dialog:Url:*:*:{
  if $devent == init  { if $exists(url.txt) { loadbuf -ro url 1 url.txt } }
  If $devent == Sclick {
    if $did == 4 { write -a Url.txt $did(3) | loadbuf -ro url 1 url.txt }
    If $did == 5 { if ($did(1).seltext != $null) { scid $activecid | echo $active $did(1).seltext } }
    if $did == 6 { if ($did(1).seltext != $null) { scid $activecid | msg $active $did(1).seltext } }
    If $did == 2 { if ($did(1).seltext != $null) { scid $activecid | write -dl $+ $did(1).seltext url.txt | loadbuf -ro url 1 url.txt } }
  }
  if $devent == dclick { 
    if $did == 1 { run $did(1).seltext }
  }
}

Menu Channel,menubar {
  -
  - Gestionaire d'url -:/dialog -m url url 
}

Conclusion :


Voilà j'ai pas eu de bug sauf au 1° demarage où il ne trouve pas " url.txt " mais apres sa va tout seul ^^

Si je peu ameliorer dite le moi, et dite aussi si il y a des bug :)

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1726
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
1
faudrait être un gros neuneu, en attendant c'est une possibilité de bug. je vois pas ce que ça coute d'utiliser le bon identifieur à savoir la negation "!": !$did(1).seltext = rien et même pas zero.
et personnellement pour "gérer" les erreurs je mettrais
if $devent == init { $iif($exists(url.txt),loadbuf -ro url 1 url.txt,did -ra $dname 1 Fichier url.txt Inexistant) }
Messages postés
290
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
29 février 2008

treeview au lieu des tabs =) (mdx.dll)
Messages postés
119
Date d'inscription
mercredi 7 avril 2004
Statut
Membre
Dernière intervention
30 juin 2005
1
Tofu : faudrai étre un gro neuneu pour pas surligner un text ...
Sinon j'ai fait une maj ^^
Messages postés
1726
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
1
"if ($did(1).seltext != $null) " et si "$did(1).seltext" est égal à zero, ça fait quoi ? Ca va bug.
Messages postés
25
Date d'inscription
mardi 31 août 2004
Statut
Membre
Dernière intervention
12 octobre 2004

Le concepte est relativement original mais je trouve ça pas assez complet, je m'explique:
-déjà le dialog n'est pas très beau.
-tu pourrais faire des classes d'url c'est a dire par types donc comme la dit Huitre utilise les fichier .ini qui sont plus configurables tu pourrais les ranger par section au lieu d'en faire plusieur(sur les fichiers .txt)
-au lieu de if (condition != $null) tu pourrai l'optimiser je sais plus de quelle manière mais je vais regarder
-après prend en compte les commentaires des autres qui sont pertinents.

donc bonne continuation et develloppe nous tout ça =)
6/10
Afficher les 8 commentaires

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.