Letzte Zeile einer txt abschneiden

[TheLuCKer]

Hallo Jungs,

kann mir jemand verraten, wie ich es schaffe, die letztes zeile beim laden abschneide. Zum Beispiel habe ich 6 Zeile in einer txtDatei. Beim Laden soll die Letzte gelöscht oder nicht sichtbar sein. Bin glücklich über jeden Beitrag

MFG

Jonny

 

[MatMagic]

Also das hier ist sicher nicht die eleganteste Lösung.....aber wenn ich keinen Fehler eingebaut habe sollte es funktionieren.

dim counti as long
dim zeile as string
dim dt as string
dim text as string
' Ich geh mal davon aus das du mit 10000 Zeilen auskommst - sonst zahl erhöhen
dim zeiler(10000) as string
dim t as long
' z. B.: C:\text.txt
dt = "pfad zu deiner text datei"
k = FreeFile

' Deine Datei einlesen (zeilenweise)
Open dt For Input As 1
Do Until EOF(1) = True
Line Input #1, zeile
' Zeilen deiner Datei zählen
counti = counti + 1
' Zeilen einzeln an string übergeben
zeiler(counti) = zeile
DoEvents
Loop
Close 1
' Deinen Text zusammenfügen ohne letzte Zeile
counti = counti - 1
for t = 1 to counti
text = text & zeiler(t)
next t

Ich hoffe ich konnte dir helfen