hjælp fejl kode

hey jeg har rodet med et program hvor jeg læser fra en fil og ligger det ned i et array men som programmet er lige nu skriver den kun til array(0) og overskriver hver gang der komme ny infomation der skal ind i den ?? hvad skal der laves om for at den fungere

Kode 

 Set filesys = CreateObject("scripting.filesystemobject")
    
    Set readfile = filesys.opentextfile(sti, 1, False)
    
    user1 = 0
    passcheck1 = 1
    
    Do Until readfile.atendofstream
        
        linje = readfile.readline
        indhold = Split(linje, ",")
        
        user = Array(indhold(user1))
        user1 = user1 + 1
        
        passcheck = Array(indhold(passcheck1))
        passcheck1 = passcheck1 + 1
        
    Loop
    
    readfile.Close
    
    'k = user.Length
  
For i = 0 To 4
MsgBox (passcheck(i))
Next i

Prøv det her:

'modul.bas
public matrix() as string

public function hallo(alias as string)
dim a() as string
dim t as integer

a()=split(alias,",")
for t=0 to ubound(a())
    redim preserve matrix(0 to t)
    matrix(t)=a(t)
next t
end function

Det her har ikke samme funktionalitet som din kode, men det burde vise hvordan du kan klare problemet... (Hvis jeg da har forstået dit spørgsmål rigtigt)

Held og lykke, Jannich Brendle

hey jeg har rodet med et program hvor jeg læser fra en fil og ligger det ned i et array men som programmet er lige nu skriver den kun til array(0) og overskriver hver gang der komme ny infomation der skal ind i den ?? hvad skal der laves om for at den fungere

Kode 

 Set filesys = CreateObject("scripting.filesystemobject")
    
    Set readfile = filesys.opentextfile(sti, 1, False)
    
    user1 = 0
    passcheck1 = 1
    
    Do Until readfile.atendofstream
        
        linje = readfile.readline
        indhold = Split(linje, ",")
        
        user = Array(indhold(user1))
        user1 = user1 + 1
        
        passcheck = Array(indhold(passcheck1))
        passcheck1 = passcheck1 + 1
        
    Loop
    
    readfile.Close
    
    'k = user.Length
  
For i = 0 To 4
MsgBox (passcheck(i))
Next i

Prøv det her:

Kode 

'modul.bas
public matrix() as string

public function hallo(alias as string)
dim a() as string
dim t as integer

a()=split(alias,",")
for t=0 to ubound(a())
    redim preserve matrix(0 to t)
    matrix(t)=a(t)
next t
end function

Det her har ikke samme funktionalitet som din kode, men det burde vise hvordan du kan klare problemet... (Hvis jeg da har forstået dit spørgsmål rigtigt)

Held og lykke, Jannich Brendle

jo tak
jeg kan desværre ikke bruge det til det jeg laver da det ikke løse det problem jeg har med ikke at kunne få det jeg henter fra en anden fil ind i mit array ordentlig på nuværende tidspunkt er det som om min egen kode overskriver det første felt i mit array hele tiden og som jeg forstår din kode så løser den ikke det problem

tak for hjælpen