dotNETportal.cz

Dobrý den,

můj problém bude patrně triviální, bohužel jsem ale nikde nenašla, jak ho vyřešit, proto se obracím o pomoc.

Mám textový soubor, ve kterém potřebuji vymazat konkrétní řádek.

Následující kód sice z řádku vymaže písmenka, ale řádek samotný nezmizí (zůstane prázdný a zabírá původní místo).

        Dim soubor As String = IO.File.ReadAllText("c:\text.txt")
        soubor = soubor.Replace(radek3, "") 'obsah radku 3 prepise na "nic"
        IO.File.WriteAllText("c:\text.txt", soubor)

Výsledný soubor pak vypadá takto:

řádek1

řádek2

řádek4

řádek5

Ale já potřebuju, aby vypadal takto:

řádek1

řádek2

řádek4

řádek5

(jednoduše bez toho prázdného místa po řádku č. 3)

Je nějaké řešení? Za případnou odpověď velmi děkuji.

Ještě mě napadla otázka - jak smazat řádek bez ohledu na to, co je v něm napsané?

Pokud budu chtít výše zmíněným kódem smazat řádek č. 3, který bude obsahově stejný, jako řádek č. 5, tak se mi smažou oba řádky.

Zdravím,

sice by to šlo asi napsal lépe, ale já používám zhruba toto a taky to funguje :c)

        Dim Soubor As String = "d:\soubor.txt"
        Dim SouborTmp As String = Soubor & ".tmp"
        FileOpen(1, Soubor, OpenMode.Input, OpenAccess.Read)
        FileOpen(2, SouborTmp, OpenMode.Output, OpenAccess.Write)
        Dim X As Integer = 1
        While Not EOF(1)
            Dim Radek As String = LineInput(1)

            ' Když se načte vpořadí 3 řádek vynechá se
            If Not X = 3 Then PrintLine(2, Radek)

            X += 1
        End While
        FileClose(1)
        FileClose(2)
        FileIO.FileSystem.DeleteFile(Soubor)
        FileIO.FileSystem.RenameFile(SouborTmp, Soubor.Substring(Soubor.LastIndexOf("\") + 1))

Děkuji za obě odpovědi. Vzhledem k časové tísni je pro mě to druhé řešení optimální. Děkuji.