dotNETportal.cz

Zkoušel jsem vytvořit program podle vašeho zajímavého návodu, ale jsem úplný začátečník a něco je špatně. Při spuštění programu se mi nezobrazuje obsah v ListView (buď je prázdný, nebo je tam jeden řádek)

Public Class Form1

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'uložit data
        Dim soubor As New IO.StreamWriter("C:\database.txt")       'otevřít soubor
        For i As Integer = 0 To ListView1.Items.Count - 1       'Projít všechny položky seznamu
            soubor.WriteLine(ListView1.Items(i).SubItems(0).Text) 'zapsat datum
            soubor.WriteLine(ListView1.Items(i).SubItems(1).Text) 'zapsat částku
            soubor.WriteLine(ListView1.Items(i).SubItems(3).Text) 'zapsat popis
        Next
        soubor.Close()                                            'zavřít soubor
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim soubor As New IO.StreamReader("C:\database.txt")             'otevřít soubor
        While Not soubor.EndOfStream                    'šíst, dokud nejsme na konci souboru
            Dim datum As DateTime = CDate(soubor.ReadLine())        'načíst druhý řádek z trojice - datum
            Dim castka As Double = CDbl(soubor.ReadLine())          'načíst třetí řádek z trojice - popis

            'přidat položku do seznamu
            Dim polozka As New ListViewItem()                       'vytvořit novou položku seznamu
            If castka < 0 Then polozka.ForeColor = Color.Red 'zaporné částky obarveny červeně
            polozka.Text = datum                                    'vypsat datum
            polozka.SubItems.Add(castka)                            'přidat druhý sloupeček s částkou
            polozka.SubItems.Add(Text)                              'přidat třetí sloupeček s popiskem
            ListView1.Items.Add(polozka)                            'přidat položku do seznamu

        End While                                                   'zavřít soubor

        soubor.Close()
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dlg As New Dialog1()                                'vytvořit objekt nového okna
        If dlg.ShowDialog() = DialogResult.OK Then  'zobrazit okno a počkat na zavření, pokud je ok, tak...

            'zjistit hodnoty z okna
            Dim datum As DateTime = dlg.DateTimePircker1.Value  'zjistitdatum
            Dim castka As Double = dlg.NumericUpDown1.Value     'zjistit částku
            Dim text As String = dlg.TextBox1.Text              'zjistit popis

            Dim polozka As New ListViewItem()                   'vytv ořit novou položku seznamu
            If Castka < 0 Then polozka.ForeColor = Color.Red 'pokud je částka zaporná, obravit na červeno
            polozka.Text = datum.ToShortDateString()            'vypsat datum
            polozka.SubItems.Add(castka)                         'přidat druhý sloupeček s částkou
            polozka.SubItems.Add(text)                           'přidat třetí sloupeček s popisem
            ListView1.Items.Add(polozka)                         'přidat položku do seznamu
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If ListView1.SelectedItems.Count = 0 Then Exit Sub 'pokud není vybrána žádná položka, nic neupravovat

        With ListView1.SelectedItems(0)
            Dim dlg As New Dialog1()            'vytvoří objekt nového okna

            'nastavit do okna hodnoty ze seznamu
            dlg.DateTimePicker1.Value = CDate(.SubItems(0).Text)            'nastavit datum
            dlg.NumericUpDown1.Value = CDbl(.SubItems(1).Text)              'nastavit částku
            dlg.TextBox1.Text = .SubItems(2).Text                           'nastavit popis

            If dlg.ShowDialog() = DialogResult.OK Then 'zobrazit okno a počkat na uzavření, pokud je OK tak...

                'zjistit hodnoty z okna
                Dim datum As DateTime = dlg.DateTimePicker1.Value       'zjistit datum
                Dim castka As Double = dlg.NumericUpDown1.Value         'zjistit částku
                Dim text As String = dlg.TextBox1.Text                  'zjistit popis

                'pokud je částka menší než nula, Obarvit položku červeně, jinak ji obarvit černě
                If castka < 0 Then .ForeColor = Color.Red Else .ForeColor = Color.Black
                .SubItems(0).Text = datum.ToShortDateString()           'vypsat datum
                .SubItems(1).Text = castka                          'přidat druhý sloupec s částkou
                .SubItems(2).Text = text                            'přidat třetí sloupec s popisem

            End If
        End With
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If ListView1.SelectedItems.Count = 0 Then Exit Sub 'pokud není vybraná žádná položka, nic se nestane

        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub
