Das Notes Forum

Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: bificypdog am 22.12.03 - 16:45:45

Titel: Formel in Script umwandeln
Beitrag von: bificypdog am 22.12.03 - 16:45:45

Hallo,

könnt ihr mir kurz helfen?

Wie wandel ich in der  u.a. Formelansammlung den Implode-Befehl
in Lotus-Script um?

Nur den Implode - den Rest habe ich schon.

Code

FIELD Grund_Loeschung := Grund_Loeschung;
FIELD Status := Status;
FIELD EditorList := EditorList;

@If(Status="";
    @Do(
       @Prompt([OK];"Fehler!";"Bitte wählen Sie ein Dokument aus!");
       @Return("")
       );
    @Success);

Grund := @Prompt([OKCANCELEDIT];"Grund der Löschung";"Bitte geben Sie den Grund für die gewollte Löschung ein: ";"";"");

@SetField("Grund_Loeschung"; Grund);

A := @Implode(  EditorList; ";") + ";"
            + @Text(@Now)  + " · "+ @Name([CN];@UserName) + " · gelöscht! · Grund: " + Grund ;


neue_liste := @Unique( @Explode(A; ";"));

@SetField ("EditorList"; neue_Liste);
@SetField ("Status";"Z")

Titel: Re:Formel in Script umwandeln
Beitrag von: eknori am 22.12.03 - 16:48:11

Function Implode(inputArray As Variant, delimiter As String) As String

   If Datatype(inputArray) = 8 Then
      Implode = inputArray
      Exit Function
   End If

   Forall strInput In inputArray
      Implode = Implode + strInput + delimiter
   End Forall

   Implode = Left(Implode, Len(Implode) - Len(delimiter))

End Function

Gruß

Ulrich