Announcement

Collapse
No announcement yet.

VB2008 + Zeichen ersetzen

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • VB2008 + Zeichen ersetzen

    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 :
    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("ß", "&szlig;")
                html.Replace("ä", "&auml;")
                html.Replace("Ä", "&Auml;")
                html.Replace("ö", "&ouml;")
                html.Replace("Ö", "&Ouml;")
                html.Replace("ü", "&uuml;")
                html.Replace("Ü", "&Uuml;")
    
                wline = html.ToString()
    
                SWriter.WriteLine(wline)
    
            Loop
    
            SWriter.WriteLine("</IMPORT>")
            SReader.Close()
            SWriter.Close()
            FStream.Close()
            FStream2.Close()

  • #2
    Hi,

    versuch's mal mit:

    html.Replace(sline,"ß", "&szlig;")

    Dann sollte es klappen...

    Gruß
    Marcus

    Comment


    • #3
      wahrscheinlich ginge Melop.Promt([ddr]; 44; "brezen".

      auch

      Comment

      Working...
      X