[Pytanie] czytanie linijki z txt

[DrexonPl]

jak zrobic żeby czytało tą linijke co chce

[Gość]

StreamReader -> ReadLine

lub

Split('\n')

[DrexonPl]

StreamReader -> ReadLine

lub

Split('\n')

a jak wybrac linijke do przeczytania ?

[Gość]

a jak wybrac linijke do przeczytania ?

Pętlą.

[DrexonPl]

ale to ma czytac mi daną linijke, np: 5 linijke textu

....

[Gość]

ale to ma czytac mi daną linijke, np: 5 linijke textu

....

Więc musisz przeczytać pięć 4 linie (skip) i 5 lel

[DrexonPl]

Więc musisz przeczytać pięć 4 linie (skip) i 5 lel

a nie można odrazu żeby wyczytało?

 

edit:

 

Czemu to nie działa ?

        Dim R1 As String
        Dim R2 As String
        FileOpen(1, "opcje.txt", OpenMode.Input)
        PrintLine(1, R1)
        PrintLine(1, R2)
        Input(1, R1)
        Input(1, R2)
        TextBox1.Text = Val(R1)
        TextBox2.Text = Val(R2)
        FileClose()
        Form2.TextBox1.Text = R1
        Form2.TextBox2.Text = R2

 

error:

 

edit2:

 

 

:facepalm:

 

 

dałem

 

 

PrintLine(1, R1)
PrintLine(1, R2)

edit3:

 

czemu to nie działa:

 

 

        Dim obrazek As String
        obrazek = Form2.TextBox2.Text
        Me.BackgroundImage = obrazek

[Sopelek997]

Nie, chyba, że wiesz dokładnie na jakim offsecie zaczyna się ta '5 linia'

[dawid555d]

najpierw Przestrzeń nazw...

 

Imports System
Imports System.IO
Imports System.Text

 

potem deklarujemy zmienną, która będzie czytała ścieżkę gdzie znajduje się nasz folder

 

Dim SprawdzFolder As String = Application.StartupPath + "\" + "tu wpisz nazwe pliku .txt"

 

Następnie musimy sprawdzić czy dany folder istnieje

 

If File.Exists(SprawdzFolder) Then
Messagebox.show("blad")
End If

czytamy wszystkie linie,

 

Dim Los_line() As String = File.ReadAllLines(SprawdzFolder)

 

teraz odczytujemy daną linie

 

 
Messagebox.show(Los_line(numer tutaj twoja linia))

 

pamiętaj że tablica jest od zera

tzw. numer tablicy - 1

[DrexonPl]

to działa:

        Dim R1 As String
        Dim R2 As String
        FileOpen(1, "opcje.txt", OpenMode.Input)
        Input(1, R1)
        Input(1, R2)
        FileClose()
        Form2.TextBox1.Text = R1
        Form2.TextBox2.Text = R2

 

mi chodzi o to:

Dim obrazek As String
        obrazek = Form2.TextBox2.Text
        Me.BackgroundImage = obrazek

zapisywanie do danej lini jak zrobic ?