Domino 9 und frühere Versionen > Administration & Userprobleme

Benötige Hilfe bei Script

<< < (7/9) > >>

Glombi:
Stimmt, dass Error Handling ist falsch platziert.

Das iCount = iCount +1    wird benötigt

So wäre es richtig:

On Error Goto ErrorHandling  
   
    ' Und hier beginnen die Array-assignments für die Datenbanken
   Redim sDb(2) ' Hier wird die Größe des Array fest definiert (Anzahl der DB - 1)
   sDb(0) = "db1.nsf"      
   sDb(1) = "db2.nsf"          
   sDb(2) = "db3.nsf"      
   
    ' Wieviel Elemente hat der Array - 1 (da ein Array immer mit 0 beginnt muss hier 1 subtrahiert werden)
   iArray = Ubound(sDb())-1
   
   
   For iCount = 0 To iArray
     
      Set oDb = oSession.getDatabase(sMailServer,sDb(iCount))
     
     
      If Not oDb Is Nothing Then
         Call oUiWs.addDatabase(sMailServer,sDb(iCount))
         Print (oDb.title+" wurde Ihrer Arbeitsoberfläche hinzugefügt.")    
         
      End If      
     
     
NextDB:
      iCount = iCount +1    
     
   Next

exit sub

     
ErrorHandling:          
      Print ("Eine Datenbank konnte nicht Ihrer Arbeitsoberfläche hinzugefügt werden.")    
      Resume NextDB

   
End Sub

koehlerbv:
Das si t noch falsch:

--- Zitat --- ' Wieviel Elemente hat der Array - 1 (da ein Array immer mit 0 beginnt muss hier 1 subtrahiert werden)
  iArray = Ubound(sDb())-1
--- Ende Zitat ---

UBound (sDB) = 2

HTH,
Bernhard

bificypdog:

--- Zitat von: koehlerbv am 03.11.03 - 14:35:18 ---Das si t noch falsch:

--- Zitat --- ' Wieviel Elemente hat der Array - 1 (da ein Array immer mit 0 beginnt muss hier 1 subtrahiert werden)
  iArray = Ubound(sDb())-1
--- Ende Zitat ---

UBound (sDB) = 2

HTH,
Bernhard

--- Ende Zitat ---

Das verstehe ich jetzt nicht.
Soll ich "UBound(sDB)=2" im Script einfügen? Das dürfte doch nicht funktionieren?
Oder willst du mich auf irgend etwas aufmerksam machen?

koehlerbv:
In Deinem Array ergibt LBound 0 und UBound 2.

Bernhard

bificypdog:

--- Zitat von: Glombi am 03.11.03 - 14:30:10 ---Stimmt, dass Error Handling ist falsch platziert.

Das iCount = iCount +1    wird benötigt

So wäre es richtig:

On Error Goto ErrorHandling  
   
    ' Und hier beginnen die Array-assignments für die Datenbanken
   Redim sDb(2) ' Hier wird die Größe des Array fest definiert (Anzahl der DB - 1)
   sDb(0) = "db1.nsf"      
   sDb(1) = "db2.nsf"          
   sDb(2) = "db3.nsf"      
   
    ' Wieviel Elemente hat der Array - 1 (da ein Array immer mit 0 beginnt muss hier 1 subtrahiert werden)
   iArray = Ubound(sDb())-1
   
   
   For iCount = 0 To iArray
     
      Set oDb = oSession.getDatabase(sMailServer,sDb(iCount))
     
     
      If Not oDb Is Nothing Then
         Call oUiWs.addDatabase(sMailServer,sDb(iCount))
         Print (oDb.title+" wurde Ihrer Arbeitsoberfläche hinzugefügt.")    
         
      End If      
     
     
NextDB:
      iCount = iCount +1    
     
   Next

exit sub

     
ErrorHandling:          
      Print ("Eine Datenbank konnte nicht Ihrer Arbeitsoberfläche hinzugefügt werden.")    
      Resume NextDB

   
End Sub


--- Ende Zitat ---

JUCHU.
Ich bin jetzt wirklich ganz nah dran.
Jedoch läuft die Schleife wg. dem "iCount=iCount+1" jetzt in 2er Schritten.
Bist du sicher, dass ich das benutzen soll?
Oder geht es nur darum, dass hinter der Sprungmarke noch etwas steht?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete