|
25 Ocak 2015, 23:33 | #1 |
Bir umuttur yaşamak
Üyelik tarihi: 09 Eylül 1991
Bulunduğu yer: Konya Mesajlar: 323 WEB Sitesi: https://www.teklan.com.tr/ IRC Sunucusu: irc.teklan.com.tr İlgi Alanı: mIRC Scripting Alınan Beğeni: 211 |
Tekrarlanan Karakter ve Sayısı
Fikir: @IrCbaStarD
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 $* } Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
|
Alıntı
|
Etiketler |
karakter, sayısı, tekrarlanan |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Pegasus'un yolcu sayısı arttı | IF-Haber | Ekonomi Haberleri | 0 | 16 Temmuz 2016 12:53 |
Kanal yetkili sayısı. | Code | IRCServices Hazır Kodlar | 0 | 26 Eylül 2015 10:39 |
Karakter engelleme modülü. | Entrance | Unreal - Hazır Kodlar | 1 | 06 Eylül 2015 13:55 |
IRCServices(NICK info'da autojoin kanal sayısı..) | Entrance | IRCServices Hazır Kodlar | 0 | 04 Nisan 2015 17:45 |
CR de Nick Karakter Kısıtlama | Goemon | ConferenceRoom | 0 | 07 Mart 2015 16:05 |