Domino 9 und frühere Versionen > ND6: Entwicklung

Agenten für Listen

<< < (2/5) > >>

bikerboy:
@koehlerbv

So habe nun ne Woche script aus nem Reader der Firma Herdt gebüffelt und kann nun die aufgabe lösen mit ner For-Schleife wie du schon gesagt hast.

Aber eine Frage habe ich noch.

Die Liste die ich bekomme ist ja ein langer String mit verschiedenen Seperatoren. Ist es sehr Laufzeit aufwendig wenn ich nun 5 Evaluates laufen lassen, damit ich ein @word laufen lassen kann, oder gibt es einen equivalenten Befehl in Script?

So werde es nun ausprobieren und hoffe , dass mein PC nicht gleich in die Knie geht

Untitled:
Das Script-Equivalent gibt es: StrToken

Es gibt übrigens häufig eine sogenannte "Language cross-reference" in der Hilfe, irgendwo unter der Befehlsbeschreibung. Da werden dann die selben Befehle in den anderen Sprachen, falls vorhanden aufgelistet.

Grüsse
Moritz

bikerboy:
@Untitled

Danke für den Tip haben sich gleich  mehere Anschlussfragen, damit geklärt.
Habt ihr am Ende Interesse an dem fertigen Code?

Man sollte so ne Art Fundgrube erstellen, wo jeder seinen fertigen Code präsentiert. So kann man sich immer schön umgucken was es gibt. Und braucht nicht ewig selber probieren.

bikerboy:
So habe nun etwwas vollbracht,aber ich habe noch einen Fehler den ich aber nicht finde, deshalb bitte ich euch kurz um unterstützung


--- Code: ---Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim docNew As NotesDocument


--- Ende Code ---



--- Code: ---Sub Initialize


Dim view As NotesView
Dim collection As NotesDocumentCollection
Dim varList As Variant
Dim i As Integer

Set session = New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView( "all")
Set collection = db.UnprocessedDocuments

For i = 1 To collection.Count
Set doc = collection.GetNThDocument(i)
varList = doc.list
Call newDocument

Next

End Sub
--- Ende Code ---



--- Code: ---Function newDocument

Stop

Dim varList As Variant
Dim i As Integer

Dim personName As String
Dim payableDate As String
Dim kindofCost As String
Dim repeat As String
Dim amount As String
Dim once As String
Dim lifetime As String
Dim del1 As String
Dim wert As Integer

wert = Ubound(varList)
del1 = "~"

For i = 1 To wert
Set docNew = db.CreateDocument
docNew.personName = Strtoken("varList",del1,1)
docNew.payableDate = Strtoken("varList",del1,2)
docNew.kindofCost = Strtoken("varList",del1,3)
docNew.repeat = Strtoken("varList",del1,4)
docNew.amount = Strtoken("varList",del1,5)
docNew.once = Strtoken("varList",del1,6)
docNew.lifetime = Strtoken("varList",del1,7)

Next


End Function
--- Ende Code ---


So ich hoffe ihr könnt mir sagen warum er mir nen type mismatch alls Fehler gibt

bikerboy:
das stop müsst ihr kurz ignorieren , dass hatte ich nur gesetzt , damit der Debugger anhält

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete