Konu: Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..
Tekil Mesaj gösterimi
Alt 26 Kasım 2014, 22:17   #7
Çevrimdışı
SeckiN
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Çalışan Sağlam bi Radyo TCL Varsa Paylaşırmısınız..



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
###################################################################
proc temizle {icerik} {
    regsub -all "'" $icerik "'" icerik
    regsub -all "&" $icerik "feat." icerik
    regsub -all "ç" $icerik "ç" icerik
    regsub -all "ð" $icerik "ğ" icerik
    regsub -all "ý" $icerik "ı" icerik
    regsub -all "Ý" $icerik "İ" icerik
    regsub -all "ö" $icerik "ö" icerik
    regsub -all "þ" $icerik "ş" icerik
    regsub -all "Ç" $icerik "Ç" icerik
    regsub -all "Ð" $icerik "Ğ" icerik
    regsub -all "Ö" $icerik "Ö" icerik
    regsub -all "Þ" $icerik "Ş" icerik
    regsub -all "ü" $icerik "ü" icerik
    regsub -all "Ü" $icerik "Ü" icerik
    regsub -all "¿" $icerik "¿" icerik
    regsub -all "&#x3C;" $icerik "<" icerik
    regsub -all "&#x86;" $icerik "†" icerik
    regsub -all "&#xFF;" $icerik "" icerik
    regsub -all "a" $icerik "a" icerik
    regsub -all "b" $icerik "b" icerik
    regsub -all "i" $icerik "i" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "l" $icerik "l" icerik
    regsub -all "I" $icerik "I" icerik
    regsub -all "e" $icerik "e" icerik
    regsub -all "t" $icerik "t" icerik
    regsub -all "y" $icerik "y" icerik
    regsub -all "c" $icerik "c" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "n" $icerik "n" icerik
    return $icerik
}

#################################

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yukarıdaki kodları aşağıdaki ile değiştir bakalım.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
###################################################################
proc temizle {icerik} {
    regsub -all "&#x27;" $icerik "'" icerik
    regsub -all "&#x26;" $icerik "feat." icerik
    regsub -all "&#xE7;" $icerik "ç" icerik
    regsub -all "&#xF0;" $icerik "ğ" icerik
    regsub -all "&#xFD;" $icerik "ı" icerik
    regsub -all "&#xDD;" $icerik "İ" icerik
    regsub -all "&#xF6;" $icerik "ö" icerik
    regsub -all "&#xFE;" $icerik "ş" icerik
    regsub -all "&#xC7;" $icerik "Ç" icerik
    regsub -all "&#xD0;" $icerik "Ğ" icerik
    regsub -all "&#xD6;" $icerik "Ö" icerik
    regsub -all "&#xDE;" $icerik "Ş" icerik
    regsub -all "&#xFC;" $icerik "ü" icerik
    regsub -all "&#xFE;" $icerik "ş" icerik
    regsub -all "&#xDC;" $icerik "Ü" icerik
    regsub -all "&#xC7;" $icerik "Ç" icerik
    regsub -all "&#xE7;" $icerik "ç" icerik
    regsub -all "&#xD;"  $icerik "Ğ" icerik
    regsub -all "&#xBF;" $icerik "¿" icerik
    regsub -all "&#x3C;" $icerik "<" icerik
    regsub -all "&#x86;" $icerik "†" icerik
    regsub -all "&#xFF;" $icerik "" icerik
    regsub -all "a" $icerik "a" icerik
    regsub -all "b" $icerik "b" icerik
    regsub -all "i" $icerik "i" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "l" $icerik "l" icerik
    regsub -all "I" $icerik "I" icerik
    regsub -all "e" $icerik "e" icerik
    regsub -all "t" $icerik "t" icerik
    regsub -all "y" $icerik "y" icerik
    regsub -all "c" $icerik "c" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "n" $icerik "n" icerik
    return $icerik
}

#################################
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver