IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Yazım kontrolü ve düzenleyici. (Com objects.)

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - Yazım kontrolü ve düzenleyici. (Com objects.) (https://www.ircforumlari.net/mirc-parca-kodlar/890301-yazim-kontrolu-ve-duzenleyici-com-objects.html)

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.

Kod:

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

}

Cevap: Yazım kontrolü ve düzenleyici. (Com objects.)

Gelen soru neticesinde sadece yanlış yazılan kelimelerin tespiti için:

Kod:

alias iml {

  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 { echo -a Bu doğru: $($+($,%q1),2) } 

        else { echo -a Bu yanlış: $($+($,%q1),2) } 

        inc %q1

      }  

    }

  }

  else { echo -a Cümle tamamen doğru. }

  noop $com(%s,Quit,1)

  .comclose %s

}

Sonuçlar:

Kod:

/iml Şu an da imla kurallarına uyuyorum.
 

>> Cümle tamamen doğru.

Kod:

/iml Yanlışşş yazımm hatası buu
 

>> Bu yanlış: Yanlışşş

>> Bu yanlış: yazımm

>> Bu doğru: hatası

>> Bu yanlış: buu

Cevap: Yazım kontrolü ve düzenleyici. (Com objects.)

Güzel calışma paylaşım için teşekkürler

Cevap: Yazım kontrolü ve düzenleyici. (Com objects.)

Elinize emeginize saglik