Text per Vba mit Zeilenumbruch speichern

[MdeJong]

Hallo Excelfreunde,

ich habe zum abspeichern einen Textes in eine Text-Datei folgenden Code:

Code:

Private Sub cmdTextspeichern_Click()
Call WriteFile("D:\FilmCovers\" & TextBox2.Text & ".txt", FilmBeschreibung)
'hier wir Vor und Nachname als Dateiname benutzt
MsgBox "Text wurde erfolgreich als Textdatei gespeichert"

FilmBeschreibung.Text = ""

End Sub

Kann man in diesem Code angeben, das der Text pro Zeile ca. 45 Zeichen lang ist und das automatisch einen Zeilenumbruch macht?
Also das der gespeicherte Text immer pro Zeile 45 Zeichen hat.
Muss man die TextBox, die in meiner Userform ist, dafür vorher auch anpassen?
Die TextBox selber ist bei mir so eingestellt, das nach Zeilenende in die nächste Zeile wechselt
Nur das abspeichert, mach den Text in eine lange Zeile .
Ich rufe den Text in einer anderen Userform wieder auf, aber dort zeigt er den Text wie in der Textdatei an und sichtbar ist nur ein
Teil des Textes in der Listbox.
Ich muss anschließen die Textdatei anpassen, damit der Text in die Listbox passt.
Wäre schön, wenn man das verhindern kann?
Grüße
MdeJong

[Crazy Tom]

Hallo

also ich weiß nicht wo das Problem liegt
ich habe in meinem Test eine TextBox mit folgenden Eigenschaften

Multiline True
EnterKeyBehavior True

damit schreibe ich in die TextBox den Text und mit Enter wird in der TextBox ein
Zeilenumbruch geschrieben der genau so auch in der Textdatei erscheint
beim zurückschreiben in die Listbox sind diese Zeilenumbrüche auch drin

wenn du natürlich alles in eine Zeile schreibst und die Zeilenumbrüche nur
von der TextBox steuern lässt dann erscheint latürnich in der Textdatei alles in einer Zeile
was wiederum in der Listbox genau so dargestellt wird


MfG Tom

[MdeJong]

Hallo Tom,

also für die TextBox, habe ich:

Multiline True

diese Option:

EnterKeyBehavior True

muss ich schauen, ob ich diese so habe.

Wenn ich selber den Text in der TextBox schreibe und ich das Zeilenende der TextBox erreicht habe, macht er automatische ein Zeilensprung.

Wenn ich einen Text "Filmbeschreibung" aus dem Internet kopiere und ihn in die TextBox hinein kopiere, macht die TextBox auch einen Zeilenumbruch.
Nur wenn ich es abspeichere als Text, ist nach Aufruf der Textdatei, alles in einer Zeile.

Muss vielleicht die TextBoxbreite (Anzahl der Zeichen), mit der Listbox übereinstimmen?

[MdeJong]

Also ich habe gerade in der Datei hinein geschaut, die ich beim letzten Thema hier hochgeladen habe.

EnterKey war auf False.

Ich kann es nachher erst ausprobieren, ob es daran lag.

Gruß
Michael

[MdeJong]

Hallo Tom,

also ich habe jetzt in meiner Mappe nach gesehen

Multiline oder Enterkey ist auf True........trotzdem passt es nicht rein....ist wird in der Listbox als 1 zeile angezeigt.
der text selber in der Textdatei hat Zeilenumbrüche nach dem speichern????

Wieso geht das bei dir?

verstehe das nicht

[Crazy Tom]

Hallo

dann schmeiß doch die Listbox für die Filmbeschreibung raus
und setz dafür ne Textbox mit Multiline rein
dann muss der Text in der txt in einer Zeile sein

MfG Tom

[MdeJong]

dann muss der Code ja wieder angepasst werden?

[Crazy Tom]

na so schwer ist das aber nicht
die Beschreibung kommt mit

Listbox3.AddItem xText

rein
nu machste ne TextboxNummerWeißIchNicht

und da machste dann

TextboxNummerWeißIchNicht.Text = xText


das wär es dann schon


MfG Tom

[MdeJong]

Hallo Crazy Tom,

ich habe jetzt eine zusätzliche Multipage mit einer TextBox für den Inhalt eingesetzt.
Damit geht das....ich lasse erst einmal beides drinnen.

Ich habe eben im Netz noch etwas von einer RichBox gesehen, aber ich weiß nicht, ob Excel das in seinem Katalog hat.
Die soll an auch sehr gut formatieren können.


Gibt es so eine Box in Excel?

[MdeJong]

Hi Tom,


eine TextBox....wieviel maximale Zeichen passen dort rein?

Ich habe jetzt eine TextBox wie du sagst für den Filminhalt gewählt.
Aber nicht alle Texte werden vollständig wie in der Textdatei, in der Textbox angezeigt.

Gruß
Michael