NOVINKA - Online rekvalifikační kurz Python programátor. Oblíbená a studenty ověřená rekvalifikace - nyní i online.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.
Avatar
3012
Člen
Avatar
3012:27.1.2020 0:03

dobry vecer, chcel by som vas poprosit o pomoc, zapysujem a zmazavam riadky v textovom subore. no pri pouziti tohoto kodu pre zmazanie riadku zacne applikacia zapisovat vymazavane riadky zaprvy riadok a celi subor sa miesa, namiesto toho aby bol novy riadok pod poslednim riadkom je v jednom riadku s prvim riadkom, a uz mam z toho zmatok. Prosim kde robym chibu?

Try
            Using sr As New StreamReader(filename)
                While Not sr.EndOfStream
                    load = load + sr.ReadLine() + ControlChars.NewLine
                End While
            End Using

            load = load.Remove(load.LastIndexOf(ControlChars.NewLine))
            If (load.Contains(ControlChars.NewLine)) Then
                load = load.Remove(load.LastIndexOf(ControlChars.NewLine))
            End If


            Using sw As New StreamWriter(filename)
                sw.WriteLine(load)
            End Using

            load = ""

        Catch ex As Exception
            MessageBox.Show("You can't make changes, you haven't selected valid file.", "Warning:", MessageBoxButton.OK, MessageBoxImage.Information)
        End Try

za kazdu odpoved dakujem

 
Odpovědět
27.1.2020 0:03
Avatar
Matúš Olejník
Člen
Avatar
Odpovídá na 3012
Matúš Olejník:27.1.2020 8:06

Sorry za spam, nikdy som neriešil gramatiku, ale takéto "perly" som ešte nevidel :D Keď budeš v práci náhodou odpisovať zákazníkovi dávaj si trocha záležať ;) (napíš si to najprv napr. v MS Worde)

Nahoru Odpovědět
27.1.2020 8:06
/* I am not sure why this works but it fixes the problem */
Avatar
Miroslav Jurek
Člen
Avatar
Miroslav Jurek:28.1.2020 11:35

Kod ti robi presne to co tam mas napisane. Ak chces odstranit posledny riadok z textoveho suboru pouzi skor toto.

Sub removeLastLineFromFile(filename As String)
    Dim text() As String = IO.File.ReadAllLines(filename)
    If (text.Length) > 0 Then Array.Resize(Of String)(text, text.Length - 1)
    IO.File.WriteAllLines(filename, text)
End Sub
Akceptované řešení
+20 Zkušeností
+2,50 Kč
Řešení problému
 
Nahoru Odpovědět
28.1.2020 11:35
Avatar
3012
Člen
Avatar
Odpovídá na Miroslav Jurek
3012:28.1.2020 11:42

ahoj, už som to včera vyriešil, ale dakujem za odpoveď, a nechcem sa hadat ale predtim dochadzalo k tomu prehadzovaniu zmazavanero riadku, ale teraz už to neroby. este raz ti dakujem.

 
Nahoru Odpovědět
28.1.2020 11:42
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 4 zpráv z 4.