Du arbeitest einfach mit set item=doc.Getfirstitem ( feld_name ). Dann kannst du dir die Variable feld_name nach deinem Geschmack zusammen basteln.  Schau dir die NotesItem-Klasse mal an.

So etwa sollte es gehen:

Do While Not (doc Is Nothing)  
      Msgbox doc.KdName(0)
     
      Counter =1
      While Counter < 6
         feldname = "VDat"+cstr(counter)
         set item = doc.getfirstitem ( feldname )
         Msgbox item.Value (0)
      Counter = Counter + 1
      Wend
     
      Set doc = view.GetNextDocument(doc)
   Loop

Hallo Ihr Beiden,

"subber ", es funzt! Danke!

@Alexis
der Vollständigkeit halber (hast dich bestimmt nur vertan):

Msgbox item.Value (0)

muss so heissen: Msgbox item.Text

@Colibri
dein Code funktioniert 100%!!!

Nachmals Danke!

Gruß Armin

Ja hast recht... ansonsten hätte man das auch noch mit CStr() machen können. Aber gern geschehen.

Bernhard,
das Mischen mit von String und Integer hast du diese Woche schon mal bei mir kritisiert.
In der Hilfe steht aber, daß das & dafür da ist.

Ampersand (&) operator - Concatenate two expressions as strings.

Warum sollte das in einer näxten Version denn nicht mehr so sein, Cstr() aber schon?

Halte es für wahrscheinlich, dass & sogar leicht oder mehr effizienter ist als Cstr()

Andreas,

der Code

   Dim text As String
   Dim zahl As Integer
   zahl = 5
   text = " Nummer " & zahl & " lebt!"
   Msgbox text

läuft mit 6.5 (ist das eine vernünftige Notesversion?) einwandfrei weil:
 

Ampersand (&) operator - Concatenate two expressions as strings.

Ich habe das mal mit dem Operator + getestet, der in Script überladen ist.

Sub Click(Source As Button)
   
   Dim s As String
   Dim i As Integer   
   s = "test"
   i = 1   
   Msgbox  s & i
   Msgbox s + s
   Msgbox i + i
   Msgbox s + i   'Hier knallt's dann
   
End Sub

Dazu aus der Hilfe:
Plus (+) operator
Syntax
expr1 + expr2
Elements
expr1, expr2
Any String expressions, or any of the following:
Numeric expression: LotusScript converts it to its text representation (if plus is interpreted as concatenation).
NULL: LotusScript treats it as  NULL.  If either expression is NULL, the result is NULL.
EMPTY: LotusScript treats it as a zero-length String value.
Return value
The result is a String or a Variant of type String, if either of the operands is a Variant.
Usage
Use the ampersand (&) operator to ensure a concatenation operation. The plus (+) operator  concatenates two character strings, but LotusScript determines whether to interpret the plus as a concatenation operator or an addition operator on the basis of the operands in the expression in which it appears.

Also work's as designed.

Irgendwie widerstrebt es mir, den & so zu verwenden. Aber man lernt ja nie aus.

Andreas

Wenn ich ehrlich bin schreib ich auch immer
string + Cstr(integer)
Das mit dem & hab ich erst später gesehen und dann wollte ich mich nicht umgewöhnen. Außerdem gefällt mir +Cstr() besser

Msgbox (5 & 5) ergibt übrigens "55"

-dani

Na, hier ist aber das Verhalten von "+" gefährlich, weil nicht direkt durchsichtig, hingegen ist das Verhalten von"&" in jedem Falle klar: ist immer eine Concatenation von Strings, die Konvertierung ist also vorhersagbar immer VOR der Operation, was bei "+" offenbar nicht der Fall ist

Sauberer ist das erste oder alternativ
Dim doc1 As NotesDocument, doc2 As NotesDocument, doc3 As NotesDocument

Das zweite ist fehlerhaft, da Du nicht sichergehen kannst, dass doc1 und doc2 als NotesDocument behandelt werden.

Andreas