Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textdateien zusammenhängen

Textdateien zusammenhängen
01.06.2005 13:19:52
Richard
Hallo zusammen,
ich möchte eine zwei Textdateien aneinanderhängen.
Dabei möchte ich den Header der ersten Textdatei übernehmen und die zweite Datei ohne Header (z.B. ab Zeile 25) an die erste Datei anhängen.
Die Ausgabedatei soll noch noch genau so aussehen wie die Eingabedatei. Beim speichern einer in excel importierten Textdatei werden aber z.B. die Leerzeichen im Header nicht mehr übernommen. Wenn ich die Dateien als FilsSystemObject mit dem folgenden Code einlesen möchte erscheint die Fehlermeldung:
Set fsO = CreateObject("Scripting.FileSystemObject")
Set sName = fsO.OpenTextfile("c:\temp\test\test1.txt")
sName.SkipLine (25)
Runtime error (450):
Wrong number of arguments or invalid property assignment
Ich hoffe mein Problem ist so verständlich und jemand kann mir dabei weiterhelfen.
Viele Grüße
Richard

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textdateien zusammenhängen
01.06.2005 13:31:38
IngGi
Hallo Richard,
ich bin damit auch nicht so bewandert, aber versuchs mal so:
Set fsO = CreateObject("Scripting.FileSystemObject")
Set sName = fsO.GetFile("c:\temp\test\test1.txt")
sName.OpenAsTextStream
sName.SkipLine (25)
Gruss Ingolf
AW: Textdateien zusammenhängen
02.06.2005 17:12:20
Richard
Hallo InGi,
ein Versuch war's Wert aber ich erhalte einen
Runtime error '438':
Object does'nt support this property or method.
Bei Zeile sName.SkipLine(25)
Wenn ich diese Zeile auskommentiere kommt die gleiche Fehlermeldung bei
While (Not (sName.atEndOfStream))
Hier nochmal der ausprobierte Code:

Sub readtxt()
Set fsO = CreateObject("Scripting.FileSystemObject")
Set sName = fsO.GetFile("c:\temp\test\test1.txt")
sName.OpenAsTextStream
sName.SkipLine (25)
While (Not (sName.atEndOfStream))
line = sName.readLine
Debug.Print line
Wend
End Sub

Anzeige
AW: Textdateien zusammenhängen
03.06.2005 13:59:09
IngGi
Hallo Richard,
ich hab das Makro nochmal angepasst, so dass es bei mir jetzt läuft. Dazu musste ich nochmal 2 Variablen einbauen. "b" als Zähler für die For...Next-Schleife und "f" als zusätzliche Objektvariable. Wie gesagt, bei mir läuft es jetzt.

Sub readtxt()
Dim fsO As Object, sName As Object, f As Object, Line As String, b As Byte
Set fsO = CreateObject("Scripting.FileSystemObject")
Set f = fsO.GetFile("c:\temp\test\test1.txt")
Set sName = f.OpenAsTextStream(1)
For b = 1 To 25
sName.SkipLine
Next b
While (Not (sName.atEndOfStream))
Line = sName.ReadLine
Debug.Print Line
Wend
End Sub

Gruss Ingolf
Anzeige
So funktioniert's
04.06.2005 11:36:50
Richard
Hallo InGi
So klappt es. Merci.
Richard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige