CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 11 13:58:10

LE NOUVEAU GOJIRA, C'EST POUR LUNDI. par coq

SHAREPOINT : NOUVEL ARTICLE SUR LA MISE EN PLACE DES SCOPES DANS MOSS SEARCHS par ROMELARD Fabrice

HELLO CS par julz

MSDN/TECHNET/MICROSOFT DAYS TOUR 2008 à LILLE LES 13 ET 14 OCTOBRE ! par redo

MVC PRATIQUE #07 - UN PROJET CONCRET ET LE TRANSFERT DES OBJETS AVEC LES MODELBINDERS par Rui

RE : UN BOT IRC EN PERL POUR ORANGE/VOILà par tcyrill2

RE : PETITE CODE POUR BOT MIRC par WorldDMT

RE : PETITE CODE POUR BOT MIRC par SynteZ

RE : UN BOT IRC EN PERL POUR ORANGE/VOILà par PaDa

RE : DEOP par PaDa

+ de logiciels à télécharger

1 259 849 membres
270 nouveaux aujourd'hui
14 408 membres club

Trouver une ressource

Trouvez une ressource parmi 38 820 codes, 1 185 672 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

IDENTIFIEUR QUI PERMET DE RETOURNER LE NIÈME CARACTERE D'UNE CHAÎNE DEPUIS LA GAUCHE OU LA DROITE

Information sur la source

Catégorie :Divers Niveau : Débutant Date de création : 31/05/2004 Date de mise à jour : 08/12/2004 18:26:28 Vu / téléchargé: 1 240 / 27

Auteur : darkyojimbo2

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (16)

Ajouter un commentaire et/ou une note

Description

Mon code est un identifieur qui permet de retourner le nième caractère d'une chaîne en partant de la droite ou de la gauche selon la propriété choisie.

Il s'appelle $substr (sous-chaîne).
Voici sa syntaxe :
$substr(string,N).propriété
Les deux porpriétés sont les suivantes:
1. r (raccourci de right)=> si on veut que l'identifieur retourne le nième caractère en partant de la droite de la chaîne.
2. l (raccourci de left) => si on veut que l'identifieur retourne le nième caractère en partant de la gauche de la chaîne.

Exemple:
//echo -a $substr(salut,2).l retourne a
//echo -a $substr(salut,2).r retourne u

Merci à Kerrigan et PaDa pour leurs commentaires.

Source

;######################################################################
;Date : 31.05.2004
;Auteur : -Carton-
;Contact : anneau_nynme@hotmail.com
;Vous pouvez diffuser et utiliser ma source tant que mon nom et la date de création restent clairement visibles et que vous ne la modifiez pas.
;La modification de cette source est permise seulement en cas d'utilisation personnelle.
;######################################################################
alias substr {
if $2 {
if $2 > $len($1) return $1
elseif $prop == r {
return $left($right($1,$2),1) }
elseif $prop == l {
return $right($left($1,$2),1) } }
else return Erreur de syntaxe }

;######################################################################
;Date : 31.05.2004 
;Auteur : -Carton-
;Contact : anneau_nynme@hotmail.com
;Vous pouvez diffuser et utiliser ma source tant que mon nom et la date de création restent clairement visibles et que vous ne la modifiez pas. 
;La modification de cette source est permise seulement en cas d'utilisation personnelle.
;######################################################################

alias substr {
  if $2 {
    if $2 > $len($1) return $1  
    elseif  $prop == r {
      return $left($right($1,$2),1) }
    elseif $prop == l {
      return $right($left($1,$2),1) } }
  else return Erreur de syntaxe }

Conclusion

J'attends vos commentaires ;) et prenez en considération QUE JE NE CONNAISSAIS PAS $MID (je crie pas, je mets juste en évidence) avant de faire cet identifieur.

@+

-Carton-

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

aide.txt 981 octets
code source.txt 762 octets

Télécharger le zip

Historique

08 décembre 2004 18:26:28 :: Code amélioré, Correction de l'orthographe. Rien de bien spécial donc...

Sources du même auteur

ETUDIER SON VOCABULAIRE GRACE À MIRC

Toutes les sources de darkyojimbo2

Sources de la même categorie

THE AOMEUS PROJECT :P par monsieur_canard

WORLDDMT - GESTION DE CAISSE V 1.0 par WorldDMT

ALIASES POUR FASCILITER L'USAGE DE MDX (FRAMEWORK) par hisoka2501

PACMAN ONLINE - 4 JOUEURS par wims

REPONDEUR ASSER SIMPLE BY W4X TAPER /REP POUR L'OUVRIR par confus1on

Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de ReMi34 le 31/05/2004 13:52:49

Bravo, bien joué, trés utile ;)

Commentaire de Hades53 le 31/05/2004 14:25:39

Je suis désolé de te décevoir, mais mIRC offre déjà cette possibilité avec l'identifieur $mid.

$mid(salut,2,1) retourne a
$mid(salut,-2,1) retourne u

Commentaire de darkyojimbo2 le 31/05/2004 14:27:47

