Lotus Notes / Domino Sonstiges > Help-Desk Applikation !!Help!!

Meldung im LOG

<< < (3/4) > >>

Thomas Schulte:
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:

--- Code: ---                '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

--- Ende Code ---

eknori (retired):
funktioniert

Thomas Schulte:
Das hoffe ich doch das das funktioniert ....  8)

agentzwick:
Das sieht ja gut aus ! Da ich ja bekanntlich nicht soviel Ahnung habe - was muß ich denn jetzt machen ?

Thomas Schulte:
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:

--- Code: ---' 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

--- Ende Code ---

Dann sollte das funktionieren.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete