tilføj element til array

kig på dette både part 1 og 2:
http://www.4guysfromrolla.com/webtech/032800-1.shtml

Jeps du skal bruge redim. Du kan overveje de funktioner hossein har vist men her er princippet i at tilføje til et array, den simple udgave ;)


Dim liste, mitArray

liste = "abe, kat, høne"

mitArray = Split(liste,",")

'Tilføj et elemet til mitArray
redim preserve mitArray(ubound(mitArray)+1)
mitArray(ubound(mitArray)) = "hund"

'Tilføj endnu et elemet til mitArray
redim preserve mitArray(ubound(mitArray)+1)
mitArray(ubound(mitArray)) = "hund"

'Udskrive arrayet
for i = lbound(mitArray) to ubound(mitArray)
  Response.write mitArray(i) & "<br>"
next

Alletiders :o)

Hvis nu abe, kat og høne ligger i en database...hvordan får jeg så smidt dem ind i arrayet først?? Har set nogen snakker om noget rs.getrows - men kan jeg ik rigtig få til at virke.

Skriv iøvrigt lige svar begge to så I kan få points

så er det noget andet :-)
http://www.aspalliance.com/mbrink1111/scroll.asp

Et andet eks med getRows:
http://activedeveloper.dk/aspdigital/2001081401.asp

Hvis du vil bygge dit array fra DB og getrows så det noget med:
SQL = "SELECT kolonnenavn FROM tabelnavn"
Set rs = Conn.Execute(SQL)
mitArray = rs.GetRows()

Det endte med jeg lavede det på følgende måde - da jeg så vidt jeg kunne forstå ikke kunne slette et element fra et array hvis jeg brugte getrows.

dim strPics, arrPics

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/pixie.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select filnavn from personer"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)


While Not rs.EOF
 
  strPics = strPics & rs("filnavn") & ", "
  rs.MoveNext()
Wend

rs.close
set rs = nothing


arrPics = Split(strPics,",")

for i=ubound(arrPics) to ubound(arrPics)
redim preserve arrPics((i)-1)
next

for i=(ubound(arrPics)+1) to 12
  redim preserve arrPics((i)+1)
  arrPics(i)="tom.gif"
next

.......

Jeg skulle jo lave et array på 13 elementer, hvoraf et ukendt antal skulle hentes fra en database. I tilfælde af at der i databasen var mindre end 13, skulle resten fyldes ud med en allerede bestemt type element.

Det virker som lidt af en omvej, fordi jeg på den måde er nødt til først at slette det tomme element som jeg får pga det sidste ',' i

...hov - ramte 'udfør'. Forsætter lige..

Det virker som lidt af en omvej, fordi jeg på den måde er nødt til først at slette det tomme element som jeg får pga det sidste ',' i strPics = strPics & rs("filnavn") & ", "

Derudover får jeg af en eller anden uvis grund et array med et element for meget ved:
for i=(ubound(arrPics)+1) to 12
  redim preserve arrPics((i)+1)
  arrPics(i)="tom.gif"
next
...det betyder dog ikke så meget....men jeg undres??

Men som sagt...det virker fint - synes måske bare det er lidt en omvej.

Tak for svar iøvrigt :o)