Mit Agent Felder aus Dokumenten auslesen

[werner16]

Hallo,

ich möchte mittels eines Agenten aus allen Dokumenten in einer DB ein Feld auslesen.

Jetzt habe ich ein Script da mir soweit auch alle Dokumente durchläuft, aber wie bzw. mit
welchem Befehl kann ich jetzt aus dem aktuellen Dokument ein Feld auslesen?

Der Befehl "mailfeld = uidoc.FieldGetText("email1")" funktioniert jedenfalls nicht!


Hier das Script:

Option Public
Use "MyScripts"
Sub Initialize
   
   Err=0
   On Error Resume Next
   MessageBox "START",1, ""
   Dim session As New NotesSession 
   Dim db As NotesDatabase 
   Dim collection As NotesDocumentCollection 
   Dim doc As NotesDocument 
   Set db = session.CurrentDatabase 
   Set collection = db.AllDocuments 

   For i = 1 To collection.Count
      Set doc = collection.GetNthDocument( i ) 
   
      mailfeld = uidoc.FieldGetText("email1")
      
      MessageBox "Die eMail Adresse Nr. " & i & " lautet " & mailfeld & " und ist vorhanden",1, " E-Mail"
   Next

   MessageBox "ENDE!",1, ""
   Exit Sub
   
End Sub


Gruß und Dank im voraus,
Werner

[Christian Kröll]

Guten Morgen Werner,

erst set doc und dann aber uidoc?

Grüße Christian

[DAU-in]

doc.feldname(0)

doc.getItemvalue("Feldname")(0)

[Christian Kröll]

genau das war gemeint...

[werner16]

Hi,

ok stehe jetzt auf'm Schlauch, sorry.
Bin am herumtesten, aber es will noch nicht so! 

Gruß,
Werner

[Schnubbel]

So würde ich es machen:

Option Public
Use "MyScripts"
Sub Initialize
  
   Err=0
   On Error Resume Next
   MessageBox "START",1, ""
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim mailfeld as Variant
   Set db = session.CurrentDatabase
   Set collection = db.AllDocuments

   For i = 1 To collection.Count
      Set doc = collection.GetNthDocument( i )
  
      mailfeld = doc.GetItemValue("email1")

            
      MessageBox "Die eMail Adresse Nr. " & i & " lautet " & mailfeld(0) & " und ist vorhanden",1, " E-Mail"
   Next

   MessageBox "ENDE!",1, ""
   Exit Sub
  
End Sub

[werner16]

Hallo Schnubbel,

Dein Script funktioniert, muss es mir nach mal in Ruhe ansehen um es zu verstehen,
habe jetzt leider einen Termin, aber melde mich hier nochmal.

Danke erst mal an alle. 

Gruß,
Werner

[ata]

... uidoc greift auf ein im Frontend geöffnetes Dokument zu - du liest aber per Backend - das kann also nicht gehen...

Toni

[Tode]

WICHTIGER TIPP: IMMER Option Declare hinzufügen... (kann man auch einstellen, dass das automatisch hinzugefügt wird).

1. wird man gezwungen, alle Variablen, die man verwendet zu deklarieren
2. Hättest Du sofort gemerkt, dass uidoc <> doc (weil uidoc eben NICHT deklariert wurde...

[DAU-in]

Was machst du, wenn die Mailadresse nict auf (0), sondern auf (1) steht?

Und zu deiner Iteration:

http://www-10.lotus.com/ldd/bpmpblog.nsf/dx/finding-docs1

das ist häufig besser aus Performancegründen

Set collection = db.AllDocuments
set doc = collection.getfirstdocument

For i = 1 To collection.Count
'tu was
set doc = collection.getnextDocment(doc)

Next


edith:
Eknori sagt:

bei View und ViewEntryCollection kannst du das nehmen, nur bei Collection nicht

[marschul]

Noch'n Tipp:

...
For i = 1 To collection.Count
 Set doc = collection.GetNthDocument( i ) 
...
 MessageBox "Die eMail Adresse Nr. " & i & " lautet " & mailfeld & " und ist vorhanden",1, " E-Mail"
Next
...

Dann hoffe mal, dass da nicht tausende Mails enthalten sind, sonst bekommst Du Probleme mit Deinem Klick-Finger 

Und (zwischenzeitlich gibt's den Hinweis bereits):
.getnthdocument geht anfangs schnell, wird aber immer langsamer, da Notes bei jedem Schleifendurchlauf die Collection bis zum Wert durchzählt, deshalb besser z.B.

Code

set doc = collection.getfirstdocument
do until doc is nothing
...Dein Code...
set doc = collection.getnextdocument (doc)
loop

[werner16]

Hallo,

so jetzt, viele Infos, gehen wir das mal durch:

1)
mailfeld = doc.GetItemValue("email1")
MessageBox "Die eMail Adresse Nr. " & i & " lautet " & mailfeld(0) & " und ist vorhanden",1, " E-Mail"

Wenn ich mit  "mailfeld = doc.GetItemValue("email1")" die Variable deklariere wie so muss ich dann
in der Weiterverarbeitung mit "mailfeld(0)" und nicht "mailfeld" arbeiten?


2)
>>... uidoc greift auf ein im Frontend geöffnetes Dokument zu - du liest aber per Backend - das kann also nicht gehen...