End Class

Kontroloval jsem to po sobě, ale nic jsem nenašel. Pokud něco najdete tak mi prosím dejte vědět.

Zdravím,

taky jsem kvůli tomuhle problému začal prohledávat forum :D Ale zrovna před chvílí jsem zkoušel a tuším kde je problém

Dim datum As DateTime = CDate(soubor.ReadLine())

v tomhle případě mi to padá, nevím proč, když jsem tento kus kódu "osekl" a nechal jen:

soubor.ReadLine()

tak bylo vše v pohodě (ale musel jsem ještě zakomentovat samozřejmě řádek "polozka.Text = datum")

A jdu zkoumat dál, co je tam teda špatně ....(omlouvám se, ale píšu z jiného pc než mám kód)

Zdravím Matysku Kady,

v kódu u Form1_Load jste špatně opsal kód z těchto stránek.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim soubor As New IO.StreamReader("C:\database.txt")             'otevřít soubor
        While Not soubor.EndOfStream                    'šíst, dokud nejsme na konci souboru
            Dim datum As DateTime = CDate(soubor.ReadLine())        'načíst druhý řádek z trojice - datum
            Dim castka As Double = CDbl(soubor.ReadLine())          'načíst třetí řádek z trojice - popis
            Dim Text As String = soubor.ReadLine()                  'to je ten řádek co vám chybí
 
            'přidat položku do seznamu
            Dim polozka As New ListViewItem()                       'vytvořit novou položku seznamu
            If castka < 0 Then polozka.ForeColor = Color.Red 'zaporné částky obarveny červeně
            polozka.Text = datum                                    'vypsat datum
            polozka.SubItems.Add(castka)                            'přidat druhý sloupeček s částkou
            polozka.SubItems.Add(Text)                              'přidat třetí sloupeček s popiskem
            ListView1.Items.Add(polozka)                            'přidat položku do seznamu
 
        End While                                                   'zavřít soubor
 
        soubor.Close()
    End Sub

Zdravím Matysku Kady,

v kódu u Form1_Load jste špatně opsal kód z těchto stránek.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim soubor As New IO.StreamReader("C:\database.txt")             'otevřít soubor
        While Not soubor.EndOfStream                    'šíst, dokud nejsme na konci souboru
            Dim datum As DateTime = CDate(soubor.ReadLine())        'načíst druhý řádek z trojice - datum
            Dim castka As Double = CDbl(soubor.ReadLine())          'načíst třetí řádek z trojice - popis
            Dim Text As String = soubor.ReadLine()                  'to je ten řádek co vám chybí
 
            'přidat položku do seznamu
            Dim polozka As New ListViewItem()                       'vytvořit novou položku seznamu
            If castka < 0 Then polozka.ForeColor = Color.Red 'zaporné částky obarveny červeně
            polozka.Text = datum                                    'vypsat datum
            polozka.SubItems.Add(castka)                            'přidat druhý sloupeček s částkou
            polozka.SubItems.Add(Text)                              'přidat třetí sloupeček s popiskem
            ListView1.Items.Add(polozka)                            'přidat položku do seznamu
 
        End While                                                   'zavřít soubor
 
        soubor.Close()
    End Sub

int[] pole;

public Form1()

{

InitializeComponent();

}

private void Generuj(int x = 5)

{

Random rnd = new Random();

pole = new int[x];

for (int i = 0; i < x; i++)

{

pole[i] = rnd.Next(-10, 10);

}

}

private void Form1_Load(object sender, EventArgs e)

{

Generuj();

}

private void btnLoadForeach_Click(object sender, EventArgs e)

