08. februar 2006 - 12:36Der er
13 kommentarer og 1 løsning
jeg kan ikke finde fejlen i den her klump kode
jeg kan ikke finde fejlen i den her Public Class Form1 Inherits System.Windows.Forms.Form Dim linein As String Dim txtoutput As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oFile As System.IO.File Dim oRead As System.IO.StreamReader oRead = oFile.OpenText("C:\test.txt") While oRead.Peek <> -1 linein = oRead.Read() End While oRead.Close() End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ListBox1.Items.Add(linein) End Sub End Class
jeg vil have den til at udskrive inholdet af test.txt til en listbox(en linie af gangen) men den skriver bar 106 istedet for inholdet af test.txt
*2c jeg prøvede med readline() og nu skriver den den første linie af txt filen(hvilket er rigtigt) men den skriver kun den første linie hver gang jeg trykker på button2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oFile As System.IO.File Dim oRead As System.IO.StreamReader oRead = oFile.OpenText("C:\test.txt") While oRead.Peek <> -1
Do until eof(1)
' såden gør man i VB6, der åbner man filen, med et nummer, jeg ved ikke med .Net ' men den skal køre i løkke intil filen er læst igennem linein = oRead.ReadLine() ListBox1.Items.Add(linein)
det virker helt fint hvis jeg skriver dim liniID as integer = 0 do until linieID = 6 (txt filer er 6 inier lang) linein = oRead.ReadLine() ListBox1.Items.Add(linein) linieID = linieID + 1 Loop
jeg fandt noget man kan bruger istedet for EOF() (men jeg vil stadig gerne vide hvordan jeg finder ud af hvad der skal stå i EOF()) man kan bare bruge Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oFile As System.IO.File Dim oRead As System.IO.StreamReader oRead = oFile.OpenText("C:\test.txt") While oRead.Peek <> -1 linein = oRead.ReadLine() ListBox1.Items.Add(linein) If linein = " " Then GoTo slut End If slut: End While oRead.Close() End Sub
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.