Zeilenumbrüche entfernen/ersetzen

  • Sonstige

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von harryhirsch.

    Zeilenumbrüche entfernen/ersetzen

    Hallo liebe Community,

    Ich versuche via VB Script In Outlook die Mails auf einem CRM Server zu übertragen und dabei überflüssige Zeilenumbrüche zu entfernen. Ich möchte es so haben das alles über 2 Zeilenumbrüche zu einem wird und alle anderen unberühert bleiben. Das habe ich bisher zusammengetragen:

    Visual Basic-Quellcode

    1. ' Text schreiben
    2. If Chr(13) & Chr(10) >= 3 Then
    3. Body$ = myOlInspectorObject.Body
    4. Body$ = Replace(myOlInspectorObject.Body, Chr(13) & Chr(10) & Chr(13) & Chr(10), Chr(13) & Chr(10))
    6. End If


    Allerdings Entfernt er auch einzelne Zeilenumbrüche. Weiß jemand Rat?

    Mfg Panda

    1. Mit einer Regular Expression liesse sich dies sehr elegant und einfach lösen.

    2. Chr(13) & Chr(10) ist nicht so toll, gilt ja nicht für alle Systeme als Zeilenumbruch m.W. wäre da vbNewLine flexibler und bei den RegEx ist's eh "\n"