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ť

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ť

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ť

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ť

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ť

"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ť

"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ť

"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é

Odpovedať

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é

Odpovedať

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ť

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.

Zobrazené 10 správy z 10.

Najčastejšie vyhľadávané

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