Сортировка набора в классическом ASP
Похоже, вам здесь не нужен класс, если вы хотите запустить свой код без класса, вы можете использовать
import random
import sys
def gen(size):
# generate...
return size
def main():
#Not sure where you are passing pages?
size = int(sys.argv[1])
print(size)
generate = gen(size)
print(generate)
print("FIFO", FIFO(size,pages), "page faults.")
print("LRU", LRU(size,pages), "page faults")
print ("OPT", OPT(size,pages), "page faults")
def FIFO(self, size, pages):
return "hello"
def LRU(self, size, pages):
return "hello"
def OPT(self, size, pages):
return "hello"
if __name__ == "__main__":
if len(sys.argv) != 2:
print "Usage: python paging.py [number of pages]"
else:
main()
4 ответа
В этом случае я получил бы справку от старшего брата .NET. Возможно использовать Систему. Наборы. Sortedlist в рамках Вашего приложения ASP и отсортировали Ваших пар значения ключа.
set list = server.createObject("System.Collections.Sortedlist")
with list
.add "something", "YY"
.add "something else", "XX"
end with
for i = 0 to list.count - 1
response.write(list.getKey(i) & " = " & list.getByIndex(i))
next
Btw, если следующие классы .NET доступны также:
- Система. Наборы. Очередь
- Система. Наборы. Стек
- Система. Наборы. ArrayList
- Система. Наборы. SortedList
- Система. Наборы. Хеш-таблица
- Система. IO.StringWriter
- Система. IO.MemoryStream;
Также см.: Чудеса.NET COM interop
Я пошел бы с подходом RecordSet. Используйте текстовый Драйвер. Необходимо будет изменить каталог в строке подключения и имя файла в избранном операторе. Расширенное свойство "HDR=Yes" указывает, что существует строка заголовка в CSV, который я предлагаю, поскольку это сделает запись psuedo SQL легче.
<%
Dim strConnection, conn, rs, strSQL
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\;Extended Properties='text;HDR=Yes;FMT=Delimited';"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnection
Set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM test.csv order by date desc"
rs.open strSQL, conn, 3,3
WHILE NOT rs.EOF
Response.Write(rs("date") & "<br/>")
rs.MoveNext
WEND
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
Это было долгое время для меня также. IIRC у Вас нет опции из поля.
На вашем месте я поместил все данные в массив и затем сортирую массив. Я нашел реализацию QuickSort здесь: http://www.4guysfromrolla.com/webtech/012799-3.shtml
Также посмотрите на "Пузырьковую сортировку", работы, прекрасные с теми классическое облако тегов asp.