Office: aber vorn

Hallöle,

ich möchte Text in eine bestehende Textdatei einfügen. Löse ich dies wie folgt:

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(szPfad & szDatei, 8, -2)
a.WriteLine ("Moin Moin")
a.Close

schreibt es auch brav, aber natürlich an's Ende der Datei. Ich bräuchte den Text aber am Anfang der Datei.

Any Ideas?

Gruß,
Lucille

(WinXP/ExcelXP)

:)

 

Hallo Lucille,

Ich kann nicht behaupten, dass ich von der Arbeit mit Textdateien Ahnung habe, aber nur mal so als Idee:

Koenntest du nicht die Datei ganz normal unter Excel oeffnen (laut Makrorecorder mit Workbooks.OpenText)?
Dann oben Zeilen einfuegen, reinschreiben was du einfuegen willst, und anschliessend wieder als Textdatei speichern?

 

Das Einfügen von Text in eine bestehende Textdatei ist nicht ganz so simpel. IMHO wäre folgender Weg akzeptabel:

Neue Textdatei mit einem Dummynamen erstellen und mit dem neuen Text beschreiben.
Alte Textdatei öffnen, auslesen und in der neuen Datei anhängen.
Beide Dateien schließen, die alte Datei löschen und die neue Datei umbenennen...

HTH

 

Hallo Lucille

Versuch es mal damit (Code basiert auf einem Listing aus Tobias Weltners "Scripting für Administratoren", das ich wärmstens empfehlen kann...)

Code:

Das entspricht natürlich dem von Stefan Kulpa vorgeschlagenen Weg, und viele Alternativen sehe ich dazu auch nicht. OpenTextFile bietet im Append-Mode einfach nicht mehr als das Anhängen am Ende.

Ein wenig Vorsicht ist mit obigem Code geboten, da CreateTextFile ohne zu fragen die alte Textdatei überschreibt. Aber wenn du schon bis in die Gemarkungen des WSH vorgedrungen bist, dann ist der Einbau einer kleinen Sicherheitsroutine sicher kein Problem mehr...

ligrü
lem

 

Hallo Susanne, Stefan und lemarck,

vielen Dank für Eure Ideen. Die Vorschläge sind gut, aber leider im aktuellen Fall nicht das, was ich suche...

Ich bräuchte wirklich eine Anweisung, die ohne Umwege einen String, der zur Laufzeit erstellt wird, an den Anfang einer bestehenden Textdatei schreibt. Falls es so eine Möglichkeit nicht gibt, würde ich den Programmablauf grundlegend anders gestalten - und müsste Performanzeinbußen hinnehmen, was ich gern vermieden hätte.

Aber wenn's halt nicht anders geht! Da muss ich wohl durch!

Nochmals Dank & Gruß an alle,

Lucille

 

Vielleicht hilft die folgende Variante weiter:

Code:

 

hi stefan *boah

laut in die haende geklatsch *top

schon mal kopiert *Smilie

gruss poltergeist

 

Hallo Stefan,

ganz herzlichen Dank, dass Du Dir so viel Mühe gemacht hast!

Zwar zieht es sich immer noch den Inhalt der Textdatei komplett in den Speicher, spart aber dafür im Gegensatz zu allen bisherigen Versuchen ein ganzes MB an Speicher ein. Das ist doch mal was!

Grüße,
Lucille

PS allen Anderen, die mitüberlegt haben, natürlich auch nochmal ein Dankeschön!!!!

 

Wenn die Datei zu groß dafür wird, geht's wohl nur noch mit der 2-Dateien-Alternative.

Gruß,