Willkommen, Gast!

Wenn dies Ihr erster Besuch in unserem Forum ist, sollten Sie sich zuerst unsere Forum-Netiquette durchlesen. Bevor Sie nun Beiträge schreiben, empfehlen wir Ihnen eine kostenlose Registrierung, da Sie durch Ihren eigenen Account deutlich mehr Features und Komfort im Forum genießen können. Wenn Sie ein bestimmtes Thema suchen, können Sie unsere Suchfunktion benutzen. Falls Sie sich bereits angemeldet haben, können Sie Ihren Account (im Menü links unter Mein Profil aufrufbar) verwalten.


Neue Beiträge, der letzten 24 Stunden
.


Es ist jetzt 11:33 Uhr.

Hardware-Mag - Forum » Software » Programmieren » VB Text aus Textbox untereinander in eine Textdatei speichern
Letzter Beitrag | Erster ungelesener Beitrag Druckvorschau | An Freund senden | Thema zu Favoriten hinzufügen
Neues Thema erstellen Antwort erstellen
VB Text aus Textbox untereinander in eine Textdatei speichern
Autor
Beitrag « Vorheriges Thema | Nächstes Thema »
popopo popopo ist männlich
PC-Schrauber


images/avatars/avatar-339.gif

Dabei seit: 19.11.2006
Beiträge: 167

VB Text aus Textbox untereinander in eine Textdatei speichern Auf diesen Beitrag antworten Zitatantwort auf diesen Beitrag erstellen Diesen Beitrag editieren/löschen Diesen Beitrag einem Moderator melden

Hallo Leute,

Also als erstes einmal ich hab bestimmt jetzt schon zwei Tage damit verbracht, im Internet danach zu suchen, wie man einen Text aus einer Texbox in eine Datei speichert. Aber jetzt zu meiner frage:

Also ich habe schon ein Code gefunde, der mir das was ich geschrieben habe (in einer Textbox) in eine Datei kopiert, aber wenn ich das dann noch mal machen will, überschreibt er den Text, den ich vorher geschrieben habe und in der Textdatei abgespeichert habe. Ich möchte, dass das was ich in die Textbox geschrieben habe in der ersten Zeile ist . Wenn ich das dan wiederhole mit einem anderm Text in der Textbox, soll der zweite Text unter dem erstem Text in der .txt-Datei stehen. So soll es möglichst immer weiter gehen, sodass der eingegebene Text immer untereinander steht.

Beispiel:
Erstes Mal

Textbox: Hallo1
Button Speichern
------------------------
Zweites Mal

Textbox: Hallo2
Button: Speichern
------------------------

Neu Textdokument.txt.=

Hallo1
Hallo2



Währe echt nett wenn ihr mit helfen könntet.
Vielen Dank popopo
Immer fragen wenn man meinen Text nicht versteht. Augenzwinkern



__________________
Was könnte ich hier hinschreiben...?

02.05.2008 10:43 E-Mail an popopo senden Beiträge von popopo suchen
Horst
Overclocker


images/avatars/avatar-339.gif

Dabei seit: 01.01.2007
Beiträge: 125

Auf diesen Beitrag antworten Zitatantwort auf diesen Beitrag erstellen Diesen Beitrag editieren/löschen Diesen Beitrag einem Moderator melden

Moin,

das soll doch bestimmt in Visual Basic sein, oder?
Könntest du den fertigen Code posten, den du schon hast? Ich hab keine Erfahrung mit VB, dürfte aber nicht schwer sein den Code bischen umzumodeln.

MfG, Horst

02.05.2008 16:11 Beiträge von Horst suchen
popopo popopo ist männlich
PC-Schrauber


images/avatars/avatar-339.gif

Dabei seit: 19.11.2006
Beiträge: 167

Themenstarter Thema begonnen von popopo
Auf diesen Beitrag antworten Zitatantwort auf diesen Beitrag erstellen Diesen Beitrag editieren/löschen Diesen Beitrag einem Moderator melden

Also ganz erlich, immoment hab ich noch garkein Code. Ich habe nur einen Code, der das was in einer Textbox steht in die txt Datei reinschreibt, aber das dann in die erste Zeile setzt und den Rest darunter. Ich will es aber genau andersrum, so dass was ich in die Textbox schreibe unter den vorhandenen Text kommt.

code:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
Dim zeile, gesamt, variable1, as String

