Zeilenumbruch in Textbox

[DooMoOo]

Hi @ all ,
Also ich habe 2 Textboxen und ein Command Button .... so und ich will in Text1.Text nen etwas längeren Text schreiben der dann auf Knopfdruck in Text2.Text erscheint .... So da in der Textbox Text2 Multiline + Scrollbar an ist wird der text am ende noch Getrennt aber wenn ich das dann als *.txt Save is das alles nur eine Linie ... und ich will damit es in der gespeicherten txt nach max. 80 Buchstaben eine Neue Zeile Beginnt ....

Wie geht das
Danke für Hilfe im Vorraus
Gruß
DooMoOo

 

[wincnc]

Stelle Deine TextBox2 auf MultiLine = True und ScrollBars auf 2

Private Sub Command1_Click()
 
 Text2.Text = Umbruch(Text1.Text, 80)

' Dein Code zum Speichern von Text2.Text

End Sub

Private Function Umbruch(Text As String, Zeilenlänge As Long)
Dim N As Long
Dim NeuerText As String
Dim Leerzeichen As Long
Dim Länge As Long

For N = 1 To Len(Text) Step Zeilenlänge
 Leerzeichen = 0
  
  Do While Not Right(Mid(Text, N, Zeilenlänge + Leerzeichen), 1) = " "
    If N + Zeilenlänge + Leerzeichen >= Len(Text) Then Exit Do
    
    If Leerzeichen < Zeilenlänge Then Leerzeichen = 0: Exit Do
    
    Leerzeichen = Leerzeichen - 1
  Loop
 
 NeuerText = NeuerText & Mid(Text, N, Zeilenlänge + Leerzeichen) & vbCrLf
 N = N + Leerzeichen
Next

Umbruch = NeuerText

End Function

 

[DooMoOo]

Thx genau das hab ich gesucht ... wie kann ich das jetzt machen damit der text zwischen einen anderen text generiert wird ... wenn ich die zeile
Text2.Text = Umbruch(Text1.Text, 80)
zwischen den anderen text einfüge kommt der text der davor sein sollt ned mehr das steht dann Falsch ... was nun ?