2 dim array

Altså, du putter data i det således:

arrdata(x,y) = "hest"

hvor x er den ene dimensions index og y er den anden dimensions index... ;-)

Har jeg ret i at du gerne vil kunne proppe to værdier ind for hver "plads"? Så skal du ha' fat i det der hedder et dictionary i stedet...

hvis du forestiller dig en tabel på 25*25
så er det sådan set det jeg gerne skulle have der ind i...
så der kommer ialt 25 lag, med 25 værdier i hver

Hvis du vil skrive dine data ud from en tabel i en 2 dimensional array så skal du bruge array + getrow() methoden. Dette giver bedste performance. det er en løsning under dette spørgsmål som du kan bruge:
http://www.eksperten.dk/spm/299353  --- 31/12-2002 20:27:31

her er også en god ex: http://www.webknowhow.net/dir/ASP/FAQ/Arrays/faq.q1.html

http://activedeveloper.dk/aspdigital/2001081401.asp

//>Rune

tror ikke i helt forstår!!!
tallene er IKKE fra en database, men dem her jeg i 25 lange komma delte linier!!
det er DISSE linier som skal puttes ind i et array, hvor hver linie så har sit eget lag

Vi forstår det godt, hvis du forklarer bedre i hvad det er som du vil? Jeg starter også mit svar med "hvis". men det er det som du kan brug. Hvis du har et kommer delimitet fil.

<%
option explicit
        Dim oFSO, oFile, aryVers()
        Dim filePath, textStream, fileLine, tempArray
        Dim row,col
       
        Const ForReading=1,ForWriting=2,ForAppending=3
        Const TristateUseDefault=-2,TristateTrue=-1,TristateFalse=0
        Set oFSO = CreateObject("Scripting.FileSystemObject")

        filePath = "##FilePath##"
        if oFSO.FileExists(filePath) Then
                Set oFile = oFSO.GetFile(filePath)
                Set TextStream = ofile.OpenAsTextStream(ForReading, TristateUseDefault)
                row = 0
                Do While Not textStream.atendofstream
                    fileLine = textStream.readline

                    tempArray = Split(fileLine, ",")
                    For col = 0 To ubound(tempArray)-1
                        redim preserve aryVers(ubound(tempArray),row)
                        aryVers(col, row) = tempArray(col)
                    Next
                    row=row+1
                Loop
        End if
                For row = 0 To ubound(aryVers,2)-1
                    For col = 0 To ubound(aryVers,1)-1
                        MsgBox aryVers(col,row)
                    Next
                Next
        Set oFile = nothing
        Set oFSO = nothing
%>

dim arrdata(2,2)
arrdata(0,0)="0,0"
arrdata(0,1)="0,1"
arrdata(1,0)="1,0"
arrdata(1,1)="1,1"

for x= 0 to 1
  response.write arrdata(x,0)
  response.write arrdata(x,1)
next

Bare et eksempel

websmith > det er vist ikke det, der er planen ;-)

hossein har lavet det rigtigt. Så sp burde kunne lukkes...

hadaps?

yep yep...

takker hossein...