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/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   RADYO.TCL Türkçe karakter sorunu (https://www.ircforumlari.net/eggdrop-neostats-bnc/671291-radyotcl-turkce-karakter-sorunu.html)

OzeL 15 Ocak 2015 18:53

RADYO.TCL Türkçe karakter sorunu
 
Merhaba arkadaşlar. Radyo.tcl'de çalan parça veya dj'in ek aldığı türkçe karakterler,sunucu içerisinde Xc43 Gibi göstermektedir. Bunun çözümünü bilen arkadaşlardan rica üzerine düzgün bir halini vere bilir mi? yada yapa bilir mi ?


TCL'deki Kodlar


PHP- Kodu:

if {($tellsongs == 1) && ($oldsong != $cursong) && ($streamstatus == "isonline: 1") } {

if {
$songurl != ""} { set songurl " ($songurl)"}

regsub -all "<" $cursong "<" cursong

regsub 
-all ">" $cursong ">" cursong

regsub 
-all "&" $cursong "+" cursong

regsub 
-all "&#x22;" $cursong "\"" cursong

regsub 
-all "&#x27;" $cursong "'" cursong

regsub 
-all "ÿ" $cursong "" cursong

poststuff privmsg 
"0,7Dj $stitle 0,4 Calan parca : 9,1 [lrange $cursong 1 [llength $cursong]]$songurl 0,4 Yayın türü <<<< 0,1 $sgenre 0,7 >>>> "




read-only 17 Ocak 2015 13:06

Cevap: RADYO.TCL Türkçe karakter sorunu
 
Alıntı:

OzeL Nickli Üyeden Alıntı (Mesaj 1041592369)
Kod:

regsub -all "ÿ" $cursong "" cursong

TCL programlamadan anlamam ama üstteki satır, eğer buraya kopyalarken bir hata olmadıysa, yanlış gibi duruyor. Üstteki satırlardan tahmin ettiğim kadarıyla, kırmızı olarak renklendirdiğim karakterin, boşluk karakteri olması gerekebilir. Kodu alttaki gibi değiştirip dener misiniz?

Kod:

regsub -all " & # x20; " $cursong "" cursong
Yalnız yazarken, karakterleri bitişik yazmayı unutmayın.

saywhat 18 Ocak 2015 01:41

Cevap: RADYO.TCL Türkçe karakter sorunu
 
bunları tek tek ayıklamaya uğraşmak yerine, ayrı bir html kodlarını ayıklama/çevirme prosedürü (yazıp/hazırlayıp burada paylaştığım scriptlerde bunları görebilirsiniz.örneğin son dakika haber scriptinde kullanmak için hazırladığım prosedür bu script için de denenebilir .o scriptde de veri alınan siteden Türkçe karakterler ve daha pekçok veri html karakterleriyle geliyordu,bunlar ayrı bir ,hatta iki prosedürle onarıldı..bu script içinde kullanabilirsiniz.) yada tcllib htmlparse paketinin ( ::htmlparse::mapEscapes ) getirdiği özellikleri kullanabilirsiniz. -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

OzeL 30 Ocak 2015 02:50

Cevap: RADYO.TCL Türkçe karakter sorunu
 
Yardımcı olan arkadaşlara teşekkürler,olmayanlarada ben olayım.


PHP- Kodu:

regsub -all "<" $songs "<" songs
regsub 
-all ">" $songs ">" songs
regsub 
-all "&" $songs "+" songs
regsub 
-all "&#x22;" $songs "\"" songs
regsub 
-all "&#x27;" $songs "'" songs
regsub 
-all "ÿ" $songs "" songs
regsub 
-all "ö" $songs "ö" songs
regsub 
-all "ä" $songs "ä" songs
regsub 
-all "ü" $songs "ü" songs
regsub 
-all "Ö" $songs "Ö" songs
regsub 
-all "Ä" $songs "Ä" songs
regsub 
-all "Ü" $songs "Ü" songs
regsub 
-all "ß" $songs "ß" songs
regsub 
-all "ı" $songs "ı" songs
regsub 
-all "&" $songs "feat." songs
regsub 
-all "ç" $songs "ç" songs
regsub 
-all "ğ" $songs "ğ" songs
regsub 
-all "ı" $songs "ı" songs
regsub 
-all "İ" $songs "İ" songs
regsub 
-all "ö" $songs "ö" songs
regsub 
-all "ş" $songs "ş" songs
regsub 
-all "Ç" $songs "Ç" songs
regsub 
-all "Ğ" $songs "Ğ" songs
regsub 
-all "Ö" $songs "Ö" songs
regsub 
-all "Ş" $songs "Ş" songs
regsub 
-all "ü" $songs "ü" songs
regsub 
-all "Ü" $songs "Ü" songs
regsub 
-all "¿" $songs "¿" songs
regsub 
-all "<" $songs "<" songs
regsub 
-all "&#x86;" $songs "†" songs
regsub 
-all "ÿ" $songs "" songs
regsub 
-all "a" $songs "á" songs
regsub 
-all "b" $songs "ß" songs
regsub 
-all "i" $songs "í" songs
regsub 
-all "o" $songs "ó" songs
regsub 
-all "l" $songs "L" songs
regsub 
-all "I" $songs "Î" songs
regsub 
-all "e" $songs "é" songs
regsub 
-all "t" $songs "†" songs
regsub 
-all "y" $songs "¥" songs
regsub 
-all "c" $songs "¢" songs
regsub 
-all "o" $songs "Ó" songs
regsub 
-all "n" $songs "ñ" songs

regsub 
-all "<" $songtitle "<" songtitle
regsub 
-all ">" $songtitle ">" songtitle
regsub 
-all "&" $songtitle "+" songtitle
regsub 
-all "&#x22;" $songtitle "\"" songtitle
regsub 
-all "&#x27;" $songtitle "'" songtitle
regsub 
-all "ÿ" $songtitle "" songtitle
regsub 
-all "ö" $songtitle "ö" songtitle
regsub 
-all "ä" $songtitle "ä" songtitle
regsub 
-all "ü" $songtitle "ü" songtitle
regsub 
-all "Ö" $songtitle "Ö" songtitle
regsub 
-all "Ä" $songtitle "Ä" songtitle
regsub 
-all "Ü" $songtitle "Ü" songtitle
regsub 
-all "ß" $songtitle "ß" songtitle
regsub 
-all "ı" $songtitle "ı" songtitle
regsub 
-all "&" $songtitle "feat." songtitle
regsub 
-all "ç" $songtitle "ç" songtitle
regsub 
-all "ğ" $songtitle "ğ" songtitle
regsub 
-all "ı" $songtitle "ı" songtitle
regsub 
-all "İ" $songtitle "İ" songtitle
regsub 
-all "ö" $songtitle "ö" songtitle
regsub 
-all "ş" $songtitle "ş" songtitle
regsub 
-all "Ç" $songtitle "Ç" songtitle
regsub 
-all "Ğ" $songtitle "Ğ" songtitle
regsub 
-all "Ö" $songtitle "Ö" songtitle
regsub 
-all "Ş" $songtitle "Ş" songtitle
regsub 
-all "ü" $songtitle "ü" songtitle
regsub 
-all "Ü" $songtitle "Ü" songtitle
regsub 
-all "¿" $songtitle "¿" songtitle
regsub 
-all "<" $songtitle "<" songtitle
regsub 
-all "&#x86;" $songtitle "†" songtitle
regsub 
-all "ÿ" $songtitle "" songtitle
regsub 
-all "a" $songtitle "á" songtitle
regsub 
-all "b" $songtitle "ß" songtitle
regsub 
-all "i" $songtitle "í" songtitle
regsub 
-all "o" $songtitle "ó" songtitle
regsub 
-all "l" $songtitle "L" songtitle
regsub 
-all "I" $songtitle "Î" songtitle
regsub 
-all "e" $songtitle "é" songtitle
regsub 
-all "t" $songtitle "†" songtitle
regsub 
-all "y" $songtitle "¥" songtitle
regsub 
-all "c" $songtitle "¢" songtitle
regsub 
-all "o" $songtitle "Ó" songtitle
regsub 
-all "n" $songtitle "ñ" songtitle




regsub 
-all "<" $cursong "<" cursong
regsub 
-all ">" $cursong ">" cursong
regsub 
-all "&" $cursong "+" cursong
regsub 
-all "&#x22;" $cursong "\"" cursong
regsub 
-all "&#x27;" $cursong "'" cursong
regsub 
-all "ÿ" $cursong "" cursong
regsub 
-all "&" $cursong "feat." cursong
regsub 
-all "ç" $cursong "ç" cursong
regsub 
-all "ğ" $cursong "ğ" cursong
regsub 
-all "ı" $cursong "ı" cursong
regsub 
-all "İ" $cursong "İ" cursong
regsub 
-all "ö" $cursong "ö" cursong
regsub 
-all "ş" $cursong "ş" cursong
regsub 
-all "Ç" $cursong "Ç" cursong
regsub 
-all "Ğ" $cursong "Ğ" cursong
regsub 
-all "Ö" $cursong "Ö" cursong
regsub 
-all "Ş" $cursong "Ş" cursong
regsub 
-all "ü" $cursong "ü" cursong
regsub 
-all "Ü" $cursong "Ü" cursong
regsub 
-all "¿" $cursong "¿" cursong
regsub 
-all "<" $cursong "<" cursong
regsub 
-all "&#x86;" $cursong "†" cursong




regsub 
-all "<" $stitle "<" stitle
regsub 
-all ">" $stitle ">" stitle
regsub 
-all "&" $stitle "+" stitle
regsub 
-all "&#x22;" $stitle "\"" stitle
regsub 
-all "&#x27;" $stitle "'" stitle
regsub 
-all "ö" $stitle "ö" stitle
regsub 
-all "ä" $stitle "ä" stitle
regsub 
-all "ü" $stitle "ü" stitle
regsub 
-all "Ö" $stitle "Ö" stitle
regsub 
-all "Ä" $stitle "Ä" stitle
regsub 
-all "Ü" $stitle "Ü" stitle
regsub 
-all "ß" $stitle "ß" stitle
regsub 
-all "ı" $stitle "ı" stitle
regsub 
-all "&" $stitle "feat." stitle
regsub 
-all "ç" $stitle "ç" stitle
regsub 
-all "ğ" $stitle "ğ" stitle
regsub 
-all "ı" $stitle "ı" stitle
regsub 
-all "İ" $stitle "İ" stitle
regsub 
-all "ö" $stitle "ö" stitle
regsub 
-all "ş" $stitle "ş" stitle
regsub 
-all "Ç" $stitle "Ç" stitle
regsub 
-all "Ğ" $stitle "Ğ" stitle
regsub 
-all "Ö" $stitle "Ö" stitle
regsub 
-all "Ş" $stitle "Ş" stitle
regsub 
-all "ü" $stitle "ü" stitle
regsub 
-all "Ü" $stitle "Ü" stitle
regsub 
-all "¿" $stitle "¿" stitle
regsub 
-all "<" $stitle "<" stitle
regsub 
-all "&#x86;" $stitle "†" stitle
regsub 
-all "ÿ" $stitle "" stitle
regsub 
-all "a" $stitle "á" stitle
regsub 
-all "b" $stitle "ß" stitle
regsub 
-all "i" $stitle "í" stitle
regsub 
-all "o" $stitle "ó" stitle
regsub 
-all "l" $stitle "L" stitle
regsub 
-all "I" $stitle "Î" stitle
regsub 
-all "e" $stitle "é" stitle
regsub 
-all "t" $stitle "†" stitle
regsub 
-all "y" $stitle "¥" stitle
regsub 
-all "c" $stitle "¢" stitle
regsub 
-all "o" $stitle "Ó" stitle
regsub 
-all "n" $stitle "ñ" stitle



regsub 
-all "<" $sgenre "<" sgenre
regsub 
-all ">" $sgenre ">" sgenre
regsub 
-all "&" $sgenre "+" sgenre
regsub 
-all "&#x22;" $sgenre "\"" sgenre
regsub 
-all "&#x27;" $sgenre "'" sgenre
regsub 
-all "ö" $sgenre "ö" sgenre
regsub 
-all "ä" $sgenre "ä" sgenre
regsub 
-all "ü" $sgenre "ü" sgenre
regsub 
-all "Ö" $sgenre "Ö" sgenre
regsub 
-all "Ä" $sgenre "Ä" sgenre
regsub 
-all "Ü" $sgenre "Ü" sgenre
regsub 
-all "ß" $sgenre "ß" sgenre
regsub 
-all "ı" $sgenre "ı" sgenre
regsub 
-all "&" $sgenre "feat." sgenre
regsub 
-all "ç" $sgenre "ç" sgenre
regsub 
-all "ğ" $sgenre "ğ" sgenre
regsub 
-all "ı" $sgenre "ı" sgenre
regsub 
-all "İ" $sgenre "İ" sgenre
regsub 
-all "ö" $sgenre "ö" sgenre
regsub 
-all "ş" $sgenre "ş" sgenre
regsub 
-all "Ç" $sgenre "Ç" sgenre
regsub 
-all "Ğ" $sgenre "Ğ" sgenre
regsub 
-all "Ö" $sgenre "Ö" sgenre
regsub 
-all "Ş" $sgenre "Ş" sgenre
regsub 
-all "ü" $sgenre "ü" sgenre
regsub 
-all "Ü" $sgenre "Ü" sgenre
regsub 
-all "¿" $sgenre "¿" sgenre
regsub 
-all "<" $sgenre "<" sgenre
regsub 
-all "&#x86;" $sgenre "†" sgenre
regsub 
-all "ÿ" $sgenre "" sgenre
regsub 
-all "a" $sgenre "á" sgenre
regsub 
-all "b" $sgenre "ß" sgenre
regsub 
-all "i" $sgenre "í" sgenre
regsub 
-all "o" $sgenre "ó" sgenre
regsub 
-all "l" $sgenre "L" sgenre
regsub 
-all "I" $sgenre "Î" sgenre
regsub 
-all "e" $sgenre "é" sgenre
regsub 
-all "t" $sgenre "†" sgenre
regsub 
-all "y" $sgenre "¥" sgenre
regsub 
-all "c" $sgenre "¢" sgenre
regsub 
-all "o" $sgenre "Ó" sgenre
regsub 
-all "n" $sgenre "ñ" sgenre 



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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net