Text als neue Seite an bestehendes Dokument anhängen

[Stephan]

aber dass beim Speichern einer Textdatei hinten etwas drangehängt wird, habe ich noch nie gehört.

doch, gab es, der Editor namens "Edlin" für MSDOS ist ein Beispiel dafür.

Auch heute noch ist das Verfahren in z.B. Batchdateien ein ganz Übliches, wenn man Umleitung in eine Datei mittels ">>" verwendet, ich bin eigentlich ohne Zweifel das es unter Unix/Linux ganz ähnlich geht.


Gruß
Stephan

[Stephan]

Hallo Wolfgang,

Gut, aber das ist doch noch etwas anderes, mittels der Kommandozeile und "/t" bewusst einen Text hintendran zu hängen als das, was bei einer Textverarbeitung bein Speichern oder Speichern unter ... passiert.

Ja und Nein.
Nein deshalb weil ja einfache Texteditoren (und noch einfacher Kommandozeileneditoren wie Edlin) Vorläufer der Textverarbeitungen waren und ich sicher bin das es Textverarbeitungen gab die solche Funktionalitäten hatten, ganz einfach weil ja nicht der Nachfolger von Edlin MS Word für Windows war sondern sich eine schleichende Funktionsvergrösserung vollzog.
Der Nutzer sprach nun von Windows 1.0, das ich nicht kenne und ich kann mir sehr gut vorstellen das dort eine entsprechende Textverarbeitung existierte (man müßte einfach nur recherchieren wie damals der Programmumfang von MS Word (nicht MS Word für Windows) war.
(Due deutschsprachigen Werbeanzeigen bei Einführung von Word für Windows hatten damal im Deutschland den Slogan: 'Microsoft proudly presents - Word for Windows'.)

Du jedoch schriebst:

vermute ich, dass er da etwas falsch in Erinnerung hat

was ja nun heißt es gab die Funktion nie in einer Textverarbeitung (es sei denn ich verstünde das falsch) und da habe ich sehr starke Zweifel.

Ich denke da an so etwas wie Makros oder irgendeine Scriptsprache. Es sollte dann aber auch einen Menüpunkt oder wenigstens einen Button dafür geben, der dann so eine Art 'Öffnen-Dialog' öffnet, in dem man dann die Datei aussuchen kann, unter der das geschriebes angehängt werden soll.

Im Grundprinzip geht das hier:

Code: Alles auswählen

Sub text_an_datei_haengen()
tauswahl = ThisComponent.getCurrentSelection()
If Not IsNull(auswahl) Then
'nur eine zusammenhängende Auswahl
inhalt = tauswahl.getByIndex(0).getstring()
End If

Dim dateiname As String 
auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
With auswahl
	.SetMultiselectionMode(False)
	.SetTitle("Wählen Sie eine Datei, an welche der aktuell markierte Text angehängt wird")
End With
antwort = auswahl.execute
'wurde Datei gewählt ist antwort 1 sonst 0
if antwort = 1 then
	Datei = auswahl.Files(0)
end if
tmp = StarDesktop.loadComponentFromURL ( ConvertToURL(Datei) , "_blank", 0, Array() )
cursor = tmp.text.CreateTextCursor
cursor.gotoEnd(False)
tmp.Text.insertControlCharacter(cursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
cursor.String = inhalt
tmp.Store
tmp.Close(True)

End Sub

weitere Infos zur Programmierung finden sich im ersten Thread des Basic-Unterforums.



Gruß
Stephan