Autor Thema: Usernamen generieren  (Gelesen 1980 mal)

Offline Notestime

  • Senior Mitglied
  • ****
  • Beiträge: 358
  • Geschlecht: Männlich
  • ... time for new ways
    • HoCaS
Usernamen generieren
« am: 04.01.03 - 11:48:40 »
Ein Script, welches aus den Feldern "Name" und "Vorname" einen Usernamen generiert.

Voraussetzungen:

- Die beiden Felder
- Profildokument "Konfiguration" mit den Kontrollkästchen-Felder "kleinschreiben", "umlaute" und "acht_zeichen"

------------------------ Script --------------------------------

Dim w As New notesuiworkspace
   Dim doc As notesuidocument
   Dim session As New notessession
   Dim db As notesdatabase
   Dim profdoc As notesdocument
   Dim lies As notesitem
   Dim vname, nname, umlaute, achtzeichen, klein, einzeichen, dummy As String
   Dim laenge, zaehler As Integer
   
   Set doc = w.currentdocument
   Set db= session.CurrentDatabase   
   Set profdoc = db.GetProfileDocument("Konfiguration")
   Set lies=profdoc.GetFirstItem("umlaute")
   umlaute=lies.text
   Set lies=profdoc.GetFirstItem("acht_zeichen")
   achtzeichen=lies.text
   Set lies=profdoc.GetFirstItem("kleinschreiben")
   klein=lies.text
   
' ------------------------------------------------------------- Groß-/Kleinschreibung -----------------------------------------------------------------------------------------    
   If klein <> "" Then   
      nname = Lcase(doc.FieldGetText("Name"))
      vname = Lcase(doc.FieldGetText("Vorname"))
   Else
      nname = doc.FieldGetText("Name")
      vname = doc.FieldGetText("Vorname")
   End If
' ------------------------------------------------------------- Wenn keine Konvertierung stattfinden soll ------------------------------------------------------------
   If umlaute="" & achtzeichen="" Then   
      Call doc.FieldSetText("Account",Left(vname,1)+nname)      
   End If
' ------------------------------------------------------------- Wenn Umlaute konvertiert werden sollen --------------------------------------------------------------
   If umlaute = "ja" Then
      nname = ohneumlaut(nname)
      vname = ohneumlaut(vname)
   End If
' ------------------------------------------------------------- Wenn auf 8 Zeichen begrenzt werden soll ------------------------------------------------------------   
   If achtzeichen="ja" Then         
      Call doc.FieldSetText("Account",Left(vname,1)+Left(nname,7))      
   Else
      Call doc.FieldSetText("Account",Left(vname,1)+nname)      
   End If      
Admin & Designer,
6 Server (4xAIX, 2xLinux),
850 Clients

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz