Keskustelu: Ohjelmointikysymykset: VB.NET: tiedostoon kirjoitus ja lukeminen

Joo tiedän että voi olla monta kertaa ollu tää aihe mutta en oo löytäny semmosta jonka oisin käsittäny niinku kunnolla tai sitte saanu toimimaan.
Eli ongelmani on että miten saan tallennettua esimerkiksi textboxista tiedostoon?
Sitten toinen ongelma, miten onnistun tekemään niin että luen sen tekstin tiedostosta ja vertaan sitä vaikka textboin sisältöön ?
Olen vasta aika aloittelija tässä joten koittakaa ymmärtää =)

QB, VB vai VB.NET

No totaa tee vaikka näin:
ota kaksi tekst boxia. Laita niiden MultiLine arvoksi 'true'. Ota sitten kaksi buttonia. Klikkaa Button1 ja kirjoita koodi

'tallennetaan teksi boxiin kirjoitettu teksti
a = text1.Text
Open "tekstitiedosto.txt" For Output As #1
Print #1, a
Close

klikkaa sitten Button2 ja laita koodi

'avataan
Open "tekstitiedosto.txt" For Input As #1
text2 = Input(LOF(1), 1)
Close

[muokkaus]sori sooda lainasin vähän koodias ;)[/muokkaus]

'Esim näin: tee kolme painikeetta ja textboxi
'Ykköspainikkeella on luku
'kakkospainikkeella kirjoitus
'kolmoselaa rivien lisäys olemassaolevaan

Private Const Tiedosto = "c:\temp\testi.txt" 'laita tiedoston nimi

Private Sub Command1_Click() ' Luku painike
act = TarkistaTiedosto(Onkotiedosto)
act = AvaaTiedosto(Tiedosto, 1, Onkotiedosto)
End Sub
Private Sub Command2_Click() ' Kirjoitus painike
act = AvaaTiedosto(Tiedosto, 2, 1) ' Tekee tiedoston vaikka ei olisikaan
End Sub
Private Sub Command3_Click() 'Lisäys painike
act = AvaaTiedosto(Tiedosto, 3, 1) ' Tekee tiedoston vaikka ei olisikaan
End Sub

Function AvaaTiedosto(Tiedostonimi, Tyyppi, Onkotiedosto)
Reset ' Sulkee kaikki avoimet tiedostot
If Tyyppi < 1 And Onkotiedosto < 0 Then Exit Function 'Tiedosto ei olemassa
Tiedostonumero = FreeFile
Select Case Tyyppi
Case 1 ' Luku
Open Tiedostonimi For Input As #Tiedostonumero ' Avaa luettavaksi
Input #Tiedostonumero, jotain ' Lue yksi rivi
Text1.Text = jotain ' kirjoita tulos text1.text sisällön tiedostoon
Case 2 ' Kirjoitus
Open Tiedostonimi For Output As #Tiedostonumero ' Avaa ja kirjoita päälle
Print #Tiedostonumero, Text1.Text ' Kirjoittaa text1.text sisällön tiedostoon
Case 3 ' Lisäys
Open Tiedostonimi For Append As #Tiedostonumero ' Avaa niin että lisää
Print #Tiedostonumero, Text1.Text ' Kirjoittaa text1.text sisällön tiedostoon
End Select
Reset 'Sulje aina avauksen jälkeen
End Function

Function TarkistaTiedosto(Onkotiedosto) ' Vain lukua varten
On Error Resume Next
Onkotiedosto = -5
Onkotiedosto = GetAttr(Tiedosto)
End Function

Tällee saa myös Appendattua/lisättyä tekstiä tiedoston loppuun:

Open "c:\tiedosto.txt" For Append As #1
Print #1, "Tekstiä"
Print #1, "toinen rivi"
Close #1

joo kiitos paljon teille että viitsisitte auttaa mua =) kuten sanoin en oo paljoo tommosten kanssa leikkiny mutta oon mää Ristinolla pelin tehtyä =)
Että kiitos vaan teille jotka viittisitte auttaa =)