är det någon här som vet hur man kan på ett enkelt sätt läsa in en del av en textfil. Säg att det finns 5 rader som skall läsas in till en listbox. Efter dessa rader kommer en punkt, nästa rad är en tomrad sedan följer ytterligare ett antal rader som skall till en anna listbox.
EX

kalle
Adam
Bertil.

Andersson
Karlsson
Svensson.

Förnamnen skall till Listbox 1 medan efternamnen skall till Listbox 2.

Hej
Så här ungefär ,Du kan skippa punkten som separator
det räcker med tom rad.

Option Explicit
Private Sub Command1_Click()
Dim FileNum As Long, tmpStr As String
FileNum = FreeFile
List1.Visible = False: List2.Visible = False
Open "C:\TestFil.txt" For Input As #FileNum

Do Until EOF(FileNum)
Line Input #FileNum, tmpStr
If tmpStr = "" Then Exit Do
List1.AddItem tmpStr
Loop

Do Until EOF(FileNum)
Line Input #FileNum, tmpStr
List2.AddItem tmpStr
Loop

List1.Visible = True: List2.Visible = True
Close #FileNum
End Sub

mvh
Sven

Finns säkert många sätt. Här kommer en enkel

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\test.txt", 1)
i = 0
Do Until f.AtEndOfStream
strText = f.ReadLine
If strText <> "" Then
List1(i).AddItem Replace(strText, ".", "")
Else
i = 1
End If
Loop

/Janne

Ni är änglar grabbar, jag tackar och bugar.Jag tänkte detvar något åt det hållet men jag varför trött igår för att kunna tänka. Nu har jag hittat ett problem till som jag funderar på.
Jag har en textfil som läses in till en listcombo. Om nu användaren vill lägga till nya recept så skall ju dessa läggas i två olika filer. Inga problem så långt, men det jag inte kommer på riktigt är hur jag skall lösa proceduren med valet, alltså när användaren väljer i listcombon så skall ju textfil 2 läsas in till två listboxar. Kan på något annat sätt än det jag gjort få detta att fungera. jag har hittillis gjort så här

Select Case cmbmaträtt
Case "Asiatisk fiskgryta"
Open (App.Path & "\Asiatisk fiskgryta.txt") For Input As #1
'Lagra och skriv ut i listboxen.
While Not EOF(1)
'Läsa in en post
Line Input #1, buffert
temp = buffert
lstvisa.AddItem (temp)
Wend
Close #1
End Select

Men gör man på detta sätt så kan ju inte användaren lägga in nya recept. Det måste finnas något annat sätt.

Om du väljer recept i en lista kan du få ngt liknande:

tmpStr = lista.list(lista.listindex)

Open (App.Path & "\" & tmpStr & ".txt") For Input As #1
'Lagra och skriv ut i listboxen.
While Not EOF(1)
'Läsa in en post
Line Input #1, buffert
temp = buffert
lstvisa.AddItem (temp)
Wend
Close #1

På så vis använder du samma kod oavsett fil, så länge du använder filnamnet utan ändelse som listpost.

//Emma