| SuLh |
06 Aralık 2020 21:41 |
Yazım kontrolü ve düzenleyici. (Com objects.)
Kodun işlevi: Office programlarında ve/veya telefon klavyelerinde var olan hatalı yazımı düzeltme işlevini mIRC'te yapar.
Çalışması için gerekenler: Kod Microsoft Office 2016 Word kullanarak yazılmıştır. Diğer sürümlerde de çalışabilir ancak test edilmemiştir. (Bazı sürümlerde Outlook kullanıcı kaydı sorunu olabilmektedir. Deneyip yaşayan olursa hata mesajını paylaşabilir.)
Örnek kullanımlar:
Kod:
/dzn Habr gelmedii yardan
>> Onerilen cümle: Haber gelmedi yardan
Kod:
/dzn Selam iyi sen
>> Oneri yok: cumle tamamen dogru.
Kod:
alias dzn {
var %s $+(qw,$r(1,999)) | .comopen %s Word.Application
noop $com(%s, CheckSpelling, 3, bstr, $1-) | var %q $com(%s).result
if !%q { var %q1 1
while %q1 <= $0 { if $com(%s, CheckSpelling, 3, bstr, $($+($,%q1),2)) {
var %d $com(%s).result
if %d { var %kq $addtok(%kq,$($+($,%q1),2),32) }
else { var %kq $addtok(%kq,$right($sd($($+($,%q1),2)),-7),32) }
inc %q1
}
}
echo -a Onerilen cümle: %kq
}
else { echo -a Oneri yok: cumle tamamen dogru. }
noop $com(%s,Quit,1)
.comclose %s
}
alias sd {
var %şşş $+(com,$r(1,999)) | .comopen %şşş wscript.shell
.comclose %şşş $com(%şşş,run,1,bstr,cmd.exe /k $&
powershell $+($chr(36),dz=new-object -COM Word.Application;) $+($chr(36),dz.Documents.Add,$chr(40),$chr(41),;) $+($chr(36),dz.GetSpellingSuggestions,$chr(40),',$1,',$chr(41),;) $+($chr(36),dz.Quit,$chr(40),$chr(41)) $&
$+ |clip & exit,uint,0,bool,1)
return $cb(1260)
}
|
