Daten in txt abspeicher und auslesen? vb 08

[Brumanix]

Halli hallo

ich würde gerne wissen wie man mit Visual Basic 2008 daten in datein schreibt und wieder ausliest.

thx für eure hoffentlich kommenden Antworten

ps.: bitte nicht zu kompliziert machn, fange grade erst mit vb an

mfg

 

[cebito]

AW: Daten in txt abspeicher und auslesen? vb 08

Lesen:

Dim DateiNr As Integer
Dim Temp  As String
DateiNr = FreeFile
Open "mein_text.txt" For Input As DateiNr
    Input #DateiNr, Temp
    txtTextfeld.Text = Temp
Close

Schreiben:

Dim DateiNr As Integer
DateiNr = FreeFile
Open "mein_text.txt" For Output As DateiNr
    Print #DateiNr, txtTextfeld.Text
Close

weitere Zugriffsmodi:
Input - Lesezugriff
Output - Schreibzugriff
Append - Schreibzugriff (Text wird hinten angefügt)
Binary - Lese- und Schreibzugriff
Random - Lese- und Schreibzugriff (Datensatznummer muß angegeben werden)

Ich würd dir empfehlen ein Buch zu kaufen...

 

[Brumanix]

AW: Daten in txt abspeicher und auslesen? vb 08

thx erstemal, es ergibt sich jtz jedoch noch einiges für mich fragwürdiges...

Fehler 1 "Open" ist nicht deklariert. Dateieingaben und -ausgaben sind im Microsoft.VisualBasic-Namespace verfügbar.

würde gerne wissen wie man in vb namespace integriert.

Noch ne Frage: Würd wenn die Datei nicht existiert dann eine erstellt?
Wie bei c++ >>> io:app ???



ps.: nein ich werde mir kein Buch kaufen! Das habe ich schon bei C++ gemacht und da habe ich bemerkt das ich mit probieren schneller herausfinde was ich wissen möchte und ich mir das dann auch besser merke.

 

[cebito]

AW: Daten in txt abspeicher und auslesen? vb 08

Habe gerade gesehn, daß in der neueren Version es "FileOpen" heißt. Hab mich schon lang nicht mehr damit beschäftigt. Die genauen Funktionsbeschreibungen usw. lassen sich alle in der nachlesen...
Und... Ja, sollte die Datei noch nicht existieren, wird sie neu erstellt.

 

[Brumanix]

AW: Daten in txt abspeicher und auslesen? vb 08

ich hab das jtz irgendwie hinbekommen^^

und zwar sieht das ungefähr so aus:

lesen:

DateiNr = FreeFile()
        If (My.Computer.FileSystem.FileExists("Hotkeys.txt") = True) Then
            FileOpen(DateiNr, "Hotkeys.txt", OpenMode.Input)
            Dim s As String = "Dein Text"
            Input(1, s)
            TextBox1.Text = s
         else (... hier kommt noch das es eine neue datei machn soll...)

schreiben:

DateiNr = FreeFile()
        FileOpen(DateiNr, "Hotkeys.txt", OpenMode.Output)
        Write(DateiNr, TextBox1.Text)
        FileClose(DateiNr)

das endprodukt:


hier noch ein bild:

Bitte kostenlos registrieren, damit du die Bilder siehst.

Tasten F1 - F2 können mit Buchstabengruppen belegt werden.
Hotkeys können gespeichert werden!
Sonderzeichn wie ^^ °° + und andere können leider nicht verwendet werden >> error oder garnix