[OzeL]

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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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]

OzeL Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! 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:   Kodu kopyalamak için üzerine çift tıklayın!

regsub -all " & # x20; " $cursong "" cursong

Yalnız yazarken, karakterleri bitişik yazmayı unutmayın.

[saywhat]

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]

Yardımcı olan arkadaşlara teşekkürler,olmayanlarada ben olayım.

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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