Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: BEamer am 13.03.03 - 08:24:11

Titel: Parsen von Strings innerhalb eines Feldes
Beitrag von: BEamer am 13.03.03 - 08:24:11

Moin

Ich habe im moment folgendes Problem. Ich muss den Inhalt einer Mail parsen um bestimmte Informationen zu erhalten, welche dann in ein neues Dokument eingetragen werden sollen.

Bsp.

XXXXXXXXXXXXXXXXXXxx
XXXXXXXXXXXXXXXXXXxx

Name:          Karl Klammer
Strasse:       Musterstrasse 2a
....

XXXXXXXXXXXXXXXXXXXXXXX

Gibt es eine einfache Möglichkeit dieses zu machen mit Notesmitteln  ???. Würde ich es mittels C(++) erledigen können, würde dieses kein Problem darstellen.

Ich hoffe Ihr könnt mir helfen.

Gruss Björn

Titel: Re:Parsen von Strings innerhalb eines Feldes
Beitrag von: eknori am 13.03.03 - 08:42:57

OK, ich gehe mal davon aus, daß die Mail immer den gleichen Aufbau hat; die Informationen also immer an der gleichen Stelle stehen.

Jede Indormation steht aso in einer seperaten Zeile.

Sequentielles Lesen der Zeilen bis z.B. Keyword Name gefunden wird.

Dann kannst du mit der Funktion

Function parseQS(pQueryString As String, pArgName As String) As String
   
' Parses an arguement passed via a URL
   Dim qs, arg, argval As String
   
   qs = Ucase$(pQueryString)
   arg = Ucase$(pArgName)
   argval = ""
   
   If Instr(qs, arg) > 0 Then
      argval = Mid$(qs, Instr(qs, arg) + Len(arg))
   End If
   
   If Instr(argval, "&") > 0 Then
      parseQS = Left$(argval, Instr(argval, "&") -1)
   Else
      parseQS = argval
   End If
   
End Function

alles das Auslesen, was hinter NAME: steht

Sub Click(Source As Button)
   Msgbox ParseQS("Name: Karl Klammer","Name: ")
End Sub

mußt halt eben nur statt der Konstanten im ersten Argument den String übergeben, den du eingelesen hast.

eknori

Titel: Re:Parsen von Strings innerhalb eines Feldes
Beitrag von: BEamer am 13.03.03 - 09:12:00

Vielen Dank für die schnelle Antwort, werde es gleich einmal ausprobieren.