Jag ska göra ett program som visar olika kurser. Jag måste ha en lista på alla kurser och utifrån den listan ska man kunna välja en kurs och se all information om den kursen. Alla uppgifter om kurser ska hämtas ifrån en textfil. Hur kan jag göra det?

Läs i kurs på detta forum hur man läser från textfiler, eller kolla dokumentationen för FileSystemObject i VB's hjälp eller på msdn.microsoft.com. FileSystemObject är bästa sättet att hantera textfiler.

Jag kan inte medge att FileSystemObject är det bästa sättet att arbeta med filer..

Jag har iaf inte fått intrycket av det än så länge iaf..
Jag använder fortfarande den "gamla" hederliga funktionen som alltid funnits i Basic: Open..

Här har du två funktioner som lätt läser/skriver en array till hårddisken:

Public Function SaveArray2File(ByRef inArray() As String, ByVal inFileName As String)
Dim iFileNr As Integer
Dim sTemp As String

sTemp = Join(inString, Chr(0))

iFileNr = FreeFile
Open inFileName For Binary Access Write Lock Write As iFileNr
Put #iFileNr, , sTemp$
Close iFileNr
End Function

Public Function ReadFile2Array(ByVal inFileName As String) As String()
Dim iFileNr As Integer
Dim tString As String
Dim sTemp As String

If Dir(inFileName) <> "" Then
iFileNr = FreeFile
Open inFileName$ For Binary As #iFileNr
tString$ = String$(LOF(iFileNr), 32)
Get #iFileNr, 1, tString$
Close #iFileNr
ReadFile2Array = Split(tString$, Chr(0))
Else
ReadFile2Array = Split("", Chr(0))
End If
End Function

Dom här två kan du använda för att få ut/spara en lista (array) med någonting..

Tex:

Dim sLista() As String
Dim sLadda() As String

ReDim sLista(1)

sLista(0) = "Hejsan1"
sLista(1) = "Hejsan2"

SaveArray2File sLista, "c:\test.lst"
sLadda = ReadFile2Array("c:\test.lst")

Nu har du sLadda(0) som innehåller "Hejsan1" och sLadda(1) som innehåller "Hejsan2"..

Filen kommer att både sparas och laddas fort..

MVH
//Jonas

Tack för svaret, men när jag startar programmet så kommer en msgbox som talar om att REDIM e en invalid outside procedure.