Opslaan als label1.text

[Koppelstukje]

Hoe kan ik deze opslaan als de tekst van label1 ?

Ik wil eerst de datgridview filteren op een bepaalde voorwaarde en dan deze code gebruiken om het op teslaan.

Maar hoe laat ik deze opslaan in een save file dialog met de text van label1 ?

 Dim fs As New IO.StreamWriter("C:\Data.xml", False)
        fs.WriteLine("<?xml version=""1.0""?>")
        fs.WriteLine("<?mso-application progid=""Excel.Sheet""?>")
        fs.WriteLine("<ss:Workbook xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet"">")
        fs.WriteLine("    <ss:Styles>")
        fs.WriteLine("        <ss:Style ss:ID=""1"">")
        fs.WriteLine("           <ss:Font ss:Bold=""1""/>")
        fs.WriteLine("        </ss:Style>")
        fs.WriteLine("    </ss:Styles>")
        fs.WriteLine("    <ss:Worksheet ss:Name=""Sheet1"">")
        fs.WriteLine("        <ss:Table>")
        For x As Integer = 0 To DataGridView1.Columns.Count - 1
            fs.WriteLine("            <ss:Column ss:Width=""{0}""/>",
                         DataGridView1.Columns.Item(x).Width)
        Next
        fs.WriteLine("            <ss:Row ss:StyleID=""1"">")
        For i As Integer = 0 To DataGridView1.Columns.Count - 1
            fs.WriteLine("                <ss:Cell>")
            fs.WriteLine(String.Format(
                         "                   <ss:Data ss:Type=""String"">{0}</ss:Data>",
                                       DataGridView1.Columns.Item(i).HeaderText))
            fs.WriteLine("                </ss:Cell>")
        Next
        fs.WriteLine("            </ss:Row>")
        For intRow As Integer = 0 To DataGridView1.RowCount - 2
            fs.WriteLine(String.Format("            <ss:Row ss:Height =""{0}"">",
                                       DataGridView1.Rows(intRow).Height))
            For intCol As Integer = 0 To DataGridView1.Columns.Count - 1
                fs.WriteLine("                <ss:Cell>")
                fs.WriteLine(String.Format(
                             "                   <ss:Data ss:Type=""String"">{0}</ss:Data>",
                                           DataGridView1.Item(intCol, intRow).Value.ToString))
                fs.WriteLine("                </ss:Cell>")
            Next
            fs.WriteLine("            </ss:Row>")
        Next
        fs.WriteLine("        </ss:Table>")
        fs.WriteLine("    </ss:Worksheet>")
        fs.WriteLine("</ss:Workbook>")
        fs.Close()

 

[old Hippy]

ik dacht zo iets voor je label naam

SaveFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
         SaveFileDialog1.FilterIndex = 1
         If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
             Dim myStream As New StreamWriter(SaveFileDialog1.FileName, True)
             myStream.Write(Label1.Text)
             myStream.Close()
         End If

 

[Koppelstukje]

Had al iets in elkaar gezet
Onder een button

Label1.Text = Label2.Text & Label5.Text & Label3.Text

Label1 wordt dan C:\week 48.xml

Moet alleen wat knoppen maken of een combobox met het week nummer
dan de code die ik al eerst had gegeven .
Met dit eraan toegevoegd

 Dim fs As New IO.StreamWriter(Label1.Text, False)

 

[The Mighty Atom]

Ik wil je aanraden je labels en andere controls die een belangrijke rol spelen in je programma een duidelijk naam te geven zodat je als je met code bezig bent in één oogopslag kan zien welke label wat doet en waar deze voor dient.

Want zeg nou zelf, Label1, Label2, Label3 etc zegt ons natuurlijk helemaal niks. Als je ze namen geeft is het voor ons meteen duidelijk wat de functie van een label is. En dat geldt ook voor al je andere controls.

 

[Koppelstukje]

Goeie tip , zal ik voortaan doen.

Wordt het inderdaad makkelijker om te kijken wat er gebeurd

 

[Koppelstukje]

Heb de namen veranderd

En dit werkt goed voor mij , kan op opgelost.
Is wel niet via een save dialog maar kan er mee door
Weeknr.Text is een combobox met daar in alle week nummers
Plaats en Extensie blijven altijd het zelfde .

Lokatie.Text = Plaats.Text & Weeknr.Text & Extensie.Text

Wordt dan dit bij elkaar C:\Week 48.xml

Onder een button

  Lokatie.Text = Plaats.Text & Weeknr.Text & Extensie.Text

        Dim fs As New IO.StreamWriter(Lokatie.Text, False)
        fs.WriteLine("<?xml version=""1.0""?>")
        fs.WriteLine("<?mso-application progid=""Excel.Sheet""?>")
        fs.WriteLine("<ss:Workbook xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet"">")
        fs.WriteLine("    <ss:Styles>")
        fs.WriteLine("        <ss:Style ss:ID=""1"">")
        fs.WriteLine("           <ss:Font ss:Bold=""1""/>")
        fs.WriteLine("        </ss:Style>")
        fs.WriteLine("    </ss:Styles>")
        fs.WriteLine("    <ss:Worksheet ss:Name=""Sheet1"">")
        fs.WriteLine("        <ss:Table>")
        For x As Integer = 0 To IndexDataGridView.Columns.Count - 1
            fs.WriteLine("            <ss:Column ss:Width=""{0}""/>",
                         IndexDataGridView.Columns.Item(x).Width)
        Next
        fs.WriteLine("            <ss:Row ss:StyleID=""1"">")
        For i As Integer = 0 To IndexDataGridView.Columns.Count - 1
            fs.WriteLine("                <ss:Cell>")
            fs.WriteLine(String.Format(
                         "                   <ss:Data ss:Type=""String"">{0}</ss:Data>",
                                       IndexDataGridView.Columns.Item(i).HeaderText))
            fs.WriteLine("                </ss:Cell>")
        Next
        fs.WriteLine("            </ss:Row>")
        For intRow As Integer = 0 To IndexDataGridView.RowCount - 2
            fs.WriteLine(String.Format("            <ss:Row ss:Height =""{0}"">",
                                       IndexDataGridView.Rows(intRow).Height))
            For intCol As Integer = 0 To IndexDataGridView.Columns.Count - 1
                fs.WriteLine("                <ss:Cell>")
                fs.WriteLine(String.Format(
                             "                   <ss:Data ss:Type=""String"">{0}</ss:Data>",
                                           IndexDataGridView.Item(intCol, intRow).Value.ToString))
                fs.WriteLine("                </ss:Cell>")
            Next
            fs.WriteLine("            </ss:Row>")
        Next
        fs.WriteLine("        </ss:Table>")
        fs.WriteLine("    </ss:Worksheet>")
        fs.WriteLine("</ss:Workbook>")
        fs.Close()
        MsgBox("OK")
    End Sub