Forskelligt nyt fra Open Source miljøet.
Document Actions
arraysort.asp
Svar på spgm http://www.eksperten.dk/spm/786765
Size 1.3 kB - File type text/python-source
Click here to get the file
File contents
<%@LANGUAGE=Python%>
<%
# Licence GPL
# se http://support.microsoft.com/kb/276494 der er beskrevet hvordan du
# opsætter din asp server til at bruge python
import random
def printTabel( Tabel, Fra , Til, Markeret ):
"""Sort a 2 dimensional array"""
Mark = { True : '<td bgcolor="FFFFCC">', False:'<td>' }
Response.write( '<table border="1" cellspacing="0">'
for raekke in Tabel[ Fra: Til ]:
Response.write( "<tr>"
for colData in raekke:
Response.write( Mark.get( Markeret == colData ), colData, '</td>'
Response.write( "</tr>"
Response.write( "</table>"
def DoubleSort( Tabel, column, Reverse=False ):
def colCompare( x, y ):
return cmp( y[ column ], x[ column ] )
Tabel.sort( cmp=colCompare )
Header = """Content-type: text/html\n
<html>
Content-Type" content="text/html; charset=utf-8" />
<pre>"""
# Opret en dummy to dimensionel array med tilfældige tal.
Rnd = range( -50, 50 )
ToDim = [ [ y for y in [ random.choice( Rnd ) for x in range(5) ] ] for z in range(10) ]
Response.write( "Før sortering"
Response.write( ToDim )
# Sorter tabellen
DoubleSort( ToDim, 3 , Reverse=True )
Response.write( "Efter sortering"
Response.write( ToDim )
Response.write( "</pre>"
printTabel( ToDim, 0, 3, 40 )
Response.write( "</html>"
%>