Hej och hå...
Det har varit låg aktivitet på den tråden jag hade min fråga så jag skapade en ny rackare...
Hoppas det inte gör allt för mycket...
Jag får ett error mess som säger:
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'Ubound'
/tt.asp, line 73
Och koden:
dim r, row, instream, helaraden, c, c2, ArrAll(0,0)
c = 0
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set InStream = FileObject.OpenTextFile (Server.Mappath ("textfil2.txt"),1, False)
do while not instream.atEndOfStream
c2 = 0
' räknar rader...
row = instream.readline
items = split(row, ";")
helaraden = split(row, vbCrLf)
Ubound(ArrAll,1) = c RAD 73
Do while c2 \<\> 4
Ubound(ArrAll,2) = items(c2)
c2 = c2 + 1
Redim ArrAll(c,c2)
loop
c = c + 1
Redim ArrAll(c,c2)
loop
inStream.close
Har sökt runt. Men ingen av lösningsförslagen jag hittade kunde hjälpa mig. Tror dock att det kanske det är fel på initieringen men jag är för usel på arrayer för att förstå vad och var...
Någon som vet vad det kan bero på? Eller hur man kan lösa den här rackaren?
Eeehh... Ja just de... Det jag vill göra är att få två 1-dimensionella arrayer till en 2-dimensionell. typ...