Richtext Formatierung in Notes

[Ozan]

Hallo,

habe folgende Text in eine Richtext Feld:

"Die Krise kennt nicht nur Verlierer. In einigen Regionen Deutschlands floriert das Geschäft in den aumärkten. Ausgerechnet in Landstrichen, wo häufig Kurzarbeit angesetzt wurde, schlagen sich die Baustoffhändler formidabel."

Möchte dies aber immer nach 40 Zeichen mit "chr$(10)+chr$(13)" formatieren, sprich so:

"Die Krise kennt nicht nur Verlierer. In
einigen Regionen Deutschlands
floriert das Geschäft in den
aumärkten. Ausgerechnet in
Landstrichen, wo häufig Kurzarbeit
angesetzt wurde, schlagen sich die
Baustoffhändler formidabel."

Die Trennung sollte keine Wörter einfach abkappen sondern den letzten leer Zeichen suchen dann "chr$(10)+chr$(13)" einsetzen.

Kann mir jemand dabei helfen bzw. Feedback geben?

Gruss

Ozan

[jBubbleBoy]

Warum möchtest Du das tun?
Schon mal überlegt was passiert bei einem Wort das größer als 40 Zeichen ist, was dann?

[Ozan]

Diese Formatierung ist wichtig, damit das ganze übersichtlicher wird, die 40 Zeichen war nur ein Beispiel, es kann weniger oder mehr sein.

[jBubbleBoy]

Dann lege das RichText-Feld in eine Zelle (Tabelle) mit fester Breite, die sorgt automatisch für einen Umbruch.

[AC]

Hallo Ozan,

wo ist genau das Problem?

Du schnappst dir den Inhalt des body Feldes als string, benutzt left und right um das Dinge abzuschneiden und zu prüfen ob das Wortende erreicht ist und schreibst dann deine Zeilen zurück und danach jeweils addnewline.

Gruß AC

[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