项目作者: badursun

项目描述 :
Sorting a Dictionary Object By Aaron A.
高级语言: ASP
项目地址: git://github.com/badursun/Sorting-Scripting-Dictionary-Classic-ASP.git


Sorting-Scripting-Dictionary-Classic-ASP

Sorting a Dictionary Object By Aaron A.

alt text

How to sort dictionary by Key

This code and class Sort an arrays / form collections / collections by key name like PHP ksort function.
See GrabForms property, grab each Request.Form collecions key and value, add scripting dictionary and sorting.

You are free to develop as you wish. It is prepared to show you and simplify the way you need it.

How To Use

Using Auto Grab POST FORM Datas

  1. <%
  2. Set SortForm = New sortk
  3. ' Grab Form / First Create Dictionary
  4. Set MyDictionary = SortForm.GrabForms( Null )
  5. ' Print Values Non-Ordered
  6. Response.Write "<h4>UNSORTED VALUES</h4>"
  7. SortForm.PrintSortedDictionary( MyDictionary )
  8. Response.Write "<hr />"
  9. ' Print Values Ordered
  10. Response.Write "<h4>SORTED VALUES</h4>"
  11. SortForm.PrintUnSortedDictionary( MyDictionary )
  12. Set SortForm = Nothing
  13. %>

Using Only Manually Data

  1. <%
  2. Set SortForm = New sortk
  3. ' Using Manually Data
  4. '---------------------------------------------
  5. ' First Create Dictionary
  6. Set MyDictionary = SortForm.CreateDictionary
  7. ' Add Some Data To Dictionary
  8. With SortForm
  9. .AddData MyDictionary ,"C_ORDER_VAL_1", "Manuel Test Value"
  10. .AddData MyDictionary ,"Z_ORDER_VAL_2", "Manuel Tewt Value"
  11. .AddData MyDictionary ,"G_ORDER_VAL_3", "Manuel Tewt Value"
  12. .AddData MyDictionary ,"A_ORDER_VAL_1", "Manuel Test Value"
  13. End With
  14. ' Print Values Non-Ordered
  15. Response.Write "<h4>UNSORTED VALUES</h4>"
  16. SortForm.PrintSortedDictionary( MyDictionary )
  17. Response.Write "<hr />"
  18. ' Print Values Ordered
  19. Response.Write "<h4>SORTED VALUES</h4>"
  20. SortForm.PrintUnSortedDictionary( MyDictionary )
  21. Set SortForm = Nothing
  22. %>

Using Auto Grab POST FORM Datas And Add Manually

  1. <%
  2. Set SortForm = New sortk
  3. ' Using Grab Form And Add Manually Data
  4. '---------------------------------------------
  5. ' First Create Dictionary
  6. Set MyDictionary = SortForm.CreateDictionary
  7. ' Add Some Data To Dictionary
  8. With SortForm
  9. .AddData MyDictionary ,"C_ORDER_VAL_1", "Manuel Test Value"
  10. .AddData MyDictionary ,"Z_ORDER_VAL_2", "Manuel Tewt Value"
  11. .AddData MyDictionary ,"G_ORDER_VAL_3", "Manuel Tewt Value"
  12. .AddData MyDictionary ,"A_ORDER_VAL_1", "Manuel Test Value"
  13. End With
  14. ' Grab Form
  15. SortForm.GrabForms( MyDictionary )
  16. ' Print Values Non-Ordered
  17. Response.Write "<h4>UNSORTED VALUES</h4>"
  18. SortForm.PrintSortedDictionary( MyDictionary )
  19. Response.Write "<hr />"
  20. ' Print Values Ordered
  21. Response.Write "<h4>SORTED VALUES</h4>"
  22. SortForm.PrintUnSortedDictionary( MyDictionary )
  23. Set SortForm = Nothing
  24. %>