06 Aralık 2020, 21:41 | #1 |
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. Kodalias 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) } Konu SuLh tarafından (06 Aralık 2020 Saat 21:44 ) değiştirilmiştir.. |
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|