Tekrarlanan Karakter ve Sayısı

Kullanımı: /xxx text

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

Sonuç:

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

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

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 $*
}