Ist für das LS-Modul Option Declare gesetzt ?
dies sagt mir nichts!
nun zum Code:
Dim uidoc As notesuidocument
Dim doc As Notesdocument
Dim s As NotesSession
Dim ws As NotesUiWorkspace
Set ws=New NotesUiWorkspace
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Dim neu As String, vorhandene As String, links As String, rechts As String, letztesWortLinks As String, erstesWortRechts As String
Dim neuerString As String
Dim Array1() As String
Dim Arraystelle As Integer
Arraystelle=0
Set item = doc.getfirstitem("hinzufuegen")
Set item2 = doc.getfirstitem("mitbewerber")
neu=item.text
vorhandene=item2.text
If neu =""Then
Msgbox "Sie haben nichts eingetragen"
Exit Sub
End If
If vorhandene="" Then
doc.mitbewerber=neu
doc.hinzufuegen=""
Else
links=""
rechts=vorhandene
Call Sortieren(links,rechts, neu,arraystelle,array1())
End If
Call doc.Save(True,False)
hier der Code von dem Sortieren:
Sub Sortieren (links As String, rechts As String, neu As String,arraystelle As Integer,Array1 () As String)
If rechts="" Then
Goto neuerEintrag
End If
vergleich$=Strleftback(rechts,";")
If vergleich$=""Then
vergleich$=rechts
End If
If vergleich$=neu Then
Msgbox "Der Mitbewerber existiert bereits!"
Exit Sub
End If
If vergleich$>neu Then
If neu="" Then
Goto RestArrayErstellen
Else
Goto neuerEintrag
End If
Else
RestArrayErstellen:
'weiter Suchen
Redim Preserve Array1(arraystelle) As String
Array1(arraystelle)=vergleich$
If links="" Then
links=vergleich$
Else
links=links+", "+vergleich$
End If
rechts=Strrightback(rechts,";")
If rechts="" Then
Goto ArrayKomplett
End If
arraystelle=arraystelle+1
Call Sortieren (links,rechts,neu,arraystelle,array1())
Exit Sub
End If
Exit Sub
neuerEintrag:
Redim Preserve Array1(arraystelle) As String
Array1(arraystelle)=neu
neu=""
arraystelle=arraystelle+1
Goto RestArrayErstellen
ArrayKomplett:
doc.mitbewerber=Array1()
doc.hinzufuegen=""
End Sub
Für Verbesserung bin ich auch offen!!
mfg
sculer