Open "Neu Textdokument.txt" For Input as #1

variable1 = Texbox1.text

gesamt=variable1 & vbCrLf

While Not EOF(1)

Line Input #1, zeile

gesamt=gesamt & vbCrLf & zeile

Wend

close #1

Open "Neu Textdokument.txt" for Output as #2

Print #2, gesamt

Close #2




__________________
Was könnte ich hier hinschreiben...?

Dieser Beitrag wurde 1 mal editiert, zum letzten Mal von popopo: 02.05.2008 17:28.

02.05.2008 17:26 E-Mail an popopo senden Beiträge von popopo suchen
popopo popopo ist männlich
PC-Schrauber


images/avatars/avatar-339.gif

Dabei seit: 19.11.2006
Beiträge: 167

Themenstarter Thema begonnen von popopo
Auf diesen Beitrag antworten Zitatantwort auf diesen Beitrag erstellen Diesen Beitrag editieren/löschen Diesen Beitrag einem Moderator melden

Na also geht doch. Jetzt hab ichs selbst rausgefunde. Also eigt. vb@archiv hat mit geholfen, aber egal.

Für die, die es interesiert ist hier der Code:

code:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
' Einzelne Zeile an eine Textdatei anhängen
' sFilename:  vollständiger Name der Datei
' sLine    :  Inhalt, der gespeichert werden soll
' ===============================================
Public Sub txt_AppendLine(ByVal sFilename As String, _
  ByVal sLine As String)
 
  Dim F As Integer
 
  ' Datei zum "Anhängen" von Daten öffnen
  ' und Textzeile ans Ende anfügen
  F = FreeFile
  Open sFilename For Append As #F
  Print #F, sLine
  Close #F
End Sub


Trotzdem vielen dank!
mfg popopo



__________________
Was könnte ich hier hinschreiben...?

02.05.2008 18:47 E-Mail an popopo senden Beiträge von popopo suchen
Slugger Slugger ist männlich
High-End-User


images/avatars/avatar-257.jpg

Dabei seit: 29.11.2006
Beiträge: 766

Auf diesen Beitrag antworten Zitatantwort auf diesen Beitrag erstellen Diesen Beitrag editieren/löschen Diesen Beitrag einem Moderator melden

Du hättest in dem ersten Code auch einfach aus"gesamt=gesamt & vbCrLf & zeile" ein "gesamt=zeile & vbCrLf & gesamt" machen können.
Das sollte auch gehen.



__________________
Meine Erstsystem:
Intel X58||Core I7-950||Geforce 470GTX||OCZ DDR3-1600 3x6GB||
Creative SB-Z||OCZ Vertex3 120GB (SATA3)||WD-RED 3TB (SATA2)||Seagate Barracuda 320GB (SATA2)||Logitech G700s ||Logitech G910

Zweitsystem:
Intel DP35DP||Core2Duo E6750||Geforce 8800GTS||OCZ DDR2-800Mhz 2x2GB
02.05.2008 20:20 E-Mail an Slugger senden Beiträge von Slugger suchen
Ratgeber Ratgeber ist weiblich
Hardware-Noob


images/avatars/avatar-339.gif

Dabei seit: 09.05.2008
Beiträge: 1
Herkunft: Frankreich

Auf diesen Beitrag antworten Zitatantwort auf diesen Beitrag erstellen Diesen Beitrag editieren/löschen Diesen Beitrag einem Moderator melden

Hey! Danke für die Code und alle die andere Informationen!
Es wird mir viel helfen!
Wenn sie noch Fragen haben könnt ihr vielleicht auch hier gucken:
http://www.experto.de/computer-technik/
Es gibt super Erklärungen ;-)



__________________
Hier findet ihr hilreiche Tipps über alle Themen:
http://www.experto.de ;-)

Dieser Beitrag wurde 1 mal editiert, zum letzten Mal von Ratgeber: 09.05.2008 14:30.

09.05.2008 14:28 E-Mail an Ratgeber senden Homepage von Ratgeber Beiträge von Ratgeber suchen
Baumstruktur | Brettstruktur
Gehe zu:
Neues Thema erstellen Antwort erstellen
Hardware-Mag - Forum » Software » Programmieren » VB Text aus Textbox untereinander in eine Textdatei speichern



Forensoftware: Burning Board 2.3.6, entwickelt von WoltLab GmbH