Sortering af array

Din ShellSort skal vel være en Sub og ikke en Function

Når den kommer med fejl i den linie lyder som om vArray ikke tolkes som et array.

og kaldet ser sådan her ud:  ShellSort iData

Nu kiggede jeg lige i et af de sidste par sprøgsmål og der hedder arrayey iDate så skulle der ikke havde stået?:

ShellSort  iDate

Umiddelbart er problemet af iData ikke er et array. Du kan teste om vArray er et array med funktionen isArray(vArray) inde i shellsort-funktionen inden du går igang med at bruge array-funktioner som lbound og ubound på den. Noget i stil med dette:

Function ShellSort(vArray)
Dim TempVal
Dim i, GapSize, CurPos
Dim FirstRow, LastRow, NumRows
if IsArray(vArray) then
FirstRow = LBound(vArray)
LastRow = UBound(vArray)
NumRows = LastRow - FirstRow + 1
Do
  GapSize = GapSize * 3 + 1
Loop Until GapSize > NumRows
Do
  GapSize = GapSize \ 3
  For i = (GapSize + FirstRow) To LastRow
  CurPos = i
  TempVal = vArray(i)
  Do While CompareResult(CDbl(vArray(CurPos - GapSize)),CDbl(TempVal))
    vArray(CurPos) = vArray(CurPos - GapSize)
    CurPos = CurPos - GapSize
    If (CurPos - GapSize) < FirstRow Then Exit Do
  Loop
  vArray(CurPos) = TempVal
  Next
Loop Until GapSize = 1
else
  ' meddel en fejl hvis vArray ikke er et array - man kunne også bare ignorere fejlen
  response.write "vArray er ikke et array"
end if
End Function

Function CompareResult(Value1, Value2)
CompareResult = (Value1 > Value2)
End Function

Jo selvfølgelig. Jeg venter lige på at jeg kan opdatere siden ;-)

Den kommer stadig med samme fejl. Jeg prøver lige at ændre ifølge erik

Kommer desværre med samme fejl Erik.

Og så kan du med fordel sætte en "Option Explicit" i toppen af dine ASP sider  -  så brokker den sig hvis du bruger et navn du ikke har dimmet.

softspot >> jeg har brug den flere gange i løbet af dagen i forbindelse med GetRows og der virkede den fint.

Du er sikker på du har en iDate som er et array?  Det med sub/function bør ikke gøre nogen forskel, det var mere for princippet.

Ja, men hvis du så finder dit array på en anden måde nu, kan det jo godt være blevet til et problem.

Rent bort set fra det, så er brugen af isArray i dette tilfælde også mere symptombehandling end problemløsning... :)

Hmm... det var det vi lige løste før hvor eagleeye også var med på sidelinjen.

Kan du ikke lige vise koden hvor du får fat i iDate (eller hvad den nu hedder)?

Koden ser sådan ud :

        'Create object for the recordset
        Set rs = Server.CreateObject("ADODB.RecordSet")

        'Create DSN connection
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("log/vl10.mdb")

        ' Opbygning af SQL streng
        strSQL = "SELECT * FROM Vaertskaber Where Aar =" & "'" & iAar & "'"
        'Response.Write(strSQL)
           
        'Open DB
        rs.Open strSQL, strDSN, 1

        'Make a loop finding the number of dates
        'i = 0
        'do while not rs.eof 'Looping rows
        '    iString = rs("Date")
        '    Response.Write iString & "<br>"           
        '    If iString <> "" Then
        '        i = i + 1
        '    End If
        '    rs.MoveNext
        'Loop
       
        'Make a loop finding the number of dates
        i = 0
        redim iDate(0)
        do while not rs.eof 'Looping rows
            iString = rs("Date")
            Response.Write iString & "<br>"         
            If iString <> "" Then
                i = i + 1
            redim preserve iDate(i)
            iDate(i-1)=iString
            End If
            rs.MoveNext
        Loop

        ShellSort iData

        Max = ubound(iDate)
        'Response.Write Max & "<br>"
     
        For i = 0 to Max
            Response.Write iDate(i) & "<br>"
        Next
       
        rs.close()
        Set rs = Nothing

Der står stadig iData

Nu opdagede jeg selv fejlen. Jeg syntes lige jeg havde ændret "ShellSort iData" til "ShellSort iDate", men det var den ikke som du kan se.

Nu virker det.

Svar = Points for dem der er interesseret

ok, så hedder den altså iDate og linien

        ShellSort iData

skal ændres

        ShellSort iDate

Er det korrekt forstået, at du har prøvet dette, men at det ikke fungerede?

:) Nej tak

1000 tak for hjælpen på det her ukristelige tidspunkt.

velbekomme :)

Softspot >> jeg mente jeg havde ændret det, men er lidt træt i øjnen efter en hel dags kodning ;-)

Jeg kender det :)

Lukker!