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
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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 109393
Url: https://administrator.de/forum/vb-for-each-splittxt-vbcrlf-109393.html
Ausgedruckt am: 23.12.2024 um 13:12 Uhr
3 Kommentare
Neuester Kommentar
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