{

rtb.Text = "";

rtb.Text += $"Výpis pole o velikosti {pole.Length}";

int y = 0;

foreach (int x in pole)

{

rtb.Text += Environment.NewLine;

rtb.Text += $"p[{y++}] - {x}";

}

}

private void btnLoadFor_Click(object sender, EventArgs e)

{

rtb.Text = "";

rtb.Text += $"Výpis pole o velikosti {pole.Length}";

for (int i = 0; i < pole.Length; i++)

{

rtb.Text += Environment.NewLine;

rtb.Text += $"p[{i}] - {pole[i]}";

}

}

private void btnWrite_Click(object sender, EventArgs e)

{

Generuj((int)nud.Value);

}

Aplikaci jsem si pro sebe lehce upravoval aby mi zobrazovala a počítala koeficient hráčů z jedné hry, fungovalo by to takhle:

zadám jméno hráče, zadám jméno závodu, zadám pořadí hráče v závodu a kolik hráčů tento závod jelo (koeficient by to spocitalo- poradi / pocethracu * 40). Aplikace po zápisu fungovala dobře až na to že se mi data z database.txt nenačetla a po ukončení ani neuložila. Může mi někdo prosím poradit co s tím

?

Aplikaci jsem si pro sebe lehce upravoval aby mi zobrazovala a počítala koeficient hráčů z jedné hry, fungovalo by to takhle:

zadám jméno hráče, zadám jméno závodu, zadám pořadí hráče v závodu a kolik hráčů tento závod jelo (koeficient by to spocitalo- poradi / pocethracu * 40). Aplikace po zápisu fungovala dobře až na to že se mi data z database.txt nenačetla a po ukončení ani neuložila. Může mi někdo prosím poradit co s tím

?

ahojte, neviete mi niekto poradit , ked stlacim F5, program mi pise takuto hlasku :

Conversion from string "15.1.2007" to type 'Date' is not valid.

a nasledovne nebezi, predpokladam, ze mam nieco, zle, ale neviem prist na to ako to mam opravit.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'načtení vstupu

Dim soubor As New IO.StreamReader("database.txt") 'otevřít soubor

While Not soubor.EndOfStream 'číst, dokud nejsme na konci souboru

Dim datum As DateTime = CDate(soubor.ReadLine()) 'načíst první řádek z trojice - datum

Dim castka As Double = CDbl(soubor.ReadLine()) 'načíst druhý řádek z trojice - částka

Dim text As String = soubor.ReadLine() 'načíst třetí řádek z trojice - popis transakce

'přidat položku do seznamu

Dim polozka As New ListViewItem() 'vytvořit novou položku seznamu

If castka < 0 Then polozka.ForeColor = Color.Red 'pokud je částka menší než nula, obarvit položku červeně

polozka.Text = datum 'vypsat datum

polozka.SubItems.Add(castka) 'přidat druhý sloupeček s částkou

polozka.SubItems.Add(text) 'přidat třetí sloupeček s popisem

ListView1.Items.Add(polozka) 'přidat položku do seznamu

End While

soubor.Close() 'zavřít soubor

End Sub

End Class

Ahoj, měl jsem stejný problém. Problém je v americké stylu formátování data. To znamená že musíš dát nejdříve měsíce a poté dny...

Chcem sa pekne poďakovať za tento perfektný seriál. Veľmi oceňujem jednoduchosť a zrozumiteľnosť písania článkov s ohľadom na úplných začiatočníkov. Je to veľmi hodnotný seriál, dúfam, že bude pokračovať. Ešte raz ďakujem.

Dobrý den, chci se zeptat jestli jde nastavit univerzální cesta k textovýmu souboru.

Dim file As String = "C:\Users\owner\Desktop\ukladani.txt"

Dim reader As StreamReader = New StreamReader(file, System.Text.Encoding.UTF8)

Myslím tím, abych mohl program přenášet na víc počítačů a neměnit pořád cestu k textovýmu souboru. Určitě vím, že by mělo jít, aby se cesta automaticky upravila na stejnou cestu jako je uložen samotný program. Bohužel jsem na to ve VB nepřišel.

Zdravim, tak jsem z toho malinko zmatený co jsem udělal. Mám sestavený kód podle předlohy:

Dim soubor As New IO.StreamReader("database.txt")

Tak se mi VB zastavil na podmíce while not soubor.endofstream, že si mám zkontrolovat jestli není soubor již uzavřen, že nemůže číst. Zkusil jsem změnit kód na:

Dim soubor As New System.IO.StreamReader("database.txt")

A najednou to maká. Nejzajímavější je, že když jsem slovo System. posléze umazal, čili to bylo jako předtím, tak to funguje bez problémů... Je mi to zvláštní..

BTW pod mozilla Firefox v6.0.2. nejsou vidět tlačítka, proto kód píšu jako text..)

Dobrý den,

Když jsem napsal veškerý zdrojový kód, přesně do písmene a chtěl spustit program tak mi to napsalo tuhle chybu:

Error While trying to run project: Nelze načíst soubor nebo sestavení Pole\,Cykly a práce se soubory nebo jeden z jejich závislých prvků. Zadaný název sestavení nebo základ kódu byl neplatný. (Vyjímka na základě hodnoty HRESULT:0x80131047)

Bylo by fajn, kdyby program na zacatku overil pritomnost souboru database.txt aby to nehazelo chybu, kdyz tam neni. Pokud nenalezne, aby nabidl jeho vytvoreni...

Nema nekdo tuseni jaka funkce to dela? :)

Setkal jsem se s blokem příkazů Try...Catch

Př.:

Try      'zachytit chyby
'příkazy, kde víte, že by se mohla stát chyba, třeba 
'se nevyhledá database.txt
Catch
'příkazy, které se spustí pokud se chyba stane. Např.:
MsgBox("Vytvořte textový soubor!")
Finally
'příkazy, které se spustí ať už chyba nastane nebo ne
End Try

Dobrý deň,

myslím si, že deklarovať premenné vnútri cyklu nie je dobré (mám skúsenosti s VB6, tam to evidentne zdržuje, predpokladám, že vo VB.NET je to obdobné). Nebolo by lepšie najskôr zadefinovať premenné a vnútri cyklu do nich už len vkladať dáta?

napr. miesto tohoto kódu:

for i = 1 to 1000
  Dim a as Integer
  a = a + i
next i

ja by som to napísal takto:

Dim a as Integer
for i = 1 to 1000
  a = a + i
next i

Dave.

PS. Pozor ide o princíp, samozrejme že po zbehnutí kódov a bude obsahovať iné číslo :(

Oba kódy, které jste sem poslal, nedělají to samé. Pokud nadeklaruji proměnnou uvnitř cyklu, pak to dělám v případě, že to potřebuji. Jakmile daný krok toho cyklu skončí, proměnná nadeklarovaná uvnitř přestane existovat a v dalším kroku se vytvoří znovu. Funguje a dá se použít pouze uvnitř tohoto cyklu a v rámci jednoho kroku, hodnoty si nepamatuje. Jistěže deklarace proměnné má nějakou režii, ale ta je ve VB.NET zanedbatelná, řádově rychlejší než ve VB6. Nadeklarovat proměnnou uvnitř a vně cyklu je ve VB.NET naprosto stejně rychlé, akorát ty uvnitř cyklu se vytváří víckrát. Dávejte pozor, abyste uvnitř cyklů nevytvářeli objekty, pokud to opravdu nepotřebujete (dost často je to účel, vytvořit víc objektů, někdy ale potřebujete pracovat pouze s jedním).

No upravim to teda tak, aby oba kody robili to iste (ten predchadzajuci prispevok je moj, len som sa vtedy neprihlasil):

While Not soubor.EndOfStream 
Dim datum As DateTime = CDate(soubor.ReadLine())
End While

nebolo by to lepsie takto?:

Dim datum As DateTime

While Not soubor.EndOfStream 
DateTime = CDate(soubor.ReadLine())
End While

V prvom pripade totizto musi program xkrat deklarovat aj zapisat hodnotu do premennej, v druhom pripade deklaruje len raz. Aj ked zdeklarovanie premennej urobi aj jej "vynulovanie", ak som ju uz predtym pouzival.

Souhlasím,

myslím, že učit začátečníku, deklarovat proměnné v cyklu,

je principialní chyba. Je to výuka špatného návyku v programování.

Naopak by se před tím mělo varovat, stejným způsobem jako autor správně opakovaně zdůrazňuje potřebu uzavírání souboru.

Samozřejmě, že v krátkých cyklech to v¨nevadí,

ale začátečník je schpen to pak použít i v cyklech velmi rozsáhlých aniž mu dojdou důsledky.

No, nikdo nejme dokonalí. :-)

Jinak díky moc autorovi za seriál, též přecházím z VB6 a je pro mě velkým přínosem.

Co je špatného na deklaraci proměnné v cyklu? Jaké špatné důsledky to má? Tady naopak je potřeba v každém průchodu cyklu vytvořit novou ListViewItem a jestli si na ni udělám novou proměnnou, která se po skončení průchodu cyklem zase zruší, nebo na to mít jednu, je úplně jedno, nezabere ani o bajt paměti víc.

Myslim, ze to kolega pred Vami vysvetlil pomerne jasne.

Jde o principalni chybu (slusne receno). Ze to nesezere byte pameti navic je irelevantni - navic efektivita kodu se nemeri jen obsazenou pameti...

Ucite tu zacatecniky spatnym navykum.

Proc je to spatny navyk tu uz nekdo take zminil: az Vam v te smycce nekdo zacne vytvaret slozity objekt a nebude mit ani tucha, ze je neco spatne, muzou uzivatele dekovat hadejte komu. A spolehat se na .NET je jizda po tenkem lede. Takze si to prosim neberte osobne a uvedenou vec napravte.

A mmch: je to pro zacatecniky, ale asi by se sluselo zminit alespon elementarni bezpecnost vyvoje kodu. Pokud Vam do database.txt sahnu a uprostred smazu jedinou radku, zacnou se dit veci, ze? Spolehat se na vlastni konstrukt plavouci na vode totiz patri k dalsim zlym navykum. A pokud pracujete v tymu, muze Vas to osklive vytrestat. Nezadam implementaci, ale alespon poznamka na okraj by nebyla od veci.

Hezky zbytek dne,

Adam F.

Slovní spojení principiální chyba mi přijde jako klišé. V čem je ta chyba? Ještě nikdo mi to nevysvětlil. Proč je to špatný návyk?

Deklarace proměnné uvnitř cyklu ve skutečnosti vůbec nezpomaluje - tohle vyoptimalizuje kompilátor, nebude tím kynout paměť a bude se to chovat úplně stejně. Zvláště když je to hodnotový typ.

Je nutné si uvědomit, že proměnná platí pouze v bloku kódu, kde je deklarována. Pokud ji napíšete do For cyklu, platí pouze v rámci jednoho kroku.

Naprosto logické mi přijde deklarovat proměnnou, kterou používáme pouze v rámci jednoho kroku, uvnitř tohoto kroku For cyklu - tím naznačujeme, co proměnná dělá. Pokud v každém kroku potřebujeme s tou proměnnou něco udělat, je to něco jiného a proměnná platí po celou dobu cyklu, deklarujeme ji tedy vně.

To, že se proměnné uvnitř cyklů nebo bloků dělat nemají, je hloupost - vadí to hlavně Delphíčkářům, protože ti museli vždy všechny proměnné deklarovat na začátku procedury. V .NETu je to irelevantní.

Váš argument s tím, že pak začátečníci v každém kroku dělají tuny objektů, což je zbytečné, platí jak kdy.

V tomto konkrétním případě potřebujeme vytvořit pro každý krok cyklu novou ListViewItem, je to tedy vytváření objektů v cyklu a je to nezbytné.

Samozřejmě pokud bychom vytvářeli nějaké pomocné objekty (třeba FileInfo, Bitmap nebo tak něco), které se dají znovupoužívat, je věc jiná, to by se dělat nemělo, ale v této situaci je to irelevantní.

Co se týče ochrany proti chybám v souboru, je to samozřejmě pravda, poznámka do čláknu by se hodila, ale nemůžete po začátečnících chtít, aby z nich vypadnul profesionální kód. Většina lidí u programování dlouho nevydrží a cílem těchto článků je hlavně, aby je to začalo bavit. Kontrola chyb v textovém souboru by celý kód výrazně zkomplikovala, správně by se ještě měly ošetřovat výjimky, minimálně IOException atd., ale tím bych odváděl pozornost od konkrétního problému, který tento článek řeší, a začátečníci by se v tom akorát ztratili a bylo by to k ničemu.

Za připomínky děkuji, ale deklarace proměnných a vytváření objektu je podstatný rozdíl (i když ve VB.NET, v C# je ten rozdíl vidět víc). Vezmu to v úvahu při revizi těchto článků, ke které se chystám.

Ale přesto trvám na tom, že na deklaraci proměnné uvnitř cyklu není nic špatného.

Tohle mi není jasné jak to funguje.

for i = 1 to 10
  Dim Neco As Integer
 ...
 ...
Next

Znamená to že se v každém cyklu proměnná "Neco" deklaruje 10x?

To je blbost ne? Proč by se to dělalo? Stačí to přece jednou před cyklem.

Zkouším tohle:

Module Module1

    Sub Main()

		Dim Vysledek As Integer
		Dim Cyklus As Integer


		For Cyklus = 1 To 10

			Dim Cislo As Integer
			Dim Mezisoucet As Integer

			Cislo = 5
			Mezisoucet = Cislo + Cyklus
			Cislo += Vysledek

			Vysledek = Mezisoucet + Cislo
		Next


		Console.Write("Pokus")
		Console.WriteLine(Vysledek)
	End Sub

End Module

Proměnné Cislo a Mezisoucet si pamatuji hodnotu, takže se nedeklarují znovu.

Ale po úpravě na:

  Dim Cislo As Integer = 10
  Dim Mezisoucet As Integer = 10

se proměnné inicializují v každém cyklu.

Zrovna píšu na převod řetezce ze souboru do DB. Docela fuška. V cyklech mám takových proměných několik: mezisoucet, PrevodTextNaCislo, PrevodAdres, RadekZeSouboru ... hodne se tim zprehledni program.

Ahoj, chtěl jsem se zeptat jestli jde ve VB.net změnit koncovka např. ze *.txt na *.html ?

ahoj

-som uplny amater co sa tyka programovania ale bavi ma to a chcem sa naucit zaklady podla tychto vasich "navodov" ..

zatial som nemal ziadny problem, az do teraz ..

pri vasom vysvetleni mi ide uplne vsetko tak ako ma, a aj ked som zmenil jednu vec:

Dim A As New IO.StreamWriter("C:\test.txt")
        A.WriteLine("skuska")
        A.Close()

-zatial vsetko ok.

ale pytam sa , da sa to urobit tak aby ("C:\test.txt") som nahradil premennou a tym vlastne vybral priamo v spustenom programe , ze kam sa ten ???.txt subor ma zapisat ?

skusal som to formou comboboxu ale vobec som si s tym nevedel rady ..

program sa spustil , ale ked som stlacit buton pre zapisanie - padol !

vyzeralo to nejak takto :

 Dim C As String
        C = CStr(ComboBox1.SelectedItem)

        Dim A As New IO.StreamWriter(C)
        A.WriteLine("skuska")
        A.Close()

dakujem a chvalim autora sa vemi pekne spracovane navody !!

STANDO

napadlo mě udělat tohle

     Dim soubor As New IO.StreamReader("jmena.txt")
        While Not soubor.EndOfStream

            Dim text As String = soubor.ReadLine()
            Dim vysl() As String = text.Split(",")


            Dim polozka As New ListViewItem()

            polozka.Text = vysl(0)
            polozka.SubItems.Add(vysl(1))
            polozka.SubItems.Add(vysl(2))
            polozka.SubItems.Add(vysl(3))
            polozka.SubItems.Add(vysl(4))
        
            ListView1.Items.Add(polozka)
        End While

jenže když na jednom radku mam

jmeno,1,2

min čárek tak mi to hodi chybu

a kdyz to budu dělat tim ze tam dam carky navic tak to se mi zrovan nechce

jmeno,1,2,,

Jinak než doplňovat prázdné čárky to udělat nejde.Je to standardní postup - nebuďte líný,akorát si tak přiděláte problémy.Takto se standardně dělají formáty csv nebo exporty z DB.

ok a když mám třeba v dokumentu na konci nějaký znak a za tim znakem koment jak mám nastavit aby to četlo až po ten znak místo readtoend kterej čte do konce souboru nejspíš nějak přas IndexOf ale nevim jak to zapsat

Zdravim. :)

