Diskusia – 3. diel - Práca s textovými súbormi vo VB.NET

Späť

Upozorňujeme, že diskusie pod našimi online kurzami sú nemoderované a primárne slúžia na získavanie spätnej väzby pre budúce vylepšenie kurzov. Pre študentov našich rekvalifikačných kurzov ponúkame možnosť priameho kontaktu s lektormi a študijným referentom pre osobné konzultácie a podporu v rámci ich štúdia. Toto je exkluzívna služba, ktorá zaisťuje kvalitnú a cielenú pomoc v prípade akýchkoľvek otázok alebo projektov.

Komentáre

Vetva

Člen

Vetva:25.12.2013 13:52

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

Odpovedať

25.12.2013 13:52

Michal Žůrek - misaz

Tvůrce

Michal Žůrek - misaz:25.12.2013 14:05

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.

Odpovedať

25.12.2013 14:05

Neaktivní uživatel

Člen

Neaktivní uživatel:1.8.2014 17:27

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

Odpovedať

1.8.2014 17:27

Neaktivní uživatelský účet

Neaktivní uživatel

Tvůrce

Neaktivní uživatel:1.8.2014 17:47

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.

Odpovedať

1.8.2014 17:47

Neaktivní uživatelský účet

Michael Škrášek

Tvůrce

Michael Škrášek:1.8.2014 17:52

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

Odpovedať

1.8.2014 17:52

"I choose a lazy person to do a hard job. Because that person will find an easy way to do it. " Bill Gates

Michael Škrášek

Tvůrce

Michael Škrášek:1.8.2014 18:00

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

Odpovedať

1.8.2014 18:00

"I choose a lazy person to do a hard job. Because that person will find an easy way to do it. " Bill Gates

Michael Škrášek

Tvůrce

Michael Škrášek:1.8.2014 19:00

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

Odpovedať

1.8.2014 19:00

"I choose a lazy person to do a hard job. Because that person will find an easy way to do it. " Bill Gates

Neaktivní uživatel

Tvůrce

Neaktivní uživatel:1.8.2014 19:18

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

Editované 1.8.2014 19:21

Odpovedať

1.8.2014 19:18

Neaktivní uživatelský účet

Vetva

Člen

Vetva:4.3.2015 21:34

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

Editované 4.3.2015 21:35

Odpovedať

4.3.2015 21:34

Angelidis Aris

Člen

Angelidis Aris:5.11.2018 12:02

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)

Nevis kolik radku ma dany archiv
Exit s lupy urychly program

Odpovedať

5.11.2018 12:02

Robíme čo je v našich silách, aby bola tunajšia diskusia čo najkvalitnejšia. Preto do nej tiež môžu prispievať len registrovaní členovia. Pre zapojenie sa do diskusie sa zaloguj. Ak ešte nemáš účet, zaregistruj sa, je to zadarmo.

Zatiaľ nikto nevložil komentár - buď prvý!

Najčastejšie vyhľadávané

Diskusia – 3. diel - Práca s textovými súbormi vo VB.NET