OK, habe ich kapiert!


3)
>> WICHTIGER TIPP: IMMER Option Declare hinzufügen...

stimmt! 


4)
>> Was machst du, wenn die Mailadresse nicht auf (0), sondern auf (1) steht?

Siehe Punkt ein wo ist der Unterschied bei (0) und (1)? 


5)
>> Dann hoffe mal, dass da nicht tausende Mails enthalten sind, sonst bekommst Du Probleme mit Deinem Klick-Finger

In der Testdatenbank sind jetzt erst mal nur 9 Dokumente, bzw. zum Testen kann ich ja auch den
Schleifenzähler auf z.B. 9 reduzieren.
In der Endversion fliegt der MessageBox raus, war jetzt nur um zu sehen ob es fuktioniert.


Gruß,
Werner

[Schnubbel]

1)
Das GetItemValue liefert nunmal immer ein Array zurück. (Steht so auch in der Hilfe) Und du willst ja das erste Element haben aus dem Array , also mailfeld(0). Zu dem was DAU-in gesagt (was man macht wenn es in (1) liegt) hat, kann ich dir leider nichts sagen, bin aber auch gespannt auf eine/dessen Antwort. (wann das denn überhaupt passieren kann)

Thorsten

[ascabg]

Hallo,

Wenn Du mit doc.GetItemValue(...) Werte aus dem betreffenden Feld ausliest, wird Dir als Ergebnis immer ein Array zurueckgeliefert.
Daher sollte Deine Variable, in die Du den Wert einlesen moechteste immer als Variant deklariert werden.


Andreas

[ascabg]

@Schnubbel (Thorsten)

Zu dem was DAU-in gesagt (was man macht wenn es in (1) liegt) hat, kann ich dir leider nichts sagen, bin aber auch gespannt auf eine/dessen Antwort. (wann das denn überhaupt passieren kann)

Pruefunden einbauen. 


Andreas

[Schnubbel]

Selbstverständlich sind Prüfungen sinnvoll, das beantwortet aber nicht die Frage, warum denn der Wert in (1) aufeinmal liegen soll. Wann passiert das? Mir ist das (noch) nicht untergekommen.

[koehlerbv]

Warum sollte das denn nicht passieren können? Du scheinst nur an den ganz simplen Fall zu denken, dass es ein im Frontend existierendes Feld gibt, dass keine Mehrfachwerte erlaubt. Aber soooo simpel ist die Welt des Programmierers ja nun bei weitem nicht! 

Bernhard

[Schnubbel]

Hallo Bernhard,

ich empfinde eine gewisse Überheblichkeit in deinen Worten. Aber da kann ich mich ja auch täuschen.

Also wenn ich so ein Script wie Werner erstelle, dann weiß ich doch, dass in dem Feld "email1" nur eine E-Mail-Adresse stehen kann. Dafür habe ich doch beim Erstellen des Wertes bereits gesorgt, dass kein Nutzer dort 2 Email-Adressen oder sonstigen Müll hinterlegen kann.

Ich verstand den Einwand von DAU-in so, dass durch irgendeinen Zufall / oder ähnliches Ereignis der Wert in (1) liegt und darauf zielte mein Nachfragen ab. Natürlich können, dann auch Werte in (1) (2) etc. liegen, aber dann ist das von mir als - simpler - Programmierer gewollt.

Thorsten

[ascabg]

Und was ist, wenn Du das Script in einer datenbank erstellen sollst, die eben NICHT von Dir erstellt wurde.
Woher willst Du in einem solchen Fall wissen, das die Programmierer eben genauso denken wie Du.


Andreas

[klaussal]

Aber da kann ich mich ja auch täuschen.

Du täuschst Dich.

In der Programmierung sollte man nie "nie" sagen. Irgendwann tritt's doch ein. Und darauf zielte Bernhard ab.