Autor Thema: Unique & Elements in Script  (Gelesen 933 mal)

Offline MadMetzger

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.052
  • Geschlecht: Männlich
  • f.k.a. Alexis Pyromanis
Unique & Elements in Script
« am: 10.04.03 - 14:29:25 »
Gibt es Pendants zu den beiden in Script?

Wenn nicht, was gibt es für Alternativen?

Offline Rob Green

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.651
  • Geschlecht: Männlich
    • Meipor
Re:Unique & Elements in Script
« Antwort #1 am: 10.04.03 - 14:48:21 »
das zu Unique:
http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/3f2a2471f0ac8a5785256cda0068f2e3?OpenDocument

und das zu Elements:
http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/2ed5bbea6394e39185256cf40052b234?OpenDocument

und das aus Martin Scotts Code Gemenge:
Function ContainerNumVals(containerVar As Variant) As Long
   
    ' Counts the number of elements in the container passed
    ' to it as containerVar
   
    On Error Goto ErrorHandler
    ContainerNumVals = 0
    If IsEmpty(containerVar) Then Goto TheEnd
    Forall X In containerVar
         ContainerNumVals = ContainerNumVals + 1
    End Forall
   
TheEnd:
    Exit Function
   
ErrorHandler:
    ContainerNumVals = -1
    Resume TheEnd
   
End Function
« Letzte Änderung: 10.04.03 - 14:51:19 von Rob Green »
Vielleicht verdirbt Geld wirklich den Charakter.
Auf keinen Fall aber macht Mangel an Geld ihn besser.
(John Steinbeck)

Meiporblog: http://www.meipor.de/blog
allg. Unternehmerblog: http://www.m-e-x.de/blog

Offline MadMetzger

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.052
  • Geschlecht: Männlich
  • f.k.a. Alexis Pyromanis
Re:Unique & Elements in Script
« Antwort #2 am: 10.04.03 - 16:07:54 »
Klappt!

Danke!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz