26. juni 2004 - 00:03Der er
2 kommentarer og 1 løsning
At indlæse en tekstfil i et Array
Jeg ønsker at læse en tekstfil fra ende til anden, linje for linje, og lægge indholdet ind i et Array så jeg kan arbejde med det. Dvs. en linje pr. element. Jeg er ny mht. ASP så spørgsmålet er: findes der en måde hvorpå man bare hiver linjerne ind og fylder løs på Array'et uden at angive en størrelse først, eller er man nød til at undersøge tekstfilen først så man ved hvor mange linjer der kommer, og så definere Array'et på forhånd? Et kodeeksempel ville være lækkert :)
<% Dim fso, f, filespec, arrTekst, strTekst Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("dinfil.txt") Set f = fso.OpenTextFile(filespec,1)
' Læs linie for linie indtil slutningen af filen Do While not f.AtEndOfStream strTekst = strTekst & f.ReadLine & ", " Loop
f.Close arrTekst = split(strTekst,", ")
for i = 0 to UBound(arrTekst) -1 response.write arrTekst(i) & "<Br>" next %>
jeg er ikke helt sikker, men mener også at man kan definere et array og så ikke angive en størrelse... Hvis man kan det, så kan du blot gøre sådan her:
<% Dim fso, f, filespec, arrTekst(), i Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("dinfil.txt") Set f = fso.OpenTextFile(filespec,1) i = 0 ' Læs linie for linie indtil slutningen af filen Do While not f.AtEndOfStream arrTekst(i) = f.ReadLine i = i+1 Loop
f.Close
for i = 0 to UBound(arrTekst) response.write arrTekst(i) & "<Br>" next %>
Prøv først det sidste, virker det ikke, så det første ;-)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.