IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   Tekrarlanan Karakter ve Sayısı (https://www.ircforumlari.net/mirc-parca-kodlar/610836-tekrarlanan-karakter-ve-sayisi.html)

Feragat 07 Eylül 2014 13:33

Tekrarlanan Karakter ve Sayısı
 
Fikir: @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kullanımı: /xxx text

Örnek: /xxx :))))) selammmmmmmmmmm ********** heyyyyyyy :D:D:D:D:D:D yeahhhhhhhhhhhhhhhhhhhhh

Sonuç:
Kod:

Text: :))))) selammmmmmmmmmm ********** heyyyyyyy :D:D:D:D:D:D yeahhhhhhhhhhhhhhhhhhhhh
1.Tekrarlanan_Karakter=)
Tekrar_Sayısı=5
2.Tekrarlanan_Karakter=m
Tekrar_Sayısı=11
3.Tekrarlanan_Karakter=*
Tekrar_Sayısı=10
4.Tekrarlanan_Karakter=y
Tekrar_Sayısı=7
5.Tekrarlanan_Karakter=h
Tekrar_Sayısı=21

Kod:

alias xxx {
  var %y = $$1-,%v = $+($chr(123),2,$chr(44),$chr(125)) | noop $regex(a,%y,/(\S)\1+/g) | echo -a Text: $1-
  var %x = $regsubex($regsubex(x,$str(*,$regml(a,0)),/\S/g,$regml(a,\n)),/(?<!^|$)/g, $regml(a,\1) $+ $+(%v,$chr(124)))) $+ %v
  var %z = $regsubex(l,%x,/([[:punct:]])\{..\}/g, \\1%v)
  noop $regex(h,%y,/( %z )/xg) | tokenize 32 $regsubex(sub,$str(*,$regml(h,0)),/./g, $&
    \n.Tekrarlanan_Karakter= $+ $left($regml(h,\n),1) Tekrar_Sayısı= $+ $len($regml(h,\n)) $chr(32))) | echo -a $*
}

Not: Kod geliştirilebilir. İyi forumlar.

Toprak 07 Eylül 2014 14:56

Cevap: Tekrarlanan Karakter ve Sayısı
 
Eline sağlık..

IrCbaStarD 07 Eylül 2014 19:39

Cevap: Tekrarlanan Karakter ve Sayısı
 
Eline sağlikda neden böle karısık yapion işin yoksa al kodu coz. asjdgksadsa cok ***y gözüküyor :D

Bekir 11 Eylül 2014 13:16

Cevap: Tekrarlanan Karakter ve Sayısı
 
güzel fikir olmuş :)

Feragat 20 Mart 2015 19:33

Cevap: Tekrarlanan Karakter ve Sayısı
 
Küçük bir fikir:

Kod:

alias x5 {
  if $regex($3-,/(\S)\1+/g) {
    %. = @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]rar
    if (!$window(%.)) window -ne %.
    %- = echo -t %.
    %- $+(<,$1,>) - $+(<,$2,>,:) $regsubex(x,$3-,/(\S)(\1+)/Sg, $&
      $+(\1,$chr(3),4,$chr(2),$chr(2),\2, $chr(15)))
    %- -
  }
}

on *:text:*:#:x5 # $nick $1-

- Yazılarda tekrar olduğunda, Tekrar penceresi içinde tekrar edilen kısımları kırmızı renklendirir. (Geliştirilebilir.)

Sonuç:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

AfraN 20 Mart 2015 21:32

Cevap: Tekrarlanan Karakter ve Sayısı
 
Kodu konuşturmuşsun yine @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çok güzel olmuş


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:16.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk