Diskuze – Lekce 3 - Práce s textovými soubory ve VB.NET

Aký je rozdiel medzi :
Using sr As New StreamReader("sou­bor.txt")
a
Dim sr As StreamReader("sou­bor.txt")
okrem toho, že pri Dim je nutné volať:
sr.Close

skoro žádný, každopádně Using se doporučuje protože i zabraňuje memory leakům, kdežto ta varianta s Dim paměť vyčistí až v okamžiku kdy voláš Close.

Jak mám nastavit aby se přečetl POUZE 2. řádek ? za radu předem děkuji

Jednou zavoláš metodu Readline jen tak a pak jí teprve uložíš. Možná to jde i lépe, ale to ti bohužel neporadím.

Imports System.IO

Module Module1

    Sub Main()
        Using sr As StreamReader = New StreamReader("soubor.txt")
            For i = 1 To 10
                Dim line = sr.ReadLine()
                If i = 2 Then
                    Dim potrebny_radek = line
                End If
            Next
        End Using

    End Sub

End Module

Nebo jak říkal Jiří Gracík (FunebrakCZ)

Imports System.IO

 Module Module1

     Sub Main()
         Using sr As StreamReader = New StreamReader("soubor.txt")
             sr.ReadLine()
             Dim line = sr.ReadLine()
         End Using

     End Sub

 End Module

Myslím že je 1. možnost lepší protože se dá využít dobře u funkce. Ve VB to neumím, ale v C# by to mohlo být nějak takto:

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

using System.IO;

namespace ConsoleApplication4
{
    class Program
    {
        static string radek;
        static void Main(string[] args)
        {
            potrebny_radek(10);
            Console.WriteLine(radek);
            Console.ReadKey();
        }

        static void potrebny_radek(int cislo_radku)
        {
            StreamReader sr = new StreamReader(@"soubor.txt");
            string line;
            int i = 0;
            while ((line = sr.ReadLine()) != null)
            {
                i++;
                if (i == cislo_radku)
                {
                    radek = line;
                }
            }
        }
    }
}

Zmínil jsem to proto, že jsem dostal i-- a obhajujuse

Našel jsem lepší variantu jak obě naše !

public string GetLine(int line){

  return File.ReadLines(FileName).Skip(line - 1).Take(1).First();
}

// line je číslo řádku, které chceme

A ako vymazať len napr. 2 riadok ? Že by prepis celého súboru ?

Lepe je pouzit tento spusob

Try
FileOpen(1, "C:\soubor.txt", OpenMode.Input)
Dim i As Integer = 0
Dim s As String = ""
While Not EOF(1)
i += 1
s = LineInput(1)
If i = 2 Then
MsgBox(s)
Exit While
End If
End While
Catch ex As Exception
MsgBox(ex.ToString)
End Try
FileClose(1)

1. Nevis kolik radku ma dany archiv
2. Exit s lupy urychly program