Domino 9 und frühere Versionen > ND8: Entwicklung

Richtext Formatierung in Notes

<< < (2/2)

Ozan:
hier habe ich etwas versucht zu machen, vielleicht könnt Ihr mir weiter helfen?

Dim TextGesamt As String
Dim TextNeu As String
Dim TextGesamtLen As Integer      
Dim i As Integer
Dim start As Integer
   
TextGesamt = Replace(Replace(PosDoc.Subject(0),Chr$(13),""),Chr$(10),"")
TextGesamtLen=Len(TextGesamt)
      
 If TextGesamtLen <=40 Then
   TextNeu=TextGesamt
 Else
  For i = 1 To TextGesamtLen
   If Mid(TextGesamt,40,1)=" " Then
      TextNeu=Mid(TextGesamt,1,40)+Chr$(10)+Chr$(13)
      TextGesamt=Mid(TextGesamt,40,TextGesamtLen)
   Else

???

   End If
  Next
 End If

AC:
Hallo Ozan,

wieso machst Du es nicht so , wie ich Dir geschrieben habe, das funktioniert.

Gruß AC

Pyewacket:
Hallo Ozan,

was willst du jetzt wirklich machen?
Erst redest du von Richtext und in den Scriptbeispielen wird nur mit Strings gearbeitet.
Wo ist da der Zusammenhang?

Gruss
 Peter

LN4ever:
Hallo Ozan,

was ergibt sich denn mit dem knappen Einzeiler

plainText$ = notesRichTextItem.GetFormattedText( tabstrip, lineLength% )

Gruß

Norbert

koehlerbv:
Norbert, dabei
kommt dann ab
ber soetwas he
raus (bei einem
Wrap-Wert von
15) - das Ding
kümmert sich n
icht mehr um d
en Erhalt komp
letten Wörter).
Ich glaube, das
wollte Ozan so
nicht unbeding
t haben.

Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete