Distrinct udtræk efter dato

Hvorfor kan du ikke bare tage den bagerste først?.

Hvordan man tager den bagerste førest i en array:

Jeg er ikke nået til det kapitel i bogen endnu som omhandler arrays:-)
Hvordan skal jeg mere præcist gøre for at bruge din kode?
Mvh. rwj

Den jeg har kaldt array er den array der skal sorteres, og den jeg har kaldt array2 er den der er sorteret, og grunden til at jeg angiver typen objekt er fordi jeg ikke ved hvilken type du bruger, Du skal bare erstatte det hvor der stor Object til den type du bruger, Og de to parenteser angiver at det er en array.

Du kan bruge denne funktion.
Kode:


:)

jeg har indsat mine poster så koden ser således ud:


Private Function Sorter(ByVal array() As galleri_kategori) As opret_dato()
        Dim array2(array.Length - 1) As galleri_kategori
        Dim i2 As Integer = array.Length - 1
        For i = 0 To array.Length - 1
                array2(i2) = array(i)
        Next
        Return array2
End Function

og får en fejlmeddelse:

Microsoft VBScript compilation error '800a03ee'

Expected ')'

som er i første linie, mangler der et tegn der?

Mvh. rwj

fik ikke hele kode med i første omgang den er sådan her:

galleri_kategori=rs("galleri_kategori")
opret_dato=rs("opret_dato")

Private Function Sorter(ByVal array() As galleri_kategori) As opret_dato()
        Dim array2(array.Length - 1) As galleri_kategori
        Dim i2 As Integer = array.Length - 1
        For i = 0 To array.Length - 1
                array2(i2) = array(i)
        Next
        Return array2
End Function

Det jeg mente med din type er for eksempel hvis det er text så er typen String eller hvis det er heltal så er typen Integer, eller hvis det er komma tal så er typen Double

galleri_kategori er text og således en string

opret_dato er datoformat, hvilket format er så det?

Jeg føler mig på bar bund i din kode, kan ikke rigtig gennenskue funktionen, er du venlig at smide min galleri_kategori og opret_dato i?

Mvh. rwj

Ja det vil jeg gerne. :)

Kode:


Du bruger funktionen så dan her:


Så får du en array af en array, et index starter med 0.

Jeg har forsøgt at få det til at spille, men tror ikke at jeg har fattet pointen i arrays. Min kode ser nu sådan ud, og jeg får fejlmelding:

<b>Microsoft VBScript compilation error '800a0401'

Expected end of statement

test.asp, line 22

Dim result As Object()() = Sorter(galleri_kategori, opret_dato)
-----------^</b>


<!--#include file="../conn.asp"-->
<%

SQL="Select * from galleri"
SET rs = Conn.Execute (SQL)

galleri_kategori=rs("galleri_kategori")
opret_dato=rs("opret_dato")

Dim result As Object()() = Sorter(galleri_kategori, opret_dato)
Dim resault_galleri_kategori() As String = result(0)
Dim resault_opret_dato() As Date = result(1)


Private Function Sorter(ByVal galleri_kategori() As String, ByVal opret_dato() As Date) As Object()()
Dim array2_1(galleri_kategori.Length - 1) As String
Dim array2_2(galleri_kategori.Length - 1) As Date
Dim i2 As Integer = galleri_kategori.Length - 1
For i = 0 To galleri_kategori.Length - 1
array2_1(i2) = galleri_kategori(i)
array2_2(i2) = opret_dato(i)
Next
Return {array2_1, array2_2}
End Function

%>

hvad gør jeg galt?

mvh rwj

Jeg er ikke særlig god til asp.net, men jeg har lige testet det og fundet en mulig løsning.

Løsning:


Den sorterede galleri_kategori er i result_galleri_kategori, og den sorterede opret_dato er i result_opret_dato. :)

Super, fik det til at køre, så mange tak for tålmodigheden og hjælpen.

Smid et svar og i øvrigt fortsat god sommer.

mvh. rwj

svar