클래식 ASP에서 컬렉션 정렬

Question

꽤 간단한 질문입니다. 컬렉션을 어떻게 정렬합니까?

임의의 순서로 행이있는 CSV 파일이 있습니다. 한 열에있는 날짜에 따라 행을 정렬하고 싶습니다. 행을 레코드 세트에 추가합니까? Scripting.Dictionary로 정렬 할 수 있습니까?

나는 분명히 .NET과 Linq로 버릇이 있었고, 이제는 고전적인 ASP의 땅으로 돌아 왔고, 7 년 전에이 사실을 알고 있었음에 틀림 없다는 것을 깨달았고, 제네릭을 놓치고 있습니다. 나는 완전한 n00b 인 것 같은 기분이 든다.

Answer 1

이 경우에는 큰 형님 .net에서 도움을 얻을 것입니다. System.Collections.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 클래스도 사용할 수있는 경우 :

• System.Collections.Queue
• System.Collections.Stack
• System.Collections.ArrayList
• 시스템. 모음집 정렬 목록
• System.Collections.Hashtable
• System.IO.StringWriter
• System.IO.MemoryStream;

또한 참조 : 이것에 Marvels of COM .NET interop

Answer 2

내게 너무 오랜 시간이되었습니다. IIRC에는 구입 즉시 사용할 수있는 옵션이 없습니다.

나는 모든 데이터를 배열에 넣은 다음 배열을 정렬합니다. 여기에 QuickSort 구현이 있습니다. http://www.4guysfromrolla.com/webtech/012799-3.shtml

Answer 3

"버블 정렬"을 보면 고전적인 asp 태그 클라우드와 잘 작동합니다.

http://www.4guysfromrolla.com/webtech/011001-1.shtml

Answer 4

나는 레코드 접근 방식으로 갈 것. 텍스트 드라이버를 사용하십시오. 연결 문자열의 디렉토리와 select 문에서 파일 이름을 변경해야합니다. 확장 속성 "HDR = Yes"는 CSV에 머리말 행이 있음을 지정합니다.이 행은 가짜 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 

%> 

Answer 5

늦게 늦게 대답을하지만, 여전히 가치.

소규모 컬렉션으로 작업 할 때마다 각 항목마다 정확한 위치에 항목을 삽입하여 각 추가시 효과적으로 컬렉션을 재구성 할 수있었습니다. 다음과 같이

VBScript를 클래스는 다음과 같습니다

'Simple collection manager class. 
'Performs the opration of adding/setting a collection item. 
'Encapulated off here in order to delegate responsibility away from the collection class. 
Class clsCollectionManager 
    Public Sub PopulateCollectionItem(collection, strKey, Value) 
     If collection.Exists(strKey) Then 
      If (VarType(Value) = vbObject) Then 
       Set collection.Item(strKey) = Value 
      Else 
       collection.Item(strKey) = Value 
      End If 
     Else 
      Call collection.Add(strKey, Value) 
     End If 
    End Sub 

    'take a collection and a new element as input parameters, an spit out a brand new collection 
    'with the new item iserted into the correct location by order 
    'This works on the assumption that the collection it is receiving is already ordered 
    '(which it should be if we always use this method to populate the item) 

    'This mutates the passed collection, so we highlight this by marking it as byref 
    '(this is not strictly necessary as objects are passed by reference anyway) 
    Public Sub AddCollectionItemInOrder(byref existingCollection, strNewKey, Value) 
     Dim orderedCollection: Set orderedCollection = Server.CreateObject("Scripting.Dictionary") 
     Dim strExistingKey 

     'If there is something already in our recordset then we need to add it in order. 

     'There is no sorting available for a collection (or an array) in VBScript. Therefore we have to do it ourself. 
     'First, iterate over eveything in our current collection. We have to assume that it is itself sorted. 
     For Each strExistingKey In existingCollection 

      'if the new item doesn't exist AND it occurs after the current item, then add the new item in now 
      '(before adding in the current item.) 
      If (Not orderedCollection.Exists(strNewKey)) And (strExistingKey > strNewKey) Then 
       Call PopulateCollectionItem(orderedCollection, strNewKey, Value) 
      End If 
      Call PopulateCollectionItem(orderedCollection, strExistingKey, existingCollection.item(strExistingKey)) 
     Next 

     'Finally check to see if it still doesn't exist. 
     'It won't if the last place for it is at the very end, or the original collection was empty 
     If (Not orderedCollection.Exists(strNewKey)) Then 
      Call PopulateCollectionItem(orderedCollection, strNewKey, Value) 
     End If 

     Set existingCollection = orderedCollection 
    End Sub 
End Class