Yazım kontrolü ve düzenleyici. (Com objects.) - IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

**SuLh** · 06 Aralık 2020, 21:41

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)
}