In Textdatei umleiten Und anderes....

funnytommy

Erfahrenes Mitglied
Hallo Viusal Basicer

Wir haben jetzt in der Schule mit Visual Basic angefangen Was heißt angefangen, ich weiß null und hab 1000 Probleme Echt anstrengend wenn nichts funktionieren will

So aber jetzt zu meinem Problem!

Ich hab mit Visual Basic 6 ein Fenster gemacht mit zwei Feldern in denen man etwas eingeben kann!
Wenn man dann unten auf den OK Button klickt dann soll das was in die Felder eingegeben wurde in eine Textdatei gespeichert werden!

z.b.:Ein Feld mit Name und ein Feld mit Alter! Sobald man ok drückt erzeugt das Progi eine Textdatei in der der Eingegebene Name und das alter zu finden ist!

Also so eine einfache Aufgabe wird euch sicher nerven aber bitte zeigt euch gnädig!

Also schon mal vielen vielen Dank schon mal jetzt ihr helft mr wircklich!
Ich werd euch ín nächster Zeit sicher noch häufiger mit meinen Probs belästigen weil wie gesagt bei mir immer Probleme auftauchen........

Machts gut euer ft
 
ganz leicht *g*

hallo, hab auch grad erst angefangen, ist abrer ganz leicht. sagen wir du hast:

Text1.Text und
Text2.Text

In Text1 steht der Name und
in Text2 dass Alter.

Dein Ok Button heißt
Command1.Caption

Jetzt klickst du doppelt auf Command1 und springst somit zum code.
Jetzt steht dort:

Private Sub Command1_Click()

Open "c:\Test.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #2

End Sub


Jetzt hast du normalerweise eine txtdatei auf der C: mit zwei zeilen. Schreib mir dann, obs gegangen ist oder ob du was nicht gecheckt hast

Greez, Jonny
 
Versuch´s mal so:
Code:
Private Sub Command1_Click()
Dim F As Integer
  
    F = FreeFile
    Open "C:\DeineDatei.txt" For Binary As #F
    Put #F, , Text1.Text & " " & Text2.Text
    Close #F
  
End Sub
 
Bei:
Open "C:\DeineDatei.txt" For Binary As #F
Put #F, , Text1.Text & " " & Text2.Text
Close #F
wird die Datei auf einem Rutsch und nicht zeileweise geschrieben.
 
ja schon, aber..

man kann es ja auch so machen

open "c:\test.txt" For output As #1
Print #1, text1.Text & text2.Text
Close

dann ist es dass allergleiche, ODER
 
Zurück