Wie zu tun, ein Speichern Als in Visual Basic (V11 2012)

Ich bin auf der Suche nach einem "Speichern Als" - Dialogfeld, um mit meinen saves aus einer Anwendung die ich mache in Visual Basic.

Dies ist der code, den ich verwende, und ich verstehe es nicht, den code entweder:

Private Sub MenuExportTo_Click(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles MenuExportTo.Click

        Dim myStream As IO.Stream  'I don't understand this line
        Dim saveFileDialog1 As New SaveFileDialog() 'I don't understand this line


        saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" 
        'I understand this
        saveFileDialog1.FilterIndex = 1 ' I understand this
        saveFileDialog1.RestoreDirectory = True ' I understand this

        If saveFileDialog1.ShowDialog() = DialogResult.OK Then 
            ' I don't understand the rest

            myStream = saveFileDialog1.OpenFile()
            If (myStream IsNot Nothing) Then
                ' Code to write the stream goes here. (This was what the example 
I referenced put here. the important code goes here, but the example was no help)
                myStream.Close()
            End If
        End If

Problem 1: ich bin neuer in diesem, keine Quelle gibt mir eine Tiefe genug Erklärung, um zu verstehen, was wirklich Los ist mit dem abspeichern Methode. Ich brauche eine solide Erklärung, ich bin verloren hier.

Problem 2: ich kann den code schreiben, um eine text-Datei an einem Ort, sondern zurück carets sind verloren, und es speichert die text-Datei alle auf einer Zeile mit dieser:

My.Computer.FileSystem.WriteAllText("c:\savelocation", TextBox1.Text, False

Wie behebe ich die Rückfahrt caret-problem? Auch,
Wie würde ich es so machen, wählt der Anwender den Speicherort statt, die als Teil der code?

Problem 3: Wie bekomme ich den Pfad der Datei angegeben durch den Benutzer im Dialogfeld "speichern unter", in eine variable?

Jede Hilfe, auch nur eine Antwort auf eine meiner Fragen wäre sehr hilfreich!
Danke!

InformationsquelleAutor user2348797 | 2013-05-04

3

Sehen, ob dieses Beispiel hilft:
```
Private Sub MenuExportTo_Click(sender As System.Object, e As System.EventArgs) Handles MenuExportTo.Click
    Dim sfd As New SaveFileDialog() ' this creates an instance of the SaveFileDialog called "sfd"
    sfd.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
    sfd.FilterIndex = 1
    sfd.RestoreDirectory = True
    If sfd.ShowDialog() = DialogResult.OK Then
        Dim FileName As String = sfd.FileName ' retrieve the full path to the file selected by the user
        Dim sw As New System.IO.StreamWriter(FileName, False) ' create a StreamWriter with the FileName selected by the User
        sw.WriteLine(TextBox1.Text) ' Write the contents of TextBox to the file
        sw.Close() ' close the file
    End If
End Sub
```
- Das hat gut funktioniert, und ich habe ein besseres Verständnis für die und wie es funktioniert. Danke! Aber, nur ein problem der linken, es immer noch spart, um die text-Datei alle auf einer Zeile. Könnte es sein, weil das Programm, das ich Schreibe, wird automatisch die Eingabe des Textes in die textbox (es ist nicht vom Benutzer eingegeben werden). Auch ist es eine richtextbox.
- WordWrap auf False, und MultiLine auf True. Dann sollte die Datei Aussehen, was haben Sie in Ihrer TextBox.
- Wenn es ein RTF, die Sie verwenden können RichTextBox1.SaveFile(sfd.FileName), und überspringen Sie den StreamWriter insgesamt.
- Das Richtextbox-Eigenschaften bereits gesetzt sind, zu Falschen WordWrap und Multiline True. Heute schreibt die text-Datei auf einer Zeile.
- Kannst du einen screenshot von dem RichTextBox-Steuerelement, mit dessen Inhalt?
- Hier ist ein link direkt zum Bild: imageshack.us/scaled/landing/15/11112127.png
- Ich sehe nicht, wie Sie die Ausgabe-Datei kann auf einer Zeile dann.
- Vielleicht, weil der code für das RichTextBox-Steuerelement sieht so aus?" - CopyFile actived." & Umgebung.NewLine Meldung & "Kopieren jedes" & _ strMin & " min " & strSec Auch, wenn wir uns nun dieser chat?
- RichTextBox ist etwas besonderes, es nicht die richtige Linie-Endungen. Verwenden Sie Ihre SaveFile () - Methode wie empfohlen von @Idle oder verwenden Sie die Datei.WriteAllLines(), die Weitergabe Ihrer Linien-Eigenschaft.
- Ich lief noch Probleme mit den anderen Methoden bei der Verwendung von rich-text-Feld. Allerdings wusste ich nicht, rich-text-Felder wurden anders behandelt als Textfelder beim schreiben von Dateien. Ich änderte die rich-text-Feld um ein Textfeld, und legen Sie die multiline-Eigenschaft auf true. Ich fühle mich wie ein doof, aber mit Idle_Mind Methode, um zu speichern, es funktioniert perfekt. Danke Euch beiden!
InformationsquelleAutor Idle_Mind

Private Sub MenuExportTo_Click(sender As System.Object, e As System.EventArgs) Handles MenuExportTo.Click
    Dim sfd As New SaveFileDialog() ' this creates an instance of the SaveFileDialog called "sfd"
    sfd.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
    sfd.FilterIndex = 1
    sfd.RestoreDirectory = True
    If sfd.ShowDialog() = DialogResult.OK Then
        Dim FileName As String = sfd.FileName ' retrieve the full path to the file selected by the user
        Dim sw As New System.IO.StreamWriter(FileName, False) ' create a StreamWriter with the FileName selected by the User
        sw.WriteLine(TextBox1.Text) ' Write the contents of TextBox to the file
        sw.Close() ' close the file
    End If
End Sub

InformationsquelleAutor hana

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.