Frage zu Reguläre Ausdruck. Etwas finden zwischen zwei Anführungszichen finden bzw. ersetzen.

  • Sonstige

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Frage zu Reguläre Ausdruck. Etwas finden zwischen zwei Anführungszichen finden bzw. ersetzen.

    Hallo liebe Progigemeinde !!!

    Ich schäme mich fast aber ich komme mit Regulären Ausdrücken momentan nicht zu recht.
    Stunden lange habe ich im Internet gesucht, gelesen, ausprobiert und bin durchweg gescheitert.

    Ich hoffe, jemand aus der Gemeinde kann mir helfen.

    Ich lese eine CSV ein und bekomme folgende Zeile.

    Original
    hund,Katze,""in, Anführungzeichen,Reh"",haus,Maus

    Ich möchte nun das bzw, die Kommata zwischen den Anführungszeichen entweder eliminieren oder austauschen und die Anführungszeichen eliminieren.

    Ziel ist also
    hund,Katze,in Anführungzeichen Reh,haus,Maus
    auch noch akzeptabel wäre
    hund,Katze,in.Anführungzeichen.Reh,haus,Maus
    hund,Katze,in:Anführungzeichen:Reh,haus,Maus

    Jetzt hoffe ich mal das jemand eine Idee hat, und mich vor der Kapitulation bewahrt

    Viele Grüße und großem Dank im voraus

    Frank

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Module Module1
    6. Sub Main()
    7. Dim t As String = "hund,Katze,""in, Anführungzeichen,Reh"",haus,Maus"
    8. Debug.Print(t)
    9. Dim arr() As String
    10. arr = t.Split(ChrW(34))
    11. arr(1) = arr(1).Replace(",", " ").Replace(" ", " ")
    12. t = String.Join(" ", arr)
    13. Debug.Print(t)
    14. End Sub
    16. End Module

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Imports System.Text.RegularExpressions
    6. Module Module1
    8. Sub Main()
    9. Dim t As String = "hund,Katze,""in, Anführungzeichen,Reh"",haus,Maus"
    10. Debug.Print(t)
    12. Dim tmp, t1 As String
    13. Dim rx As New Regex("(.*)[\""](.*)[\""](.*)", RegexOptions.Singleline Or RegexOptions.Multiline)
    14. t1 = rx.Replace(t, "$2")
    15. t1 = t1.Replace(",", " ").Replace(" ", " ")
    16. tmp = rx.Replace(t, "$1" & t1 & "$3")
    17. Debug.Print(tmp)
    18. End Sub
    20. End Module

Facebook
Telefonspende