Alfabetik Sıralama

• Slothere
• 2010-07-07 17:53
• 0 Yorumlar
• 2464 Görüntüleme

merhaba,



geçen aylarda yazdığım bir fonksiyon vardı sayıları en yüksekten düşüğe doğru sıralayan. bu gün bir sistemde gereksinim duyduğumdan bunun alfabetik olanını kodlamak için işe koyuldum. kısa süre içerisinde şöyle bir kod oluştu ve gayet düzenli bir şekilde çalışıyor. sizlerle paylaşmak istedim.



öncelikle fonksiyonun scripti şu şekilde;



[FUNCTION arrangeStrings]  // 6 Temmuz 2010 - Slothere

IF <ARGV> > 0

  FOR 0 <EVAL <ARGV> -1>

    LOCAL.ARGV<dLOCAL._FOR>=<ARGV[<dLOCAL._FOR>]>

  ENDFOR

  FOR a 0 <EVAL <ARGV> -1>

    FOR b 0 <EVAL <ARGV> -1>

      LOCAL.1=<STRTOLOWER <STRSUB 0 1 <LOCAL.ARGV<dLOCAL.a>>

      LOCAL.2=<STRTOLOWER <STRSUB 0 1 <LOCAL.ARGV<dLOCAL.b>>

      IF STRCMP(<LOCAL.1>,<LOCAL.2>) == -1

        LOCAL.TEMP=<LOCAL.ARGV<dLOCAL.b>>

        LOCAL.ARGV<dLOCAL.b>=<LOCAL.ARGV<dLOCAL.a>>

        LOCAL.ARGV<dLOCAL.a>=<LOCAL.TEMP>

      ENDIF

    ENDFOR

  ENDFOR

  FOR 0 <EVAL <ARGV> -1>

    SYSMESSAGE <LOCAL.ARGV<dLOCAL._FOR>>

  ENDFOR

ENDIF



kullanım şeklini kendinize göre düzenlersiniz. şu anki sistemde kullanabilmeniz için;



.arrangestrings <param1>,<param2>,<param3>,...<paramxx>" 



şeklinde fonksiyonu kullanmanız yeterli olacaktır. örneklendirmek gerekirse;



.arrangestrings slothere,gokberk,ultima,scripting,arrange,string,esenyel



diye kullandığımızda dönen sonuç;





arrange

esenyel

gokberk

scripting

slothere

string

ultima





şeklinde olacaktır. İstediğiniz sayıda parametre kullanmanız mümkün.



teknik konularda gerekli desteği bana ulaşarak alabilirsiniz.

Değerlendirmeler

Total votes: 0