#1
| ||||
| ||||
Text sayı sıralama Merhaba kodun amacı Text dosyasındaki sayıları büyükten kücüge veyahut küçükten büyüge göre sıralıyor ister bir sayı ile istersek birden fazla ile listeliyebiliyoruz. ileri ki zamanlarda daha gelişmiş halide gelicek. Kod: : 1 2 4 5 8 10 15 25 32 44 : 1 2 4 5 8 : 1 : 1000 : 1000 444 333 54 50 : 1000 444 333 54 50 45 44 32 25 15 Kod: //echo : $sayisirala(dosya.txt enkucuk).10 Kod: //echo : $sayisirala(dosya.txt enbuyuk).10 Kod: ;Kod Baslangic ; alias sayisirala { tokenize 32 $1 unset %enbuyuk %enkucuk if !$1 { return Text Belgesini Yaziniz. Orn: $!sayisirala(ornek.txt enbuyuk).10 } if !$isfile($1) { return dosya bulunamadi.. } if $prop !isnum { return En buyuk kactane rakam siralama yapacagini belirtin. Orn: $!sayisirala(ornek.txt enbuyuk).10 } if $prop > $lines($1) { return Uzgunum, dosyanizda $v2 satir var } var %topkac $prop, %j = 1 while %j <= %topkac { var %i 0 set %z 0 set %y 42584398923849238459239582392334288249 while %i <= $lines($1) { var %sa = $read($1,%i) if %sa > %z && !$istok(%enbuyuk,%sa,32) { set %z %sa } if %sa < %y && !$istok(%enkucuk,%sa,32) { set %y %sa } inc %i } set %enbuyuk %enbuyuk %z set %enkucuk %enkucuk %y unset %z %y inc %j } if ($2 == enbuyuk) return %enbuyuk if ($2 == enkucuk) return %enkucuk } ; Kod Bitis ; Kullanim: echo $sayisirala(dosya.txt enbuyuk).10 ; ya da ; echo : $sayisirala(dosya.txt enkucuk).5 ; ya da ; echo : $sayisirala(dosya.txt enbuyuk).1 ; ya da ; echo : $sayisirala(dosya.txt enkucuk).1 ; ya da ; echo : $sayisirala(dosya.txt enbuyuk).15
__________________ Biz kimseye ölmedik, kimse de bize bayılmasın. |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |