|
Alıntı: |
foreach z [array names KAOSAnswers] { set KAOSTry [lrange $KAOSAnswers($z) 1 end] set KAOSTryOld $KAOSTry
regsub -all [{,.!}] $KAOSTry "" KAOSTry
regsub -all [ş] $KAOSTry "s" KAOSTry
regsub -all [Ş] $KAOSTry "S" KAOSTry
regsub -all [ı] $KAOSTry "i" KAOSTry
regsub -all [İ] $KAOSTry "I" KAOSTry
regsub -all [ö] $KAOSTry "o" KAOSTry
regsub -all [Ö] $KAOSTry "O" KAOSTry
regsub -all [ğ] $KAOSTry "g" KAOSTry
regsub -all [Ğ] $KAOSTry "G" KAOSTry
regsub -all [ü] $KAOSTry "u" KAOSTry
regsub -all [Ü] $KAOSTry "U" KAOSTry
regsub -all [Ç] $KAOSTry "C" KAOSTry
regsub -all [ç] $KAOSTry "c" KAOSTry |
Bu verdiğin kodlar yanlış ben sana ilk gün dedim verdiğin kodlarda yanlışlık var diye
bir tclyi 10 kez editlettin bana bilmiyorsan paylaşma paylaşıcaksan biraz daha dikkatli ol sizin gibiler yüzünden paylaşım yapmak içimden gelmiyor demişsin kodunu düzelttin bende teşekürümü ettim madalyamı bekliyorsun
Burası paylaşım forumu kimsenin gırtlağını sıkmıyorlar bişey paylaş diye