none
Label´s Speichern !?! RRS feed

  • 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?


    Sonntag, 11. Januar 2009 19:51

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
    Sonntag, 11. Januar 2009 21:16
  • 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
    Montag, 12. Januar 2009 22:42

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
    Sonntag, 11. Januar 2009 21:16
  • 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?
    Montag, 12. Januar 2009 13:35
  • 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
    Montag, 12. Januar 2009 17:04
  • hmm weiter hat mich das nicht gebracht ...
    ich hoffe du bist bald wieder zuhause Stick out tongue
    'Damit du mir helfen kannst^^



    Montag, 12. Januar 2009 20:56
  • 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
    Montag, 12. Januar 2009 22:42