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 12 02 01:35:08

ASTUCE WINDOWS : DéPLACER LES FENêTRES PERDUES D'UN éCRAN INEXISTANT VERS MON éCRAN PRINCIPAL par cyril

TEAM SYSTEM DATABASE EDITION : VERSION FINALE DISPONIBLE DE CETTE NOUVELLE MISE à JOUR DE LA VERSION 2008 par christian

[LINQ TO WIQL] LES DESSOUS DU PROVIDER (PART 1: INTRODUCTION) par Miiitch

SHAREPOINT 2007 : ACTIVATION DE FEATURES ET ACTIVATIONDEPENDENCIES par phil

DOCUMENT W3C SUR L'ACCESSIBILITé DE SILVERLIGHT 2.0 par neodante

IRC BOT POE::COMPONENT::IRC::SERVICE::P10 par Loveurs

OUVRIR DES LIENS PLOQUé par marewnup

JEUX SLOT FRUIT par PO1764

RE : LOG DE CHAN AVEC BOT IROFFER par vandragonheart

RE : LOG DE CHAN AVEC BOT IROFFER par PaDa

+ de logiciels à télécharger

1 301 144 membres
31 nouveaux aujourd'hui
14 547 membres club

Trouver une ressource

Trouvez une ressource parmi 39 071 codes, 1 207 981 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 !

SNIPPET: $REPLACETXT

Information sur la source

Catégorie :Divers Niveau : Initié Date de création : 27/08/2004 Vu : 1 365

Auteur : _VeSpArO_

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (8)

Ajouter un commentaire et/ou une note

Description

Utilisation:
//echo -a $replacetxt(fichier.txt,mot1,mot2)
Pour l'option fichier spécifié le fichier txt dans lequel se trouve mot1.
Pour l'option mot1 spécifié le mot a remplacer par mot2.
Pour l'option mot2 spécifié le mot pour remplacer mot1.
Le code retourne directement le nombre de fois se trouve mot1 dans le fichier txt.
Snippet entierement codé en hashtables!
Au début j'était parti pour le faire avec un simple write puis après je voulai utiliser le file handling(que je vien d'apprendre) mais je n'y arriver pas donc j'ai appris les hashtables et je l'ai codé.

Source

alias replacetxt { if ($hget(replacetxt)) { hfree replacetxt }
if $3 { var %xx $1, %x: $2, %x:: $3, %o: 0, %a: 1 | .hmake replacetxt 100 }
while (%o: <= a:) {
%H = $hfind(replacetxt,%a:).data
inc %x $regsub(%H,$3,%H)
hadd replacetxt %a: $2 %H
hsave -bo replacetxt %xx
inc %a:
}
return %x
}

alias replacetxt { if ($hget(replacetxt)) { hfree replacetxt }
  if $3 { var %xx $1, %x: $2, %x:: $3, %o: 0, %a: 1 | .hmake replacetxt 100 }
  while (%o: <= a:) {
    %H = $hfind(replacetxt,%a:).data
    inc %x $regsub(%H,$3,%H)
    hadd replacetxt %a: $2 %H
    hsave -bo replacetxt %xx
    inc %a:
  }
  return %x
}

Conclusion

Si bug dites le moi :D
Merci a PaDa pour son aide sur le forum =)

Sources du même auteur

HIGHLIGHT MANAGER V1.0

Toutes les sources de _VeSpArO_

Sources de la même categorie

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

ALGORITHME A* par fjxokt

Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de PaDa le 27/08/2004 01:48:12

$regsub(%H,$3,%H)
> * Invalid parameters: $regsub (line *,******.mrc)
syntaxe : $regsub(ce dans quoi on cherche, mask , remplacement , var ) donc il manque un argument

Sinon c'est ptet astucieux d'utiliser les hashtables (j'ai pas pigé tout le remote la encore) mais je pense que tu t'y prends mal :
avec $hfind tu vas trouver la n-ième item matchant un text et ensuite tu réécris par dessus la N-ième item tout court (qui n'est pas forcément la même) donc bon ... (d'ailleurs il manque certainement un argument a $hfind)

sinon dans le principe , il est tard mais voila ce que je pige pas : tu fais un hmake pour ta table , ok . elle est vide . tu fais un $hfind ensuite (enfin si ya le bon nombre d'arguement mais je doute fortement) , la table est toujours vide . et ensuite tu sauves la table (toujours vide) dans le fichier de départ ... en admettant que celle ci ne soit pas vide tu la sauves en binaire (switch -b) c'est du vice lol :p

enfin la boucle est inutile puisqu'il n'y a pas plusieurs tours

reprends un ti peu ton code , cette facon de faire peut etre très intéressante je pense mais la c'est pas fonctionnel ...ou chu endormi ... :(

Commentaire de PaDa le 27/08/2004 02:28:32

je retire la boucle qui sert a rien :
%o: 0, %a: 1 puis while (%o: <= a:) et a chaque tour de boucle tu incrémentes %a: ... si yavait pas d'erreur de syntaxe avant -> freeze (1,2,3,4,...,10millions sont supérieurs a 0...)

vala le code de départ que je t'avais proposé sur le forum à epsilon près :
Alias replacetxt {
  var %x 0, %i 1 , %imax $lines($1) , %2 = $+(/,$2,/g,$prop) , %L
  while (%i <= %imax) {
    inc %x $regsub($read($1,%i),%2,$3,%L)
    write -l $+ %i $1 %L
    inc %i
  }
  return %x
}

voici une version file handling certainement très optimisable , utilisant deux fichiers :
Alias replacetxt {
  var %x 0, %2 = $+(/,$2,/g,$prop) , %L , %i 1 , %m $lines($1)
  .fopen txt1 $1
  .fopen -no txt2 tmp- $+ $1
  while %i <= %m {
    inc %x $regsub($fread(txt1),%2,$3,%L)
    .fwrite -n txt2 %L
    inc %i
  }
  .fclose txt?
  .copy -o tmp- $+ $1 $1
  .remove tmp- $+ $1
  return %x
}
(tofu avait posté un truc aussi , cf le forum , du file handling mais en bien plus court et propre je crois)
reprends ton code si tu peux , je suis impatient de voir une version corrigée en hashtables :)