Dopisywanie do pliku

[darkhacks]

Siema mam program ktory posiada listboxa do ktorego wgrywam plik tekstowy button i co potrzebne.

Chciałbym sie dowiedziec jak zrobic zeby do tego wgrane plik dopisywał po kolei (pod soba) dany tekst, oczywiscie przed tym ktory juz jest. przyklad

 

Plik tesktowy:

Asia

Kasia

Ania

 

i po wgraniu i odpaleniu programy odtrzymam cos takiego

blabla:Asia

blabla:Kasia

blabla:ania

 

Mysle ze w miare jasno napisalem

[Gość LastPhoenix450]

Czy ten temat jest w tym dziale przypadkowo... ?

 

To jest czytanie:

Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("Ania.txt")
MsgBox(fileReader)

Dodaj je do Form1 (start apki).

 

No i właśnie nie jasno bo nie rozumiem do czego ma dopisywać.

Myślę, że jak już przeczytasz tekst do textboxa(ów) to reszta to już bułeczka z nutellą.

[Gość Pan Szymek]

Siema mam program ktory posiada listboxa do ktorego wgrywam plik tekstowy button i co potrzebne.

Chciałbym sie dowiedziec jak zrobic zeby do tego wgrane plik dopisywał po kolei (pod soba) dany tekst, oczywiscie przed tym ktory juz jest. przyklad

 

Plik tesktowy:

Asia

Kasia

Ania

 

i po wgraniu i odpaleniu programy odtrzymam cos takiego

blabla:Asia

blabla:Kasia

blabla:ania

 

Mysle ze w miare jasno napisalem

To tak:

Czytasz plik

Linie dzielisz na tablicę (split('\n') / split(vbnewline))

Robisz pętlę for i do każdego elementu tablicy na początek wstawiasz interesujący element z ListBoxa

Robisz pętle while lub for i wpisujesz tablicę do pliku (każdy element = nowa linia)

[darkhacks]

Pliki do listboxa otwieram tym kodem

OpenFileDialog1.ShowDialog()
    streamer = IO.File.OpenText(OpenFileDialog1.FileName)
    Dim delimiters() As Char = New Char() {vbCr, vbLf}
    Dim mystring() As String = streamer.ReadToEnd.Split(delimiters, StringSplitOptions.RemoveEmptyEntries)
    ListBox1.Items.AddRange(mystring)

 

Nie bardzo wiem jak porobic te petle :/