Je ne connaissais pas cet identifieur. :(

Ca me deçoit vraiment mais c'est pas trop grave. Je trouve que mon identifieru est plus simple et il m'aide dans mes devellopements.

Commentaire de Hades53 le 31/05/2004 14:40:49

Sinon question code, rien à dire, il est très bien codé.
À défaut qu'on peut faire cela avec une fonction de mIRC, au moins ça t'apporte de l'expérience.

Commentaire de darkyojimbo2 le 31/05/2004 14:52:20

oue t'as raison ^^
Merci Hades

Commentaire de PaDa le 31/05/2004 15:43:23

comme l'a dit Hades $mid fait déja ca . sinon j'vais ptet t'embêter mais ton truc marche pas.
si ya des gens qui lisent mon comment , quand on veut traiter une chaine de caractère proprement , gèrer des positions , des ordres etc il ne faut JAMAIS UTILISER $REPLACE
lol
pardon :x
essaie ca :
//echo -a > $substr(aaa,2).left :)
faire un $right($left($1,$2),1) eu été bien plus judicieux ... (pour le cas 'left' ...)
bonne continuation

Commentaire de darkyojimbo2 le 31/05/2004 15:50:00

ah oui j'avais pas pensé à ce problème là, merci je vais corriger ça. ;)

Commentaire de darkyojimbo2 le 31/05/2004 15:56:56

Voila, c'est corrigé.

Commentaire de PaDa le 31/05/2004 16:22:34

nickel d'autant que c plus lisible .
sinon je vois pas l'intérêt de distinguer le cas "$2 == 1" ...
bonne continuation a+

Commentaire de darkyojimbo2 le 31/05/2004 16:25:47

T'as tout a fait raison ! Je corrige

Commentaire de Kerrigan le 02/06/2004 13:01:26

petit remaniment

alias substr {
    ;on place cette ligne au debut pour bloquer
    ;l'éxécution du code en cas d'érreurs
    if !$1 || !$2 || !$prop { return Erreur de syntaxe }
    ;ici pas de elseif car le return va bloquer le code en cas
    ;d'érreur dans les arguments.
    if $1 && $2 && $prop = right {
    if $2 >= 1 { return $left($right($1,$2),1) } }
    ;on met un elseif, car il ne sert a rien de verifier cette condition
    ;si la premiere ($prop = right) est verifiée
    elseif $1 && $2 && $prop == left {
    if $2 >= 1 { return $right($left($1,$2),1) } }
    ;cette ligne est répétée inutilement
    ;on la met a la fin car on a deja verifier
    ;que $1 $2 et $prop existen
    if $2 > $len($1) { return $1 }
}

ce qui donne sans les commentaires :

alias substr {
     if !$1 || !$2 || !$prop { return Erreur de syntaxe }
     if $1 && $2 && $prop = right {
     if $2 >= 1 { return $left($right($1,$2),1) } }
     elseif $1 && $2 && $prop == left {
     if $2 >= 1 { return $right($left($1,$2),1) } }
     if $2 > $len($1) { return $1 }
}

au bilan on a gagner une ligne et le code est agencé avec plus de logique.

Domage pour $mid lol mais c'est pas grave au moins tu sais la coder !

Commentaire de darkyojimbo2 le 02/06/2004 13:11:36

merci pour ton commentaire Kerrigan et merci aussi à PaDa

Commentaire de PaDa le 02/06/2004 13:15:23

/me se permet :p
faut mettre le if $2 > $len($1) { return $1 } en début après le test de validité :)
sinon un return aura forcément print/break l'alias avant =) ou alors je pige pas l'utilité de cette ligne :/
mais c'est vrai que l'on gagne en organisation

alias substr {
     if !$1 || !$2 || !$prop { return Erreur de syntaxe }
     if $2 > $len($1) { return $1 }
     if $1 && $2 && $prop = right {
     if $2 >= 1 { return $left($right($1,$2),1) } }
     elseif $1 && $2 && $prop == left {
     if $2 >= 1 { return $right($left($1,$2),1) } }
}

Commentaire de Hades53 le 02/06/2004 20:55:29

"if !$1" devrait être remplacé par "if $1 == $null", if !$1 est confirmé si $1 vaut 0, donc par exemple: $substr(00.000,3).left retournera "Erreur de syntaxe" au lieu du caractère ".".
Attention avec l'utilisation de !.

Et je ne vois pas pourquoi mettre 'if $1 && $2' car si on est à ce stade $1 vaut quelque chose et $2 aussi (cf. première ligne), bon après il y a encore place à l'optimisation, regardez le code ci-dessous.

alias substr {
  if ($1 == $null || (!$2) || (!$prop)) return Erreur de syntaxe
  if (($2 < 1) || ($2 > $len($1))) return
  if ($prop == right) return $left($right($1,$2),1)
  if ($prop == left) return $right($left($1,$2),1)
}

Bon, sinon pour ce code on aurait aussi pu procéder ainsi (plus lent par contre):

alias substrb {
  if ($prop == left) {  var %exp = $regex($1,^.{ $+ $calc($2 -1) $+ }(.)) | return $regml(1)  }
  if ($prop == right) { var %exp = $regex($1,(.).{ $+ $calc($2 -1) $+ }$) | return $regml(1) }
}