TextBox inhalt ans Ende einer Textdatei schreiben

Hallo,

kann mir jemand helfen?

Ich habe Visual Basic 2005 Express

Ich möchte den inhalt einer TextBox an das Ende einer Textdatei schreiben.
Der Inhalt der Textdatei soll erhalten bleiben.

Wäre es evtl sogar möglch das die textdatei abgeglichen wird ob die selbe Zeile schon einmal vorhanen ist ?


MFG

lil-Wolflkoder
 
Zuletzt bearbeitet:
Stimmt. Forum ist falsch.

Aber es handelt sich um eine relativ allgemeine Frage.

folgende Lösung sollte für VB6 oder VB2005 gelten (bitte probieren) :

Dim intRandomFileNumm as Integer

-- Der Inhalt von TextBox.Text wird nur an die Datei hinzugefügt
intRandomFileNumm = FreeFile
Open "C:\xxxx\test.txt" For Append As #intRandomFileNumm
Print #intRandomFileNumm, TextBox.Text
Close #intRandomFileNumm

-- Der Inhalt von TextBox.Text ersetzt den ursprünglichen Inhalt der Datei
intRandomFileNumm = FreeFile
Open "C:\xxxx\test.txt" For Output As #intRandomFileNumm
Print #intRandomFileNumm, TextBox.Text
Close #intRandomFileNumm

Sonst kann man auch mit ADODB.Stream arbeiten.
 
OK.

Die "Open"-Methode ist wahrscheinlich zu alt für VB2005 (ich kann es leider nicht selbst testen). Funktioniert aber 100%ig mit VB6

Unter VB6 benutze ich mittlerweile mehr und mehr den ADODB-Stream-Object. Hier ein Beispiel für diejenige, die sich dafür interessieren (unter VB6 muß man die richtige Bibliothek verbinden : Projekt/Verweise/Microsoft ActiveX Date Object >=2.5 Library - d.h ADODB-Stream erst ab Version 2.5 vorhanden)

==============================================================
Message to lil-Wolflkoder : ich glaube ADODB-Stream-Object ist Standard für VB2005.
Ich bin aber nicht sicher!! Bitte im richtigen Forum weiterfragen.
==============================================================


Private Sub Command1_Click()

Dim MyADOstreamObject As ADODB.Stream

' Object
Set MyADOstreamObject = CreateObject("ADODB.Stream")
MyADOstreamObject.Charset = "UTF-8"
MyADOstreamObject.Mode = adModeReadWrite
MyADOstreamObject.Type = adTypeText
MyADOstreamObject.Open

' lesen
MyADOstreamObject.LoadFromFile "C:\Test.txt"
' Position
MyADOstreamObject.Position = MyADOstreamObject.Size
' CRLF (wenn man will)
MyADOstreamObject.WriteText vbCr & vbCr
' Inhalt vom TextBox hinzufügen
MyADOstreamObject.WriteText Text1.Text

' speichern
MyADOstreamObject.SaveToFile "C:\Test.txt", adSaveCreateOverWrite

' schliessen
MyADOstreamObject.Close
Set MyADOstreamObject = Nothing


End Sub
 
Zurück