3
VB For Each ... Split(TXT,vbCrLf)
Hallo, ich will nur die Zeilen im einzelnen aufsplitten und dann wieder zusammen fügen.
Klappt aber nicht, weiss jemand warum?
[CODE]Private Sub Form_Load()
Dim LINDAT, TEST As String
Dim SPLSTR As Object
Set LINDAT = COSFSO.GetFile("C:\TEXT.txt")
TEST = ""
For Each SPLSTR In Split(LINDAT.OpenAsTextStream(1).ReadAll, vbCrLf)
TEST = TEST & SPLSTR & vbCrLf
Next
MsgBox res
End Sub[/CODE]
Meldung:
Laufzeit Fehler 424
Objekt erforderlich
Gruß waldgnarf
Dim LINDAT, TEST As String
Dim SPLSTR As Object
Set LINDAT = COSFSO.GetFile("C:\TEXT.txt")
TEST = ""
For Each SPLSTR In Split(LINDAT.OpenAsTextStream(1).ReadAll, vbCrLf)
TEST = TEST & SPLSTR & vbCrLf
Next
MsgBox res
End Sub[/CODE]
Meldung:
Laufzeit Fehler 424
Objekt erforderlich
Gruß waldgnarf
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 109393
Url: https://administrator.de/contentid/109393
Printed on: April 18, 2024 at 12:04 o'clock
3 Comments
Latest comment
Moin Moin
Wo kommt den dies COSFSO Objekt her? Global?
Gruß L.
Wo kommt den dies COSFSO Objekt her? Global?
Gruß L.
... abgesehen von der berechtigten Frage von Logan000: Wenn Du nur vor jede Zeilenschaltung den Inhalt der Variablen SPLSTR (die dazu allerdings besser ein String wäre) packen willst, sollte eigentlich genügen:
Grüße
bastla
TEST = Replace(LINDAT.OpenAsTextStream(1).ReadAll, vbCrLf, SPLSTR & vbCrLf)
bastla
Argh, waren nur Flüchtigkeitsfehler *duck*.
Ich guck nächstes mal besser vorher nochmal.
Danke jedenfalls
Gruß waldgnarf
Ich guck nächstes mal besser vorher nochmal.
Danke jedenfalls
Gruß waldgnarf
