Hallo an alle,
erstmal ein freundliches Hallo in die Runde bin neu hier
Und nunja es muss ja auch einen Grund haben das ich mich angemeldet habe.
Hier nun mein Anliegen
Ich versuche auf VB 2008 Express Edition zu entwickeln
Ich versuche eine Anwendung zu schreiben die mir den XML Export einer anderen Anwendung ausliest und in ein Format konvertiert mit dem XTCommerce klar kommt.
Ausgangsprogramm ist der etope Lister von diesem mach ich einen Export in eine XML Datei versuch dann in dieser Datei die Umlaute und bestimmte (nicht alle) Sonderzeichen in HTML Kürzel zu wandeln und ich bin am Verzweifeln.
Ich möchte hier noch Anmerken das ich noch nicht lange auf VB.Net entwickle somit könnte es sein das ich mich bei evtl. Antworten mal etwas doof anstelle bitte seht mir das schon im Vorfeld nach
Hier ist mein Code :
erstmal ein freundliches Hallo in die Runde bin neu hier
Und nunja es muss ja auch einen Grund haben das ich mich angemeldet habe.
Hier nun mein Anliegen
Ich versuche auf VB 2008 Express Edition zu entwickeln
Ich versuche eine Anwendung zu schreiben die mir den XML Export einer anderen Anwendung ausliest und in ein Format konvertiert mit dem XTCommerce klar kommt.
Ausgangsprogramm ist der etope Lister von diesem mach ich einen Export in eine XML Datei versuch dann in dieser Datei die Umlaute und bestimmte (nicht alle) Sonderzeichen in HTML Kürzel zu wandeln und ich bin am Verzweifeln.
Ich möchte hier noch Anmerken das ich noch nicht lange auf VB.Net entwickle somit könnte es sein das ich mich bei evtl. Antworten mal etwas doof anstelle bitte seht mir das schon im Vorfeld nach
Hier ist mein Code :
Code:
Dim wline As String ' FileStream anlegen Dim FStream As New FileStream(Quelldatei, FileMode.Open, FileAccess.Read, FileShare.Read) Dim FStream2 As New FileStream(OUTPUT_Pfad & "simple.xml", FileMode.Create, FileAccess.ReadWrite, FileShare.ReadWrite) ' StreamReader erzeugen und Stream angeben, der verwendet werden soll Dim SReader As New StreamReader(FStream) Dim SWriter As New StreamWriter(FStream2) SWriter.WriteLine("<IMPORT>") ' Text zeilenweise auslesen bis Dateiende Dim sLine As String Do Until SReader.Peek = -1 sLine = SReader.ReadLine Dim html As New StringBuilder(sLine) '--- Ersezten Umlaute html.Replace("ß", "ß") html.Replace("ä", "ä") html.Replace("Ä", "Ä") html.Replace("ö", "ö") html.Replace("Ö", "Ö") html.Replace("ü", "ü") html.Replace("Ü", "Ü") wline = html.ToString() SWriter.WriteLine(wline) Loop SWriter.WriteLine("</IMPORT>") SReader.Close() SWriter.Close() FStream.Close() FStream2.Close()
Comment