Accueil > > > CORRECTEUR
CORRECTEUR
Information sur la source
Description
Correcteur d'orthographe en dialog , source a améliorer et en cours d'amélioration .
Merci pour vos commentaires
Source
- 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
- }
- }
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
}
}
Historique
- 14 mai 2009 18:19:20 :
- Ajout mdx.dll
- 20 août 2009 16:13:05 :
- Titre changé
Sources du même auteur
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Activer/désactiver dans un input [ par Camanche ]
Bonjour, je cherche désespéremment la condition à mettre dans mon input pour savoir si l'addon est activé ou pas. Voici le code: alias cor { dialog -
Correcteur de script... [ par Freeride1979 ]
Salut à tous, Je suis en train de chercher la seul et unique erreur dans mon script signalé par flash et à ce pr
correction, niveau faible [ par seyo ]
Bonjour, je souhaiterais creer un code pour op une certaine personne sur un certain channel, j'ai donc lu l'aide des code dans mIRC, mais ça ne f
|
Derniers Blogs
CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril
Forum
RE : AIDERE : AIDE par Nico26000
Cliquez pour lire la suite par Nico26000 RE : AIDERE : AIDE par WorldDMT
Cliquez pour lire la suite par WorldDMT AIDEAIDE par Nico26000
Cliquez pour lire la suite par Nico26000
Logiciels
Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning Academy System (17.1.3.0)ACADEMY SYSTEM (17.1.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|