title image


Smiley Re: Von Datei erste Zeile löschen
Ein einfaches Beispiel:



Dim ff As Integer

Dim Datei As String

Dim Text As String

Dim Zeile As String



ff=FreeFile()

Datei="d:\irgendwas.txt"



Open Datei For Input As ff

Line Input #ff, Zeile 'blind auslesen und nicht weiter benutzen

Do While Not EOF(ff)

Line Input #ff, Zeile

Text=Text & Zeile & vbCrLf

Loop

Close ff



ff=FreeFile()

Open Datei For Output As ff

Print #ff, Text

Close ff



Alternativ kannst du den Inhalt komplett auslesen, das erste Vorkommen eines Zeilenumbruchs auswerten und den Rest wieder zurück schreiben:



Dim strDatei As String

Dim ff As Integer

Dim strInhalt As String

Dim strZeile As String



strDatei = "d:\test\test.txt"

ff = FreeFile()



Open strDatei For Binary As ff

strInhalt = Space$(LOF(ff))

Get #ff, , strInhalt

Close ff



strInhalt=Mid(strInhalt, Instr(1, strInhalt, vbCrLf), Len(strInhaltI))



ff=FreeFile()

Open Datei For Output As ff

Print #ff, Text

Close ff



Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: