spremanje u txt ili u nes drugo

[Volim_VB]

evo kako mi je _SchmRz_ odgovorio na proslo pitanje sad imam jos jedno

kako da namjestim da program sam to nakon mog klika negdje snimi pomogucnosti da ja odredim tu lokaciju znaci trebo bi snimit npr.
coca cola 3 komada 5 kn
itd. sa artiklima
i nakraju da dode ukupna zarada npr 260 kn :)

i ako se to moze napravit dali se moze i da mogu rec da mi ucita od naprimjer proslog mjeseca nesto ili slicno

hvala unaprijed

[hurmash1ca]

Trebao si postati u proslu temu, ali hajde novi si.

[schmrz]

Moras prvo smisliti na koji nacin da zapisujes u fajl s tim da pazis da je taj fajl sto lakse ponovo ucitati ja predlazem ovako:

Primjer sadrzaja fajla:

Code:

Coca-Cola;2;3
Cedevita;1.5;5

Znaci:

Code:

naziv_artikla;cijena;kolicina

Tvoj program bi trebao citati liniju po liniju, razbijati stringove pomocu split metode (potrazi na internetu kako). Fajlove citas pomocu IO.StreamReader objekta, a pises pomocu IO.StreamWriter.

[Volim_VB]

ev napravio sam nes pa cu sad pokazat kako to izgleda :)

ovo sto sam ovdje napravio primjenit cu i u ovom gore primjeru

slika 1
dakle opcija open

Code:

Dim open As New OpenFileDialog
        Dim mystreamreader As System.IO.StreamReader
        open.Filter = "text [*.text*] |*text|All Files [*.*]|*.*"
        open.CheckFileExists = True
        open.Title = "Open File"
        open.ShowDialog(Me)
        Try
            open.OpenFile()
            mystreamreader = System.IO.File.OpenText(open.FileName)
            document.Text = mystreamreader.ReadToEnd

        Catch ex As Exception

onda opcija save

Code:

Dim save As New SaveFileDialog
        Dim mystreamwriter As System.IO.StreamWriter
        save.Filter = "text (*.text)|*.txt| All Files (*.*)|*.*"
        save.CheckPathExists = True
        save.Title = "Save File"
        save.ShowDialog(Me)
        Try
            mystreamwriter = System.IO.File.AppendText(save.FileName)
            mystreamwriter.Write(document.Text)
            mystreamwriter.Flush()

        Catch ex As Exception

onda save as

Code:

Dim saveas As New SaveFileDialog
        Dim mystreamwriter As System.IO.StreamWriter
        saveas.Filter = "text (*.text)|*.txt| All Files (*.*)|*.*"
        saveas.CheckPathExists = True
        saveas.Title = "Save File"
        saveas.ShowDialog(Me)
        Try
            mystreamwriter = System.IO.File.AppendText(saveas.FileName)
            mystreamwriter.Write(document.Text)
            mystreamwriter.Flush()

        Catch ex As Exception

onda undo

Code:

document.Undo()

redo:

Code:

document.Redo()

cut:

Code:

document.Cut()

copy:

Code:

document.Copy()

paste:

Code:

document.Paste()

Kako naredba za centriranje ide?