Der BLooDy brauch ma wieder hilfe ^^ Verfasst am: 13.12.2007, 22:09
Also in Lesson 5 kann man ja Daten in einer txt speichern
jetzt hätt ich gern in meinem test programm
das so das ich mehrere .txt hab wo halt was bestimmtes speichern kann
MfG
c0re_ « Moderator »
Anmeldedatum: 29.11.2007 Beiträge: 425
Verfasst am: 13.12.2007, 22:50
Du hast, glaube ich, nur den Code abgeschrieben und kein bischen verstanden.
Mach dir ein Paar Textfelder mit dem, was du speichern möchtest und einen Commondialog für den Speicherort.
Und dann: Lern erst einmal die Basics. Du weißt anscheinend nicht einmal, wie man Text aus Textfeldern liest.
BLooDy_ Newbie
Anmeldedatum: 10.12.2007 Beiträge: 12
Verfasst am: 13.12.2007, 23:22
ja okey ich versuch das mal ^^
ist ja net schwer das zu machen
danke =)
lordblack_ Tutorial Leser
Anmeldedatum: 10.11.2007 Beiträge: 55
Verfasst am: 14.12.2007, 04:00
Bin mir nicht zu 100% sicher da ich deine frage nicht ganz verstehe und ich die lesson 5 nicht geguckt habe, aber ih habe dir hier mal 3 verschiedene Save arten gemacht.
1.) Speichert den text von 1 TextBox
2.) Speichert den text von 2 TextBoxen mit Zeile Abstand
3.) Speichert nur den Makierten Text aus einer Text Box
Keine ahnung ob es dir hift aber hier die Source
Code:
Private Sub cmd_save_Click()
Dim f As Integer
On Error Resume Next
With CommonDialog1
.CancelError = True
.Flags = cdlOFNOverwritePrompt
.Filter = "Textdateien (*.txt) |*.txt"
.ShowSave
If .FileName <> "" Then
f = FreeFile
Open .FileName For Output As #f
Print #f, txt_1.Text
Close #f
End If
End With
End Sub
Private Sub cmd_save_1_2_Click()
Dim f As Integer
On Error Resume Next
With CommonDialog1
.CancelError = True
.Flags = cdlOFNOverwritePrompt
.Filter = "Textdateien (*.txt) |*.txt"
.ShowSave
If .FileName <> "" Then
f = FreeFile
Open .FileName For Output As #f
Print #f, txt_1.Text & vbCrLf & "Ab Hier fängt txt_2 an " & vbCrLf & txt_2.Text
Close #f
End If
End With
End Sub
Private Sub cmd_save_selectet_Click()
Dim f As Integer
On Error Resume Next
With CommonDialog1
.CancelError = True
.Flags = cdlOFNOverwritePrompt
.Filter = "Textdateien (*.txt) |*.txt"
.ShowSave
If .FileName <> "" Then
f = FreeFile
Open .FileName For Output As #f
Print #f, txt_3.SelText
Close #f
End If
End With
End Sub
Registrieren
Login