co když mám ten .txt soubor zapsanej třeba

jmeno,1,2,3

jmeno,2,4,5,6

a nebudu to mít jednotlivě pod sebou ? jak to potom načtu do listview ?

Debaty o tom, kde má být provedena deklarace proměnné, zda vně či uvnitř cyklu se mi zdá autorem článku dostatečně objasněna a není potřeba se v tom dále šťourat. Rovněž tak připomínky k zranitelnosti takovéhoto programu.......jedná se přece o příklad pro začátečníka a není ho potřeba zahlcovat hned všemi problémy, které se na něj sesypou. Já naopak oceńuji to, že autor jde po podstatě problému, který zrovna vysvětluje. Díky...

Koukam, že jsem asi trochu z jiného světa... u mě položka moje narozeniny znamená většinou výdaj, nikoli příjem :D.

Jinak díky za nápad deklarovat proměnnou uvnitř cyklu, nenapadlo by mě to z obavy deklarovat porměnou stejného názevu vícekrát, netušil jsem, že platí pouze pro konkrétní cyklus.

Vytvořil jsem si takovýho správce hesel, všechno funguje jen na jeden problém. ListView má 3 sloupce z textem, jak je uložit aby se při dalším spuštění načetli?

Pracuji s Visual Basic.net (Verze 2003), nepodařilo se mi při programování prográmku příjmy a výdaje nastavit ve vlastnostech u souboru database.txt Copy To Output Directory na Copy If Newer.Nevím kde to nastavit nenašel jsem to. Jsem úplný začátečník a jedu postupně Váš 18 dílný trénink, který CHVÁLÍM ! Je pro mě přehledný a do Lekce 8 jsem neměl žádný problém.

V solution exploreru oznac soubor database.txt a v okne Properties je vlastnost Copy to Output, (druha zezhora,) hned vedle je Do not copy. Misto toho vyber Copy if newer.

Dobry den, mel bych dotaz. Jak muzu ulozit text, ktery je videt pri otevreni souboru pomoci programu excel, z formatu xlsx do nejake promenne? Metoda readline objektu typu streamreader mi cte vsechny znaky, takze ten normalni text je k nepoznani.

pusťte si tedy Visual Basic, vytvořte novou Windows Application a v průzkumníkovi projektu !!!klikněte na název projektu!!! pravým tlačítkem a vyberte Add / New Item.... Dobrý den, mohl byste mi prosím vysvetlit kam mám vlastně kliknout?? kde najdu ten název projektu

Solution Explorer (Ctrl-ALT-L) - prave tlacitko na nazev

Při spuštění programu se mi objeví toto sdělení:

"File Not Found Exeption was unhandled"

Objekt "Databáze.txt" je samozřejmě uložena v adresáři Bin projktu, takže nevím.

milkub

Já si vytvořil textový dokument na ploše WindowsXP a změnil jsem název na io.frg a přesunul jsem ho na céčko. V kódu jsem použil absolutní cestu.

Dim soubor As New IO.StreamReader("C:\io.frg")
            While Not soubor.EndOfStream
            Dim cpv As String = soubor.ReadLine()
            Dim datum_vyst As DateTime = CDate(soubor.ReadLine())
            Dim jmeno As String = soubor.ReadLine()
            
