TCL'nizin en son satırına;
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
proc characters {description} {
regsub -all "Ãœ" $description "Ü" description
regsub -all "ÅŸ" $description "Ş" description
regsub -all "ÄŸ" $description "G" description
regsub -all "Ç" $description "Ç" description
regsub -all "Ä°" $description "İ" description
regsub -all "Ö" $description "Ö" description
regsub -all "ü" $description "ü" description
regsub -all "ÅŸ" $description "ş" description
regsub -all "ÄŸ" $description "g" description
regsub -all "ç" $description "ç" description
regsub -all "ı" $description "ı" description
regsub -all "ö" $description "ö" description
regsub -all "{" $description "" description
regsub -all "}" $description "" description
return $description
}
Bu kodu ekledikten sonra;
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
[lindex $mealoku $mealsatir]
Buradaki satırları;
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
[characters [lindex $mealoku $mealsatir]]
Olarak düzenleyip tekrar deneyin.