$regsubex($regsubex($1-,/(\s+)/ig,$+(\t,%~s)),/([[:print:]]
[^_])/ig,$+(\t,$chr(32)))
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:05 -->-> Daha önceki mesaj 15:04 --
Aslında kod doğru çalışıyor..
problem mIRC kendisinde..
BUG yani hata var..
birlikte iken harfler doğru UTF8 çözümlerken aralarına ektra boşluk yada
görünmez karekter eklenince hata oluşuyor.. düzeltmenin birçok yolu var..
ama yinede çözüm degil.. sende doğru görünse bile karşındakinde hatalı olabilir
onda hatalı görünse de sende doğru görünebilir..
en pratik çözüm alternatifleriyle kontrol yapmak..
dier arkadaşın verdiği kod "replace" ile çalışır.. o da saglıklı çalışmaz tekrar eden
kelimeleri tek olarak gösterecektir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*: {
if $regex($window($active).type,/(Query|Channel)/ig) && !$regex($1,/(^\/)/) && !$ctrlenter {
haltdef
;var %~s $str($+($chr(32),$chr(160)),4)
var %~s $str(_,4)
var %t~ $regsubex($regsubex($1-,/(\s+)/ig,$+(\t,%~s)),/([[:print:]][^_])/ig,$+(\t,$chr(32)))
echo 1 : msg $target %t~
echo 3 : msg $target $utfdecode($utfencode(%t~),0)
echo 2 : msg $target $utfdecode($utfencode(%t~),1)
echo 4 : msg $target $utfdecode($utfencode(%t~),2)
echo 5 : msg $target $utfdecode($utfencode(%t~),160)
echo 7 : msg $target $utfdecode($utfencode(%t~),161)
echo 14 : msg $target $utfdecode($utfencode(%t~),162)
}
}
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
| Alıntı: |
- 000 - ANSI_CHARSET
- 001 - DEFAULT_CHARSET
- 002 - SYMBOL_CHARSET
- 077 - MAC_CHARSET
- 128 - SHIFTJIS_CHARSET
- 129 - HANGEUL_CHARSET
- 130 - JOHAB_CHARSET
- 134 - GB2312_CHARSET
- 136 - CHINESEBIG5_CHARSET
- 161 - GREEK_CHARSET
- 162 - TURKISH_CHARSET
- 163 - VIETNAMESE_CHARSET
- 177 - HEBREW_CHARSET
- 178 - ARABIC_CHARSET
- 186 - BALTIC_CHARSET
- 204 - RUSSIAN_CHARSET
- 222 - THAI_CHARSET
- 238 - EASTEUROPE_CHARSET
- 255 - OEM_CHARSET
|