Hab mal hier schnell was zusammengebraten:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim fullString As String
Dim positionOfErtrag As Integer
Set uidoc = workspace.CurrentDocument
fullString = uidoc.FieldGetText( "Body" )
positionOfErtrag = Instr ( fullString, "Ertrag:") + Len("Ertrag: ")
subErtrag$ = sWord ( Mid$ ( fullString , positionOfErtrag , 10), " " , 1 )
positionOfGewinn = Instr ( fullString, "Gewinn:") + Len("Gewinn: ")
subGewinn$ = sWord ( Mid$ ( fullString , positionOfGewinn , 10) , " " ,1 )
Msgbox subErtrag$
Msgbox subGewinn$
End Sub
Function sWord ( sourceString As String, separator As String, number As Integer ) As String
searchString$=SourceString & separator ' add one separator to catch also the last substring
For i% = 1 To number
pos%=Instr(searchString$, separator)
If pos%=0 Then Exit For
substring$=Left(searchString$,pos%-1)
searchString$=Mid(searchString$, pos%+1)
Next
If pos% > 0 Then
sWord=substring$
Else
sWord=""
End If
End Function
Die Funktion sWord verhältsich wie @Word.
Zunächst hole ich mir den Inhalt von "Body" in eine String Variable.
Dann prüfe ich mit instr die Position der Schlüsselwörter "Eintrag:" und "Gewinn:".
Von den ermittelten Positionen aus lese ich 10 zeichen nach rechts und (kann auch mehr sein ) und schneide dann mit sword beim ersten Leerzeichen ab ( ist zwischen Zahl und Eurosymbol ) Damit habe ich die Werte)
Mit dem "verbleibenden Kredit" verfährst du dann analog.
wenn jetz vor dem eigentlichen Namen noch das Schlüsselwort Name: stehen würde, hättest du das Problem schon (fast) gelöst.
