Correcteur

Soyez le premier à donner votre avis sur cette source.

Vue 4 303 fois - Téléchargée 153 fois

Description

Correcteur d'orthographe en dialog , source a améliorer et en cours d'amélioration .
Merci pour vos commentaires

Source / Exemple :


alias cor1 { dialog -m correction correction }
dialog correction {
  title "Correcteur  /cor1"
  size -1 -1 173 246
  option pixels notheme
  list 1, 8 80 157 144, size
  box "", 2, 2 -4 170 235
  box "", 3, 2 223 170 42
  text "Remplacer", 6, 7 9 55 16
  text "Par", 7, 7 31 21 16
  edit "", 8, 63 5 89 21, autohs
  edit "", 9, 27 27 89 21, autohs
  button "Ajouter", 10, 9 52 78 22
  button "Supprimer", 11, 87 52 78 22
  menu "Fichier"
  item "Fermer",90, 130 378 120 15,ok
}
on *:dialog:correction:*:*:{
  if ($devent == init) {
    dll dlls\mdx.dll SetMircVersion $version
    dll dlls\mdx.dll MarkDialog $dname
    dll dlls\mdx.dll SetControlMDX 1 ListView report single rowselect > views.mdx
    did -i $dname 1 1 headerdims 70 70
    did -i $dname 1 1 headertext Remplacer $chr(9) par
    didcor
  }
  if ($devent == sclick) {
    if ($did = 5) { dialog -m aidecor aidecor }
    if ($did = 10) {  
      if ($did(8) != $null && $did(9) != $null) {
        var %addcor = $did(8)
        var %addcor2 = $did(9)
        if ($exists(correction.txt) != $true) write correction.txt 
        if ($read -w $+ %addcor correction.txt == $null && $read -w $+ %addcor2 correction.txt == $nul) write correction.txt %addcor %addcor2
        didcor
      }
    }
    if ($did = 11) { 
      if !$did(1).sel { var %b $input(Aucune ligne selectionnée,300,Erreur) | halt }
      write -dl $calc($did(1).sel - 1) correction.txt
      didcor
    }
  }
}
alias didcor {
  did -r correction 1
  var %i 1
  while %i <= $lines(correction.txt) { 
    did -a correction 1 0 2 $gettok($read(correction.txt,%i),1,32) $chr(9) $gettok($read(correction.txt,%i),2-,32) 
    inc %i
  }
}
on *:input:*:{ 
  if ($left($1,1) !isin /.! ) {
    if (c isin $chan($active).mode) { say $1- | halt }
    if ($left($1,1) isin ) { say $1- | halt }
    if (%majus == on) { set %out $iif($left($1,1) isnum,$str($chr(160),1),) $upper($left($1,1)) $+ $right($1,$calc($len($1) - 1)) $2- }
    else set %out $iif($left($1,1) isnum,$str($chr(160),1),) $1-
    $corr(%out)
    if (%coul.fond) { 
      if (%gras == on) { set %out  $+ %coul.ecri $+ , $+ %coul.fond %out $+ $str($chr(160),1) }
      else { set %out %coul.ecri $+ , $+ %coul.fond %out $+ $str($chr(160),1) }
    }
    if (!%coul.fond) {
      if (%gras == on) { set %out  $+ %coul.ecri $+ %out }
      else { set %out %coul.ecri $+ %out }
    }
    if (%souligne == on) { set %out  $+ %out $+  }
    say %out 
    halt 
  } 
}

alias corr {
  var %x 1 
  while %x <= $lines(correction.txt) {
    if $gettok($read(correction.txt,%x),1,32) isin $1- {
      set %x1 $gettok($read(correction.txt,%x),1,32))
      set %x2 $gettok($read(correction.txt,%x),2-,32))
      set %out $replace($1-,%x1 ,%x2)
    }
    inc %x
  }
}

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

snip74
Messages postés
248
Date d'inscription
vendredi 3 novembre 2006
Statut
Membre
Dernière intervention
11 février 2013
-
Bonjour all,
je ne c'est pas pk j'arrive pas a le faire fonctionné :/ ni a l'accoupler avec mon code.
j'ai suivie le conseil de trouvé un autre mes aucun ne conviens ou compatible avec ma remote barre couleur sa fait un moment que je veut un correcteur sans sucer :s qu'elle qu'un peut m'aidai svp merci ? si oui me MP pour mon code perso car un poile tros long pour le placé ici
merci d'avance

Cordialement stéphane
snip74
Messages postés
248
Date d'inscription
vendredi 3 novembre 2006
Statut
Membre
Dernière intervention
11 février 2013
-
salut,
Domage car elle étais pas mal malgré les fautes mineur aprés tu peut la laissé peut être qu'une autre personne serra la modifier ou pourra sans servir ;)

Cordialement Stéphane
Orona
Messages postés
42
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
15 octobre 2011
-
Merci WorlDMT , j'avais oublié pour le if , mais c'est juste que depuis je n'avais pas corrigé la source et je souhaitais la supprimer.
WorldDMT
Messages postés
882
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
6 janvier 2012
1 -
oups un oublie dans le code

if $did == 11 {
if (!$did(1).sel) noop $input(Aucune ligne selectionnée,wo,Erreur)
else {
write -dl $({,$did(1).sel) correction.txt
didcor
}
}
WorldDMT
Messages postés
882
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
6 janvier 2012
1 -
if (%gras == on) { set %out  $+ %coul.ecri $+ , $+ %coul.fond %out $+ $str($chr(160),1) }

ça sert a quoi ce "$str($chr(160),1)"

en utilisant $input au lieu d'utilisé la commande /var utilise /noop
donc ton did == 11 devient
if $did == 11 {
if (!$did(1).sel) noop $input(Aucune ligne selectionnée,wo,Erreur)
else {
write -dl ${,$did(1).sel) correction.txt
didcor
}
}
et je t'avais dejà dis depuis a propos de if (c isin $chan($active).mode) il faut utilisé "isncs" donc ça devient if (c isincs $chan($active).mode) car il existe c et C

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.