hat ihm:
In der ProcessRTTags bauen wir den String zusammen und replacen alle CRLFs mit °. Wenn am Ende des zusammengesetzen Strings noch welche übrig sind müssen wir die wieder wegschmeissen.
Also müssen wir hier noch einen DoWhile Loop einbauen:
'we have a item name => use item text as value if it is a richttext else use cstr values and separate the values with chr10 chr13
' if there are multiple values in that item
If ItemTextExists ( fieldReadDoc, strT ) Then
Set readfromitem = fieldreaddoc.getfirstitem(strT)
If readfromitem.Type <> TEXT And readfromitem.Type <> DATETIMES And readfromitem.Type <>NUMBERS Then
getstring = fieldReadDoc.GetFirstItem( strT ).text
Else
Forall v In readfromitem.Values
If getstring <> "" Then
getstring = getstring + "°" + Cstr(v)
Else
getstring = Cstr(v)
End If
End Forall
End If
' replace every occurence of chr(10) + chr(13) with chr(0) in getstring
CrLf = Chr$(13) & Chr$(10) ' Carriage Return and a Line Feed character
getstring = Replace(getstring,CrLf,"°")
' remove the "°" as long as it is the last sign in the string
' needed because of error issue mentioned here --> http://atnotes.de/index.php?topic=33526.msg210617#msg210617
Do While Right(getstring,1) = "°"
getstring = Left(getstring, Len(getstring)-1)
Loop
End If
Lib.appl.functions -> ProcessRTTags Funktion suchen und die Stelle suchen die mit "we have a item name ..." beginnt.
Dann den Endif von dem "if Itemtextexists ...." suchen und zwischen diesem und dem "Getstring = replace (....." diese Zeilen einfügen:
' remove the "°" as long as it is the last sign in the string
' needed because of error issue mentioned here -->
' http://atnotes.de/index.php?topic=33526.msg210617#msg210617
Do While Right(getstring,1) = "°"
getstring = Left(getstring, Len(getstring)-1)
Loop
Dann sollte das funktionieren.