Umlaute ersetzen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Umlaute ersetzen

    Hallo zusammen,

    ich habe folgendes Problem:
    Ich soll ein Programm schreiben, dass eine Textdatei öffnet und alle "ä" durch "ae" und "ü" durch "ue" und "ö" durch "oe" und "ß" durch "ss" ersetzt. Das Resultat soll ich einer anderen Datei gespeichert werden.

    Ich habe nun dies geschrieben:

    Quellcode

    1. Sub Sonderzeichen_ersetzen()
    3. Dim DNameget As String
    4. Dim DNameput As String
    5. Dim Pos As Integer
    6. Dim Zeichen As String * 1
    7. Dim Zeichenneu As String * 2
    9. DNameget = Application.GetOpenFilename
    10. DNameput = Application.GetSaveAsFilename
    12. Open DNameget For Random As #1 Len = 1
    13. Open DNameput For Random As #2 Len = 2
    15. Pos = 1
    17. Do
    18. Get #1, Pos, Zeichen
    19. Zeichenneu = Zeichen
    20. If Zeichen = "ä" Then Zeichenneu = "ae"
    21. If Zeichen = "ö" Then Zeichenneu = "eo"
    22. If Zeichen = "ü" Then Zeichenneu = "ue"
    23. If Zeichen = "ß" Then Zeichenneu = "ss"
    24. If Zeichen = "Ä" Then Zeichenneu = "Ae"
    25. If Zeichen = "Ö" Then Zeichenneu = "Oe"
    26. If Zeichen = "Ü" Then Zeichenneu = "Ue"
    28. Put #2, Pos, Zeichenneu
    30. Loop Until EOF(1)
    32. Close #1
    33. Close #2
    35. End Sub
    Alles anzeigen

    Das Problem ist nun, dass auch alle anderen Buchstabe nun 2-stellig werden. Das heißt ein Leerzeichen wird eingefügt.
    Ich weiß, dass es auch viele andere Möglichkeiten gibt, die Aufgabenstellung zu lösen. Aber das Programm sollte schon so in der Art aufgebaut sein.
    Kann mir da vielleicht jemand helfen?

    Danke schön schonmal!

  • Hallo


    Wir müssen hier mal ComboBox einfügen, wo man auswählen kann, obs VB oder VB.NET ist...

    welche Version verwendest du denn?

    in VB.NET gibts bei String Datentyp ganz schöne Funktion Replace...

    falls du noch mit älteren Versionen unterwegs bist, würde ich vorschlagen, dass du erstmal den kompletten Text in eine String Variable einliest, es dann mit iner For schleife durchläufst und am ende wieder in die Datei speicherst.

    Verbraucht mehr speicher, aber ehrlich gesagt habei ch kaum erfahrung in normalen Vb... nur VB.NET

    mfG, Niko