클래식 ASP에서 배열 배열을 정렬

Question

이전 앱으로 돌아와서 클래식 ASP를 빌드하고 몇 가지 사항을 변경해야했지만 한 가지 문제가있었습니다.

theTimings = "12:00-14:30,18:00-22:30,07:30-10:30" 

내가 즉, 초기의 시간이 먼저 나타나도록

timingsArray=Split(theTimings,",") 

그러나 나는이 배열을 정렬 할 필요가 사용하여 배열에

을이 선회하고있다 :

나는 문자열 등이

07:30-10:30,12:00-14:30,18:00-22:30 

누구나 어떻게해야할까요?

Answer 1

배열을 정렬하려는 경우 Classic VBScript ASP에서는이를 제공하지 않습니다. 따라서 4 가지 옵션이 있습니다 : Use JScript, gather from .NET, 배열을 dictionary and sort there 또는 "자신의 알고리즘 롤"(a.k.a. find something on the net)으로 변환하십시오.

죄송합니다. 어느 것이 가장 빠르지는 모르지만 VBScript를 사용하는 경우 빠른 정렬을 사용하는 것이 좋습니다. 여기에 내가 somewhere에서 적응 한 문자열 적용의 IT의 구현입니다 :

Dim prt 
prt = Array("this", "array", "organized", "is", "not") 
print_array(prt) 
arr_sort prt 
print_array(prt) 

Sub arr_sort (arr) 
    Call QuickSort(arr, 0, ubound(arr, 1)) 
End Sub 
Sub SwapRows (ary,row1,row2) 
    Dim tempvar 
    tempvar = ary(row1) 
    ary(row1) = ary(row2) 
    ary(row2) = tempvar 
End Sub 'SwapRows 
Sub QuickSort (vec,loBound,hiBound) 
    '==--------------------------------------------------------== 
    '== Sort a 1 dimensional array        == 
    '==              == 
    '== This procedure is adapted from the algorithm given in: == 
    '== ~ Data Abstractions & Structures using C++ by ~  == 
    '== ~ Mark Headington and David Riley, pg. 586 ~  == 
    '== Quicksort is the fastest array sorting routine For  == 
    '== unordered arrays. Its big O is n log n    == 
    '==              == 
    '== Parameters:           == 
    '== vec  - array to be sorted       == 
    '== loBound and hiBound are simply the upper and lower  == 
    '== bounds of the array's 1st dimension. It's probably == 
    '== easiest to use the LBound and UBound functions to == 
    '== Set these.           == 
    '==--------------------------------------------------------== 

    Dim pivot,loSwap,hiSwap,temp,counter 
    '== Two items to sort 
    if hiBound - loBound = 1 then 
    if vec(loBound) > vec(hiBound) then 
     Call SwapRows(vec,hiBound,loBound) 
    End If 
    End If 

    '== Three or more items to sort 
    pivot = vec(int((loBound + hiBound)/2)) 
    vec(int((loBound + hiBound)/2)) = vec(loBound) 
    vec(loBound) = pivot 

    loSwap = loBound + 1 
    hiSwap = hiBound 
    Do 
    '== Find the right loSwap 
    while loSwap < hiSwap and vec(loSwap) <= pivot 
     loSwap = loSwap + 1 
    wend 
    '== Find the right hiSwap 
    while vec(hiSwap) > pivot 
     hiSwap = hiSwap - 1 
    wend 
    '== Swap values if loSwap is less then hiSwap 
    if loSwap < hiSwap then Call SwapRows(vec,loSwap,hiSwap) 


    Loop While loSwap < hiSwap 

    vec(loBound) = vec(hiSwap) 
    vec(hiSwap) = pivot 

    '== Recursively call function .. the beauty of Quicksort 
    '== 2 or more items in first section 
    if loBound < (hiSwap - 1) then Call QuickSort(vec,loBound,hiSwap-1) 
    '== 2 or more items in second section 
    if hiSwap + 1 < hibound then Call QuickSort(vec,hiSwap+1,hiBound) 

End Sub 'QuickSort 

그리고 보너스로, 이것은 내가 완벽하게 작업 "에서 print_r"언젠가으로 진화 할, 내 "print_array"입니다 :

public sub print_array (var) 
    call print_r_depth(var, 0) 
end sub 
public sub print_r_depth (var, depth) 
    if depth=0 then 
     response.write("<pre>" & Tab(depth)) 
     response.write(typename(var)) 
    end if 
    if isarray(var) then 
     response.write(Tab(depth) & " (<br />") 
     dim x 
     for x=0 to uBound(var) 
      response.write(Tab(depth+1) & "("&x&")") 
      call print_r_depth(var(x), depth+2) 
      response.write("<br />") 
     next 
     response.write(Tab(depth) & ")") 
    end if 
    select case vartype(var) 
    case VBEmpty: 'Uninitialized 
    case VBNull: 'Contains no valid data 
    case VBDataObject: 'Data access object 
    case VBError: 
    case VBArray: 
    case VBObject: 
    case VBVariant: 
    case else: 
     if vartype(var) < 16 then 
      response.write(" => " & var) 
     else 
      response.write(" - vartype:" & vartype(var) & " depth:" & depth) 
     end if 
    end select 
    if depth=0 then response.write("</pre>") end if 
end sub 
public function Tab (spaces) 
    dim val, x 
    val = "" 
    for x=1 to spaces 
     val=val & " " 
    next 
    Tab = val 
end function