Wichtig: Replace() LotusScript Funktion

  • Hallo


    Ich habe das BodyField in einem Memo und möchte nun alle Zeilenumbrüche "welche mit Enter gemacht wurden" (NewLine) mit einem "/" ersetzen, damit ich alles auf einer Linie habe.


    Test = Replace(doc.Body, Chr(13), "/")


    Dies funktioniert nicht so recht. Wie kann ich dort anstelle des CHR13 dem Teil sagen, dass er alle Zeilenumbrüche rausnehmen soll????


    Möchte einfach anstatt:


    "Hallo
    Mein Name ist
    Hans und ich bin
    sehr froh"


    das Feld auf einer Linie haben:


    "Hallo/Mein Name ist/Hans und ich bin/sehr froh"

    ******************************************
    Domino 8.5.0
    Notes 8.5.1


    IBM Certified Application Developer

  • Moin,


    Du willst doch Teile eines Strings, nicht den ganzen String ersetzen.
    Soviel ich weiss, kannst Du mit Replace nur ganze Werte austauschen, was Du brauchst, ist eine Funktion, die @ReplaceSubstring simuliert:



    Function FReplaceSubstring(searchstring, cutstring, replacestring)

    While Instr(searchstring, cutstring)>0
    searchstring= Left(searchstring, Instr(searchstring, cutstring)-1) + replacestring + Right(searchstring, Len(searchstring)- Instr(searchstring, cutstring)-Len(cutstring)+1)

    Wend

    FReplaceSubstring=searchstring
    End Function


    TEST = FReplaceSubstring(doc.Body(0), Chr(13), "/")


    So denn Body nicht gerade ein Richtextfeld ist, sollte das so funktionieren.

  • Wenn es sich um richtext handelt dann solltest du mal den @Abstract funktion zusammen mit @Implode versuchen.. Damit würde ich den erfolgschancen an höhesten einschätzen...