Annonser:

Läsa in textfil med vb.net

Jun 4

Först så skriver vi detta längst upp av allt:
Imports System.IO

Denna rad öppnar textfilen:
Dim ioFile as new StreamReader(“TextFile.txt”)

Dessa rader loopar igenom hela filen:
Dim ioLine as string ‘ Going to hold one line at a time
Dim ioLines as string ‘ Going to hold whole file
ioLine = ioFile.ReadLine
ioLines = ioLine
While not ioLine = “”
ioLine = ioFile.ReadLine
ioLines = ioLines & vbcrlf & ioLine
End While

Detta skriver ut filen i en msgbox:
MsgBox(ioLines)

Filed under: VB.net

2 Responses to “Läsa in textfil med vb.net”

  1. Pontus, on November 27th, 2008 at 4:45 am Said:

    jag använde den här koden till att läsa ett filnamn som sedan öppnas med hjälp av ett wmp “addon” i vb.net men när den lägger in filnamnet så kommer det 2 konstiga tecken om ser ut som streck efter filnamnet och då går det inte öppna filmen, du vet inte vad felet är? såhär ser koden ut:

    Imports System.IO

    Public Class Form1
    Dim ioFile As New StreamReader(“C:\Documents and Settings\nkpitg07psfr\Desktop\hej.txt”)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ioLine As String
    Dim ioLines As String
    ioLine = ioFile.ReadLine
    ioLines = ioLine
    While Not ioLine = “”
    ioLine = ioFile.ReadLine
    ioLines = ioLines & vbCrLf & ioLine
    End While
    TextBox1.Text = ioLines

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim j As String = TextBox1.Text
    AxWindowsMediaPlayer1.URL = j
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    End
    End Sub
    End Class

  2. admin, on November 27th, 2008 at 5:13 am Said:

    Svår fråga, jag är allt annat än duktig på att programmera i vb.net. Men har du kollat så denna linje verkligen är rätt?

    ioLines = ioLines & vbCrLf & ioLine

    Ska det verkligen vara en variabel med en radbrytning som ska användas av wmp-prylen?
    Kolla upp “&” om vet verkligen är rätt också, annars vet jag tyvärr inte.

Leave a Reply

-