VB.net xml datei speichern und diese anschließend verschieben...

UnimatrixZero schrieb:

Eine Map kann der XmlSerializer leider nicht so ohne weiteres. Hier ein kleines Beispiel mit einer List in C#:

Code:

using System;
using System.Collections.Generic;
using System.Text;
using System.Collections;
using System.Xml.Serialization;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            List<String> list = new List<String>();

            list.Add("value1");
            list.Add("value2");
            list.Add("value3");

            XmlSerializer xs = new XmlSerializer(list.GetType());
            xs.Serialize(Console.Out, list);
        }
    }
}

Die eigentliche Arbeit machen die beiden letzten Zeilen. Müßte in VB äjnlich aussehen.

Zum Vergrößern anklicken....

Nolath schrieb:

Dann mache eine Textbox1 und schreibe dort den Ihnalt der maplist rein (oder zur Laufzeit wie folgt):
Module1:
Public umbruch = Chr(13) & Chr(10) 'Zeilenumbruch, ist komfortabler

Form1:
Textbox1.visible = false
Textbox1.Text = "<MapList Version="1.0">" & umbruch & "<Map Name="map1" />" & umbruch & "<Map Name="map2" />" 'wenn die zeile lang genug ist eine neue
Textbox1.Text += "<Map Name="map3" />" & umbruch & "<Map Name="map4" />" 'usw.

'Dann: xml-Datei im gleichen Verzeichnis wie das Programm erzeugen
my.computer.fileSystem.writealltext("maplist.xml", String.empty, false)
my.computer.fileSystem.writealltext("maplist.xml", Textbox1.text, true)

'Dann noch die XML-Datei verschieben, wie oben beschrieben
Dim sourceFileName As String = "maplist.xml"
Dim destFileName As String = "C:\Pfad\maplistnew.xml"

File.Copy(sourceFileName, destFileName)


Oder habe ich das falsch verstanden?

Zum Vergrößern anklicken....

Nolath schrieb:

du meinst das die mapnamen variablen sind
dim map1 as string = textbox1.text
dim map2 as string = textbox2.text
dim map3 as string = textbox3.text
dim map4 as string = textbox4.text
dim map5 as string = textbox5.text
usw

Textbox1.Text = "<MapList Version="1.0">" & umbruch & "<Map Name= & map1 & />" & umbruch & "<Map Name= & map2 & />"

Oder liegt es an etwas anderem?

Zum Vergrößern anklicken....

Nolath schrieb:

aso, dann einfach:
dim map1 as string = "karte1"
dim map2 as string = "karte2"
dim map3 as string = "karte3"
dim map4 as string = "karte4"
dim map5 as string = "karte5"

und des wird alles in textbox1 geschrieben

Zum Vergrößern anklicken....

Module1:
Public umbruch = Chr(13) & Chr(10) 'Zeilenumbruch, ist komfortabler

Form1:
Textbox1.visible = false
Textbox1.Text = "<MapList Version="1.0">" & umbruch & map1  & umbruch & map2 'wenn die zeile lang genug ist eine neue
Textbox1.Text += map3 & umbruch & map4 'usw.

'Dann: xml-Datei im gleichen Verzeichnis wie das Programm erzeugen
my.computer.fileSystem.writealltext("maplist.xml", String.empty, false)
my.computer.fileSystem.writealltext("maplist.xml", Textbox1.text, true)

'Dann noch die XML-Datei verschieben, wie oben beschrieben
Dim sourceFileName As String = "maplist.xml"
Dim destFileName As String = "C:\Pfad\maplistnew.xml"

File.Copy(sourceFileName, destFileName)

Nolath schrieb:

Für Edit leider zu spät geworden.
Das hier wäre ein funktionaler fertiger Code:
(der inhalt von maplist.xml ist der Text von Textbox1)

Code:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Visible = False

        My.Computer.FileSystem.WriteAllText("maplist.xml", String.Empty, False)
        My.Computer.FileSystem.WriteAllText("maplist.xml", TextBox1.Text, True)

        Dim sourceFileName As String = "maplist.xml"
        Dim destFileName As String = "C:\Pfad\maplistnew.xml"

        Try
            My.Computer.FileSystem.CopyFile(sourceFileName, destFileName) 'verusch die Datei zu kopieren
        Catch
            MsgBox("Die Datei 'C:\Pfad\Maplistnew.xml' ist bereits vorhanden!", MsgBoxStyle.Exclamation) 'wenn es die Datei bereits gibt: Fehlermeldung, Programm hört hier auf

        Finally
            My.Computer.FileSystem.DeleteFile("maplist.xml") 'egal ob es die nun gibt oder nicht: die alte Datei wird gelöscht
        End Try



    End Sub
End Class

Ich habe noch eine Try Catch Anweisung eingefügt, weil das Porgramm sonst Abstürzt wenn es die Datei C:\Pfad\maplist.xml schon gibt.

Zum Vergrößern anklicken....