IT rekvalifikace s garancí práce. Seniorní programátoři vydělávají až 160 000 Kč/měsíc a rekvalifikace je prvním krokem. Zjisti, jak na to!
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.11.2019 12:19

Dobrý deň, potreboval by som sa opitat ako zapisat na zadane cislo riatku v textovom subore text, napr. ak zadam 3 tak sa text zapise na treti riadok a riadky za nim sa posunu o jeden nizsie tak aby zadany riadok neprepisal povodni riadok ale iba ho posunul, a tize by som potreboval vediet ako zmazat riadok na zadanom cisle tak aby sa vsetky riadky nad nim posunuli o jedno vyssie a neostal tam prazdny riadok.
Ďakujem za kazdu pomoc.

 
Odpovědět
27.11.2019 12:19
Avatar
3012
Člen
Avatar
3012:27.11.2019 12:23

Ked tak nad tym uvazujem, mohli by ste mi prosim poradit aj s tim prepisom zadaneho riadku? Ďakujem :)

 
Nahoru Odpovědět
27.11.2019 12:23
Avatar
Miroslav Jurek:27.11.2019 15:31

tak narychlo, ked zavolas tuto metodu bez tretieho volitelneho argumentu tak sa riadok maze, ak zadas text(treti argument) tak sa ten text vlozi na riadok.

modifyLineInFile("c:\temp\a.txt", 4)'zmaze v subore uvedeny riadok
modifyLineInFile("c:\temp\a.txt", 4,"Test")'doplni v subore na uvedeny riadok text
Sub modifyLineInFile(filename As String, line As Integer, Optional textToInsert As String = "")
    Dim text As New List(Of String)
    text.AddRange(IO.File.ReadAllLines(filename))
    If line <= text.Count AndAlso Not String.IsNullOrEmpty(textToInsert) Then
        text.Insert(line, textToInsert)
    ElseIf line <= text.Count Then
        text.RemoveAt(line)
    End If
    IO.File.WriteAllLines(filename, text.ToArray)
End Sub
Editováno 27.11.2019 15:33
Akceptované řešení
+20 Zkušeností
+2,50 Kč
Řešení problému
 
Nahoru Odpovědět
27.11.2019 15:31
Avatar
3012
Člen
Avatar
Odpovídá na Miroslav Jurek
3012:29.11.2019 20:55

Ahoj, ďakujem ti za pomoc, veľmi si ju vážim, prepáč že odpisujem až teraz, iba pred chvíľou som si našiel odpoveď

 
Nahoru Odpovědět
29.11.2019 20:55
Avatar
3012
Člen
Avatar
Odpovídá na Miroslav Jurek
3012:29.11.2019 20:56

Ahoj, ďakujem ti za pomoc, veľmi si ju vážim, prepáč že odpisujem až teraz, iba pred chvíľou som si našiel odpoveď

 
Nahoru Odpovědět
29.11.2019 20:56
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 5 zpráv z 5.