dotNETportal.cz

Ahoj

Chcel by som sa spytat ako precitam cely riadok od zaciatku do konca aj s medzerami?

Je to jednoducha aplikacia ktora cita riadok po riadku a zapisuje ho do suboru potom to z toho suboru upravene precita..

Prikladam kod:

'ulozi data

        Dim s1 As New IO.StreamWriter("riadkovanie.txt")     'otvori soubor



        Dim p As Integer                                     'premenna p su cisla ktore generuje za N



        For i As Integer = 0 To rtb1.Lines.Length - 1        'prejst vsetky riadky

            's1.WriteLine("N" & p & " " & i)                  'zapise do riadku N

            s1.WriteLine(i)

            p += krok1.Value

        Next

        s1.Close()



        ' nacita data

        Dim s2 As New IO.StreamReader("riadkovanie.txt")     'otvorit subor

        While Not s2.EndOfStream                             'citat pokial som neni na konci suboru

            Dim text As String = s2.ReadLine()               'nacitat riadok 

            rtb1.Text = s2.ReadToEnd                         'zapisat riadok do richtextboxu

        End While



        s2.Close()                                           'zavriet soubor

Dakujem

dodo

Nie je mi celkom jasné na čo sa pýtate.

Riadok sa dá načítať z StreamReaderu alebo z Richtextboxu.

Snáď pomôže toto :

Dim s2 As New IO.StreamReader("c:\tst.txt")
        While s2.Peek > -1
            RichTextBox1.Text = s2.ReadToEnd
            Dim text As String = s2.ReadLine() 'Nacitanie riadku z StreamReaderu
            Dim text2 As String = RichTextBox1.Lines(0) 'Nacitanie riadku z Richtextboxu
        End While
        s2.Close()

Mne citanie zo suboru funguje dobre len zapisovanie akosi nie...

Ked mam napriklad v richtextbox-e riadok "cislo text text cislo" tak mi zapise do suboru na disku iba to prve cislo po medzeru za medzerou to uz nezapise

dodo

Skúste miesto s1.WriteLine(i)

napísať s1.writeline(rtb1.lines(i))

Vaso

Ano ako vzdy mate pravdu.

dodo