Benutzer mit den meisten Antworten
Label´s Speichern !?!

Frage
-
Wie kann ich "label1"in zeile 1 und "label4" in zeile 2 in einer datai speichern (.txt) und fals die datai nicht exestiert wird sie erstellt
(und wie mache ich eine leerzeile???)
also dass ich auf einen button klicke dann kann ich aussuchen wo ich speichen möchte .... un dann wird
label 1 in zeile 1 gespeichert
label 2 in zeile 2 ~
label 11 in zeile 3 ~
...
muss ich nochwas extra einbauen oder so?
Antworten
-
Dim sw As IO.StreamWriter
sw = New IO.StreamWriter("DeineTextDatei.txt", True)
sw.WriteLine(me.label1.text)
sw.WriteLine(me.label2.text)
sw.WriteLine(me.label11.text)
sw.Close()
so schreibt man etwas in eine .txt.Datei- Als Antwort vorgeschlagen Robert Breitenhofer Sonntag, 30. August 2009 21:48
- Als Antwort markiert Robert Breitenhofer Montag, 14. September 2009 19:53
-
Also du ziehst ganz einfach den SaveFileDialog auf dein Programm.
Dann gibst im button folgenden code ein:
Try 'Verhidert, dass das Programm beim auftreten eines Fehlers abstürzt
With SaveFileDialog1 'Name deines SaveFileDialogs
.AddExtension = True 'Bei true fügt das Programm automatisch eine Dateiendung hinzu, falls keine gegeben ist
.CheckPathExists = True 'Prüft ob Pfad vorhanden ist
.CreatePrompt = False 'Wenn die Datei nicht existiert wird sie ohne Nachfrage erstellt
.OverwritePrompt = True 'Fragt nach, ob eine existierende Datei überschrieben werden soll
.ValidateNames = True 'Prüft ob der Name der Datei gültig ist
.ShowHelp = True 'Ob der Hilfe Button angezeigt wird
.DefaultExt = "Txt" 'Standart Dateiendung ist .txt
.FileName = "test" 'Der Name der Standartmäßig angegeben wird, kann auch leer sein
.Filter = _ 'Das ist der Filter, der anzeigt, welche Datein angezeigt werden können
"Text Files (*.txt)|*.txt|" & _
"Powerpoint |*.ppt|" & _"All files|*.*"
.FilterIndex = 1
If .ShowDialog = Windows.Forms.DialogResult.OK Then
My.Computer.FileSystem.WriteAllText(.FileName, Me.txtText.Text, False)
End If
End With
Catch ex As Exception
End Try- Als Antwort vorgeschlagen Robert Breitenhofer Sonntag, 30. August 2009 21:48
- Als Antwort markiert Robert Breitenhofer Montag, 14. September 2009 19:54
Alle Antworten
-
Dim sw As IO.StreamWriter
sw = New IO.StreamWriter("DeineTextDatei.txt", True)
sw.WriteLine(me.label1.text)
sw.WriteLine(me.label2.text)
sw.WriteLine(me.label11.text)
sw.Close()
so schreibt man etwas in eine .txt.Datei- Als Antwort vorgeschlagen Robert Breitenhofer Sonntag, 30. August 2009 21:48
- Als Antwort markiert Robert Breitenhofer Montag, 14. September 2009 19:53
-
Thx aber jetzt weiß ich wie man speicher ich willte aber nochdazu Wissen Wie ich ein File Auswählen kann
Beispiel Ich Will label1 speichen klicke auf Speichen dann kommt ein Neues Fenster da suche ich aus Wo ich es Speichere
(mit Datainame und typ)dann kalicke ich auf speichern und dann ist es im augewählten verzeichnis Gespeichert
bitte 2 dataitypen angeben .txt und .pdf
Soviel ich weiß muss ich noch irgentetwas andrres Einbauen...
Kannst du mir weiter Helfen? -
Für das Auswählen brauchst du einen SaveFileDialog (oder so ähnlich). Denn findest du in der Liste, von der du auch Labels und Buttons auf die Form ziehen kannst. In den Einstellungen des SaveFileDialogs kannst du schon eine Menge festlegen. Ich glaube, auch das Format (pdf, txt etc.). Ich kann dir das im Moment nicht genau beschreiben, da ich hier gerade nicht zuhause bin (also kein VB hab).
Edit:
In den Button musst du dann schreiben:
SaveFileDialog1.DialogShow ()
Sry wenns nicht ganz stimmt. Bei einem Fehler werden dir diese Inteligenten Vorschläge weiterhelfen. Das ist nämlich nicht so schwer -
Also du ziehst ganz einfach den SaveFileDialog auf dein Programm.
Dann gibst im button folgenden code ein:
Try 'Verhidert, dass das Programm beim auftreten eines Fehlers abstürzt
With SaveFileDialog1 'Name deines SaveFileDialogs
.AddExtension = True 'Bei true fügt das Programm automatisch eine Dateiendung hinzu, falls keine gegeben ist
.CheckPathExists = True 'Prüft ob Pfad vorhanden ist
.CreatePrompt = False 'Wenn die Datei nicht existiert wird sie ohne Nachfrage erstellt
.OverwritePrompt = True 'Fragt nach, ob eine existierende Datei überschrieben werden soll
.ValidateNames = True 'Prüft ob der Name der Datei gültig ist
.ShowHelp = True 'Ob der Hilfe Button angezeigt wird
.DefaultExt = "Txt" 'Standart Dateiendung ist .txt
.FileName = "test" 'Der Name der Standartmäßig angegeben wird, kann auch leer sein
.Filter = _ 'Das ist der Filter, der anzeigt, welche Datein angezeigt werden können
"Text Files (*.txt)|*.txt|" & _
"Powerpoint |*.ppt|" & _"All files|*.*"
.FilterIndex = 1
If .ShowDialog = Windows.Forms.DialogResult.OK Then
My.Computer.FileSystem.WriteAllText(.FileName, Me.txtText.Text, False)
End If
End With
Catch ex As Exception
End Try- Als Antwort vorgeschlagen Robert Breitenhofer Sonntag, 30. August 2009 21:48
- Als Antwort markiert Robert Breitenhofer Montag, 14. September 2009 19:54