Dim polozka As New ListViewItem()
            If cpv = 1 Then polozka.BackColor = Color.Green 
            If cpv = 2 Then polozka.BackColor = Color.RoyalBlue
            If cpv = 3 Then polozka.BackColor = Color.Red
            polozka.Text = cpv               
            polozka.SubItems.Add(datum_vyst)
            polozka.SubItems.Add(jmeno)
            ListView1.Items.Add(polozka)
          End While

        soubor.Close()

Jak napsat tento program aby mohlo více počítačů číst a ukládat do jednoho společného textového souboru s použitím komponenty ListView a aby změny které provedl jeden uživatel nezrušil uživatel druhý který současně uložil soubor.

Díky

Pavel

Zdravim,

udělal jsem na listview sort(sestupný) podle datumu,ale bohužel se to neřadí správně.Nebere se hodnota datumu,ale prvního čísla.Tz.že např. 10.5.2008 by bylo dříve jak 2.5.2008

netuší někdo?

díky

Mám takovou otázku. Vytvořím tedy při běhu programu nějaké záznamy a chtěl bych, aby byly po ukončení programu uloženy. Tak abych až příště spustím program, byly tyto záznamy opět načteny. Jak na to?

Protože nyní ten program po různých úpravách atd záznamy před jeho vypnutím neuloží. Jak na to?

Přehlédl jsem něco v textu? Děkuji za odpověď.

Ahoj, VB sice moc neznám, ale je to ve většině prostředí stejné, takže k zajištění nahrání dat při spištění postačí vložit kód pro načítání ze souboru do eventu: FormCreate, nebo FormOpen (nevím přesně jak to tam je). Takže postup je: V editoru kódu vyberte Form1 Events a ve druhém seznamu událost FormCreate/FormOpen/nebo něco na ten způsob. Pevně věřím, že to tam bude a že to najdete.

Dobrý den, procházím si váš zajímavý seriál a u tohoto příkladu, kdy máme poprvé 2 okna, by mě zajímalo, jak docílit toho, aby se okna při spuštění vzájemně nepřekrývala.

Děkuji.

H.R.

Dobrý den,

Váš seriál o VB.NET je opravdu užitečný, doufám, že v něm budete i nadále pokračovat.

Chtěl bych se zeptat, jeslti existuje nějaká možnost, jak využít místo ListView DataGridView ? Předem děkuji za odpověď.

Tady je maly priklad v C# jestli ti to pomuze. Plni se tabulka s jednim sloupcem. Cesta s nazvem souboru je v sFileName.

            FileInfo f = new FileInfo(sFileName);
            StreamReader stream = f.OpenText();
            while(!stream.EndOfStream )
            {
                dataGridView1.Rows.Add(new object[] { stream.ReadLine() });
            }

Dva sloupce by byly naplneny takto:

dataGridView1.Rows.Add(new object[] { sHodnota1, sHodnota2 });

Uvedený příklad s ListView sice funguje, ale při "soubor.ReadLine" se ze souboru "database.txt" nenačtou české znaky, takže texty popisu skončí jako "Vplata", "Vbr z bankomatu"... co s tím, poraďte, prosím

Je to problém s kódováním češtiny. Otevřete tento textový soubor ve Visual Studiu (nebo Visual Basic 2005 Express) a v menu File vyberte Save As. Když se v dialogu pro výběr souboru podíváte na tlačítko Save, najdete tam malou šipečku dolů. Pokud na ni kliknete, rozbalí se kontextová nabídka. Vyberte Save With Encoding a v následujícím okně vyberte jiné kódování. Těžko říci, které to bude, pravděpodobně ANSI (nebo také Windows 1250) nebo UTF-8. S jinými kódováními budou pravděpodobně problémy.

Díky, s UTF-8 je čeština OK.

a da se nejak nastavit kodovani primo v programu, pri ukladani, resp. vytvareni souboru?

Řešením by mohla být specifikace kodováni při vytváření instance StreamWriteru:

Dim soubor As New IO.StreamWriter("database.txt", True, System.Text.Encoding.UTF32)