Jag skall lägga till textsträngar från en textfil med tomma rader, jag får med alla raderba men jag får inte med texten efter den tomma raden, vad gör jag för fel?
Får man lov att ha flera rader med tomma items?

KOD *****************************************************************
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim file As StreamReader
file = New StreamReader("c:\key.txt")

Do Until file.ReadLine = "slut"
ListBox1.Items.Add(file.ReadLine())
System.Windows.Forms.Application.DoEvents()
Loop
End Sub


Textfil ****************************************************************
Start
UT
EHJRB-QYC2H-A4246-CW7DK

buhre
hej på dej

slut
**********************************************************************

Hei!

Forsøk med denne koden i stedet:
<code>
Dim file As StreamReader
Dim strFil As Array

try
file = New StreamReader("c:\key.txt")
Catch exc3 As FileNotFoundException
MsgBox("Finner ikke filen")
Exit Sub
End Try
strFil = Split(file.ReadToEnd, vbCr)
Dim i As Integer
For i = 0 To UBound(strFil)
ListBox1.Items.Add(strFil(i) & " ")
Next
</code>

Dette fungerer i alle fall for meg.

Torgrim