Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 126 fois - Téléchargée 29 fois
alias gdb_get { unset %str | var %i 1 | while (%i <= $lines($1)) { if ($left($read($1,%i),1) == $chr(60)) { set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1)) if (%table == $2) { var %o $calc(%i + 1) | while (%o <= $lines($1)) { if ($left($read($1,%o),1) != $chr(60)) { if ($gettok($read($1,%o),1,61) == $3) { set %str $gettok($gettok($read($1,%o),2,61),$4,28) break } } else { break } inc %o } } } inc %i } return %str } alias gdb_put { unset %antvalue | unset %table if (!$gdb_table_exists($1,$2)) { write $1 < $+ $2 $+ > | write $1 $chr(32) } if ($gdb_get($1,$2,$3,1)) { var %i 1 | while (%i <= $lines($1)) { if ($left($read($1,%i),1) == $chr(60)) { set %table $right($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1))) - 1)) if ($2 == %table) { var %o = $calc(%i + 1) | while (%o <= $lines($1)) { if ($left($read($1,%o),1) != $chr(60)) { if ($gettok($read($1,%o),1,61) == $3) { set %antvalue $gdb_get($1,$2,$3,1-) | write -dl $+ %o $1 write -il $+ %o $1 $3 $+ = $+ %antvalue $+ $chr(28) $+ $4- | break } } inc %o } } } inc %i } } else { var %i 1 | while (%i <= $lines($1)) { if ($left($read($1,%i),1) == $chr(60)) { set %table $right($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1))) - 1)) if ($2 == %table) { write -il $+ $calc(%i + 1) $1 $3 $+ = $+ $4- | break } } inc %i } } } alias gdb_table_exists { set %tableexists $false | var %i 1 | while (%i <= $lines($1)) { if ($left($read($1,%i),1) == $chr(60)) { set %table $right($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1))) - 1)) if ($2 == %table) { set %tableexists $true | break } } inc %i } return %tableexists } alias gdb_create_table { if (!$gdb_table_exists($1,$2)) { write $1 < $+ $2 $+ > | write $1 $chr(32) } } alias gdb_delete_item { var %i 1 | while (%i <= $lines($1)) { if ($left($read($1,%i),1) == $chr(60)) { set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1)) if (%table == $2) { var %o = $calc(%i + 1) | while (%o <= $lines($1)) { if ($left($read($1,%o),1) != $chr(60)) { if ($gettok($read($1,%o),1,61) == $3) { write -dl $+ %o $1 | break } } else { break } inc %o } } } inc %i } } alias gdb_delete_value { var %i 1 | while (%i <= $lines($1)) { set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1)) if (%table == $2) { var %o = $calc(%i + 1) | while (%o <= $lines($1)) { if ($left($read($1,%o),1) != $chr(60)) { if ($gettok($read($1,%o),1,61) == $3) { write -l $+ %o $1 $3 $+ = $+ $deltok($gdb_get($1,$2,$3,1-),$4,28) break } } else { break } inc %o } } inc %i } } alias gdb_replace_value { var %i 1 | while (%i <= $lines($1)) { set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1)) if (%table == $2) { var %o = $calc(%i + 1) | while (%o <= $lines($1)) { if ($left($read($1,%o),1) != $chr(60)) { if ($gettok($read($1,%o),1,61) == $3) { write -l $+ %o $1 $3 $+ = $+ $puttok($gdb_get($1,$2,$3,1-),$5-,$4,28) break } } else { break } inc %o } } inc %i } } alias gdb_delete_table { unset %db | var %i 1 | while (%i <= $lines($1)) { set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1)) if (%table == $2) { set %db %i | var %o = $calc(%i + 1) | while (%o <= $lines($1)) { if ($left($read($1,%o),1) != $chr(60)) { write -dl $+ %o $1 | dec %o } else { break } inc %o } } inc %i } if (%db) { write -dl $+ %db $1 } } alias gdb_tables { ;$gdb_tables(fichier.gdb) unset %table_list | var %i 1 | var %tables 0 | while (%i <= $lines($1)) { if ($left($read($1,%i),1) == $chr(60)) { inc %tables set %table_list $addtok(%table_list,$right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1)),32) } inc %i } return %tables %table_list } alias gdb_items { ;$gdb_items(fichier.gdb,table) unset %items | unset %item_list | var %i 1 | while (%i <= $lines($1)) { if ($left($read($1,%i),1) == $chr(60)) { set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1)) if (%table == $2) { var %o $calc(%i + 1) | var %items 0 | unset %item_list | while (%o <= $lines($1)) { if ($left($read($1,%o),1)) { if ($left($read($1,%o),1) != $chr(60)) { inc %items | set %item_list $addtok(%item_list,$gettok($read($1,%o),1,61),32) } else { break } } inc %o } } } inc %i } return %items %item_list }
Commentaires
G-rien oublié G-spère...allez, en période de vacances on peut sourire en usant un peu de cette réponse...
Bye l'Ami.
signé un vieux de 58 ans...! lol.
Bon, blagues mises à part, je n'ai pas envie d'éveiller votre curiosité mais bon... en gros je suis le seul à connaître la signification de la lettre sacrée G. :p
Au moins Kerrigan, ça a l'avantage de tout de suite savoir qui a fait ça :)
Kerri++
tu es vraiment obliger de mettre un "G" devant tous des addon ?! moi ça me tu ...
Des fois je me demande si tu n'as pas une G fourchette ou des G vetements :D
Libre a toi de me repondre c juste que voir des G partout a force ça me fais peur. lol
"l'invasion des G mouhahahahahahaha"
C'etait G Kerrigan pour G-Tv :))))))
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.